Jeg skal lave et udtræk fra en acces2000 db og vil gerne have at der skal
vises 10 poster på hver side - så skal der i bunden være 2 knapper til at
bladre mellem siderne. Det virker alt sammen fint - bortset fra at når man
når til den sidste side og så trykker på knappen "previous" så går den en
side tilbage - men nu er der så ingen poster!!!
Hvad gør jeg forkert?
Her er koden:
<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
Response.Expires = 0
%>
<!--#include file="adovbs.inc"-->
<%
Const intPageSize = 10
Dim intCurrentPage, objConn, objRS, strQ
Dim intTotalPages, intI
If Request.ServerVariables("CONTENT_LENGTH") = 0 Then
intCurrentPage = 1
Else
intCurrentPage = CInt(Request.Form("CurrentPage"))
Select Case Request.Form("Submit")
Case "Previous"
intCurrentPage = intCurrentPage - 1
Case "Next"
intCurrentPage = intCurrentPage + 1
End Select
Set objRS = Session("MyRecordset")
End If
If Not(isObject(objRS)) Then
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Data Source=netsol2.f-202238"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = adUseClient
objRS.CursorType = adOpenStatic
objRS.CacheSize = intPageSize
strQ = "SELECT alleresultater.minkwh, alleresultater.maxkwh FROM
alleresultater "
strQ = strQ & "ORDER BY alleresultater.minkwh, "
strQ = strQ & "alleresultater.minkwh"
objRS.Open strQ, objConn, adCmdText
Set objRS.ActiveConnection = Nothing
objConn.Close
Set objConn = Nothing
Set Session("MyRecordset") = objRS
End If
objRS.PageSize = intPageSize
If Not(objRS.EOF) Then objRS.AbsolutePage = intCurrentPage
intTotalPages = objRS.PageCount
%>
<HTML><BODY>
<B>Customer: OrderDate</B><P>
<%
intI = 0
Do While ((Not objRS.EOF) And (intI < objRS.PageSize))
Response.Write Server.HTMLEncode(objRS("minkwh") & ": " &
objRS("maxkwh")) & "<BR>"
intI = intI + 1
objRS.MoveNext
Loop
%>
<BR>
Page <%= intCurrentPage %> of <%= intTotalPages %><P>
<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST">
<INPUT TYPE="Hidden" NAME="CurrentPage" VALUE="<%= intCurrentPage%>"><%
If intCurrentPage > 1 Then %>
<INPUT TYPE="Submit" NAME="Submit" VALUE="Previous">
<% End If
If intCurrentPage <> intTotalPages Then %>
<INPUT TYPE="Submit" NAME="Submit" VALUE="Next">
<% End If %>
</FORM>
</BODY></HTML>