Pagning

Hej

Her en del af en sige jeg er ved at lave. Jeg har kun taget det vigtige kode med. Jeg skalb bruge dettil pagning.

Det virker også fint indtil man tager den sidste post så kommer :

BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Dette er ikke rigtigt. Har jeg 2 poster kommen den ved at klikke på 2.

Er der nogen der kan hjælpe mig.






intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End if

Objrs.open StrQ ,,1
    objrs.PageSize = 1
    objrs.AbsolutePage = intPage
    intRecCount = objrs.PageSize
    intPageCount = objrs.PageCount
     
    Do While Not objrs.EOF And intRecCount > 0
   
    intRecCount = intRecCount - 1
    objrs.MoveNext
    Loop
<%
response.write intPage
%>
  udaf xx</font>
<%
Response.write intPageCount
%>
<%
            objrs.PageSize = 1
    objrs.AbsolutePage = intPage
    intRecCount = objrs.PageSize
    intPageCount = objrs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not objrs.EOF And intRecCount > 0
   
    intRecCount = intRecCount - 1
    objrs.MoveNext
    Loop
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=svarsiden.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=svarsiden.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<svarsiden.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

&gt;&gt;</font></b></td>
        </tr>
      </table>
    </center>
  </div>
       
  </div>
         

</form>
<p>
         

</body>

</html>