|
 |
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
|
|
 |