problem med paging
får denne fejl:ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
ved denne kode:
<table width="75%" border="1" bordercolor="#000000" cellspacing="0" cellpadding="0">
<tr>
<td width="24%"><center>Ting</center></td>
<td width="56%"><center>
Kommentar
</center></td>
<td width="15%"><center>
Bruger
</center></td>
<td width="5%"><center>
Dato
</center></td>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM byttesys"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 2
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
%>
</tr>
<tr>
<td><% rs("Ting") %></td>
<td><% rs("Kommentar") %></td>
<td><% rs("Bruger") %></td>
<td><% rs("Dato") %></td>
<% if cint(session("level")) > 1 then%>
<td><a href="bytact.asp?action=slet&id=<% Response.Write rs("Id") %>">Slet</a></td>
<% end if %>
</tr>
</table>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=bytsys.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=bytsys.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=bytsys.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
hvorfor !?!?!
