Wrox Home  
Search P2P Archive for: Go

  Return to Index  

asp_web_howto thread: Enable pagination from webpage created via Microsoft's indexing service


Message #1 by "Shawn Beasley" <datadriven80@h...> on Fri, 30 Nov 2001 20:29:55
Good afternoon,



I have failed in an attempt to find earlier threads regarding setting up 

pagination using Microsoft's indexing service. I am comfortable with being 

able to do this via a database. The following error occurs with the code I 

have written:



HTTP 500.100 - Internal Server Error - ASP error

Internet Information Services



---------------------------------------------------



Technical Information (for support personnel)



Error Type:

MSWC.NextLink (0x80004005)

ERROR Can not open file

/search/PerformQuery_process.asp, line 127





Browser Type:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 4.0) 



Page:

POST 16 bytes to /search/PerformQuery_process.asp



POST Data:

txtQuery=service 

-----------------------------------------------------



The code I believe is in error (because if I do not use it, the query 

works fine but only display 1 page) is as follows:



-----------------------------

   <%

       Dim objNextLink, strListFile, intListIndex, intListCount

  

      Set objNextLink = Server.CreateObject("MSWC.NextLink")

      strListFile = "contlink.txt"

      intListIndex = objNextLink.GetListIndex(strListFile)  

      intListCount = objNextLink.GetListCount(strListFile)

   %>



     <h1> Page <% = intListIndex %> of <% = intListCount %> </h1> <hr>

  <form>



<%

   If intListIndex  > 1 then

%>



       <input type = button  value = "|<< Start" onclick = "location = '<% 

= objNextLink.GetNthURL(strListFile, 1)

%>';">



      <input type = button  value = "|< Back" onclick = "location = '<% = 

objNextLink.GetPreviousURL(strListFile)

%>';">



<%

      End If

      If intListIndex < intListCount Then    

%>



       <input type = button  value = "Next >" onclick = "location = '<% = 

objNextLink.GetNextURL(strListFile)

%>';">



	<input type = button  value = "End >>|" onclick = "location = '<% 

= objNextLink.GetNthURL(strListFile, intListCount)

%>';">



<%

End If

%>

  </form>

-----------------------------



Any/all ideas are greatly appreciated! Thanks

  Return to Index