Paging through Recordsets

koytik · Apr 28, 2012

Here is my problem. The first page works fine - however, when the "Next" button is clicked I get the error: ADODB.Field (0x80020009) Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /Recruiters/Reports/ReportList.asp And I can&#039t figure out what it is that I am doing wrong. My code is as follows: Any help would be MUCH appreciated!! ------------------------------------------------------------- <%@ Language=VBScript %> <% Option Explicit Response.Expires = 0 %>  <% Const intPageSize = 4 Dim intCurrentPage, objConn, objRS, strQ Dim intTotalPages, intI, testVar if len(Request.QueryString("page")) = 0 then intCurrentPage = 1 Else intCurrentPage = Request.QueryString("page") End If SET objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Driver={SQL Server}; Server=SomeServer; database=SomeDatabase;uid=sa;pwd=;" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = adUseClient objRS.CursorType = adOpenStatic objRS.CacheSize = intPageSize strQ = "SELECT position.positionid, position.title, position.description, position.created, status.description as Status, region.regiondesc, " strQ = strQ & " recruiter.firstname, recruiter.lastname " strQ = strQ & " FROM position " strQ = strQ & " INNER JOIN recruiter ON position.recruiterid = recruiter.recruiterid " strQ = strQ & " INNER JOIN region ON position.regionid = region.regionid " strQ = strQ & " LEFT OUTER JOIN status ON position.statusid = status.statusid " strQ = strQ & " WHERE position.RecruiterID = &#039" & Request.Form("recruiter") & "&#039 " strQ = strQ & " AND Position.regionid = &#039" & Request.Form("region") & "&#039 " strQ = strQ & " ORDER BY PositionID " &#039if objRS.State = adStateOpen Then &#039 objRS.Close &#039End If objRS.Open strQ, objConn, , , adCmdText objRS.PageSize = intPageSize &#039if objRS.RecordCount <> 0 Then objRS.AbsolutePage = intCurrentPage if not (objRS.EOF) and not (objRS.BOF) then objRS.AbsolutePage = intCurrentPage &#039objRS.MoveFirst intTotalPages = objRS.PageCount %> <HTML> <HEAD>  <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <BODY> <TABLE width=600 border=0 cellpadding=0 cellspacing=0 align=center> <TR> <TD align=Center colspan=2> <H2>All Positions</H2> <Table width="100%" cellpadding=2 cellspacing=0 border=0> <TR> <TD>Region: <%= objRS("regiondesc")%></TD> <TD align=center>FROM: <%= Request.Form("startdate")%> TO: <%= Request.Form("endDate")%></Td> <TD align=right>Recruiter: <%= objRS("FirstName") & " " & objRS("LastName") %></TD> </TR> </Table> </TD> </TR> <TR> <TD> <table width="100%" border="1" cellspacing="0" cellpadding="3"> <TBODY> <tr bgcolor="#cccccc" align="middle"> <th width="6%" align="middle">ID</TD> <th width="41%">Description</TD> <th width="12%">Open Date</TD> <th width="11%" align="middle">Status</TD> </TR> <% For intI = 1 to objRS.PageSize %> <tr> <td width="6%" align="middle"><%= objRS("PositionId")%></td> <td width="41%"><A href="ReportDetails.asp?RepType=All&RecId=<%= objRS("PositionId")%>"><%= objRS("title") & ", " & objRS("Description") %></A></td> <td align="Center" width="12%"><%= objRS("created")%></td> <td align="Center" width="11%"><%= objRS("Status")%></td> </tr> <% objRS.movenext if objRS.eof then exit For Next %> <% &#039record set and database connections are closed objRS.Close : objConn.Close Set objRS = nothing : Set objConn = nothing %> </TABLE></TD></TR> <TR> <TD align="Center"> Page <%= intCurrentPage %> of <%= intTotalPages %> <Form> <Input Type="Hidden" Name="CurrentPage" Value="<%= intCurrentPage%>"> <% If intCurrentPage > 1 Then %> <Input Type="Button" Value="Previous" onclick="document.location.href=&#039ReportList.asp?page=<%= intCurrentPage - 1 %>&#039"> <% End If If intCurrentPage <> intTotalPages then %> <Input Type="Button" Value="Next" onclick="document.location.href=&#039ReportList.asp?page=<%= intCurrentPage + 1 %>&#039"> <% End If %> </Form> </TD> </TR> <TR> <TD align="middle"> <HR> <A href="javascript:window.history.go(-1);">Previous Page</A> &#124 <A href="ReportDefault.asp">Report Menu</A></TD> </TR></TBODY></TABLE> </BODY> </HTML> Doesn&#039t the parent post belong in a different forum (this isn&#039t an ASP+ question)?

Paging through Recordsets

koytik

New Member