Can't get code for paging with index server to work

<i><b>Originally posted by : davy (davy@wsep.co.uk)</b></i><br />I'm having trouble getting the following code to work. I can get index server to return results but can't seem to get paging to work with it. <br /><br />------------------------------------------------<br /><br /><!-- #INCLUDE FILE="adovbs.Inc" --><br /><br /><% <br />' Declare variables<br />Dim iPageSize 'How big our pages are<br />Dim strPageCount 'The number of pages we get back from database<br />Dim strPageCurrent 'The page we want to show<br />Dim x 'Standard looping var<br />Dim strSql 'SQL select to limit fields<br />Dim objConn 'The connection object<br />Dim objRS 'The recordset object<br /><br />iPageSize = 10<br /><br />If Request("page") = "" Then<br /> strPageCurrent = 1<br />Else<br /> strPageCurrent = CInt(Request("page"))<br />End If<br /><br />strSQL=" SELECT FileName, vPath, Size, Characterization, DocCreatedTM FROM SCOPE('""/""') WHERE CONTAINS ('" & varQuery & "') >0 ORDER By Rank DESC"<br /><br />'-- open database connection --<br />set objConn = Server.CreateObject("ADODB.Connection")<br />objConn.ConnectionString = "provider=msidxs"<br />objConn.Open<br /><br />set oRS = Server.CreateObject("ADODB.recordset")<br />oRS.open sqlText, objConn, adOpenStatic, adLockReadOnly, adCmdText<br /><br />' Set cursor location and pagesize<br />objRS.CursorLocation = adUseClient<br />objRS.PageSize = iPageSize<br /><br />' Get the count of the pages using the given page size<br />strPageCount = rs.PageCount<br /><br />' If the request page falls outside the range,<br />' give the closest match (1 or max)<br />If 1 > strPageCurrent Then strPageCurrent = 1<br />If strPageCurrent > strPageCount Then strPageCurrent = strPageCount<br /><br />' Move to the selected page<br />objRS.AbsolutePage = strPageCurrent<br /><br />' see if i get anything<br />Response.Write strPageCurrent<br />Response.Write strPageCount<br /><br />' rest of code for output<br />' blah blah<br />%><br /><br />------------------------------------------------<br />

<i><b>Originally posted by : steve</b></i><br />http://aspfree.com/asp/startpage.asp?id=49<br /><br /><br />------------<br />davy at 5/11/2000 4:02:07 AM<br /><br />I'm having trouble getting the following code to work. I can get index server to return results but can't seem to get paging to work with it. <br /><br />------------------------------------------------<br /><br /><!-- #INCLUDE FILE="adovbs.Inc" --><br /><br /><% <br />' Declare variables<br />Dim iPageSize 'How big our pages are<br />Dim strPageCount 'The number of pages we get back from database<br />Dim strPageCurrent 'The page we want to show<br />Dim x 'Standard looping var<br />Dim strSql 'SQL select to limit fields<br />Dim objConn 'The connection object<br />Dim objRS 'The recordset object<br /><br />iPageSize = 10<br /><br />If Request("page") = "" Then<br /> strPageCurrent = 1<br />Else<br /> strPageCurrent = CInt(Request("page"))<br />End If<br /><br />strSQL=" SELECT FileName, vPath, Size, Characterization, DocCreatedTM FROM SCOPE('""/""') WHERE CONTAINS ('" & varQuery & "') >0 ORDER By Rank DESC"<br /><br />'-- open database connection --<br />set objConn = Server.CreateObject("ADODB.Connection")<br />objConn.ConnectionString = "provider=msidxs"<br />objConn.Open<br /><br />set oRS = Server.CreateObject("ADODB.recordset")<br />oRS.open sqlText, objConn, adOpenStatic, adLockReadOnly, adCmdText<br /><br />' Set cursor location and pagesize<br />objRS.CursorLocation = adUseClient<br />objRS.PageSize = iPageSize<br /><br />' Get the count of the pages using the given page size<br />strPageCount = rs.PageCount<br /><br />' If the request page falls outside the range,<br />' give the closest match (1 or max)<br />If 1 > strPageCurrent Then strPageCurrent = 1<br />If strPageCurrent > strPageCount Then strPageCurrent = strPageCount<br /><br />' Move to the selected page<br />objRS.AbsolutePage = strPageCurrent<br /><br />' see if i get anything<br />Response.Write strPageCurrent<br />Response.Write strPageCount<br /><br />' rest of code for output<br />' blah blah<br />%><br /><br />------------------------------------------------<br />