Problem med paging

Hej

Jeg har et problem med paging, her er min kode:

<!--#include file="ban.asp"-->

<html>

<head>
<title>Tagwall</title>
<link rel="stylesheet" href="style.css">
</head>

<body>
Tagwall | <a href="tilfoj.asp">Tilføj besked</a> | <%
If Session("login") = "ok" Then
Response.Write "<a href='Admin/admin.asp'>Admin</a><br><br>"
Else
Response.Write "<a href='Admin/default.asp'>Admin</a><br><br>"
End if
%>
<%

Dim Side
Side = Trim(Request("Side"))
If Side = "" Then
Side = 1
End if

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tagwall.mdb")
Conn.Open DSN

strSQL = "Select * from Tagwall order by Id desc"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic

rs.PageSize = 10
rs.Open(strSQL), Conn

If NOT rs.EOF Then
rs.AbsolutePage = cINT(Side) '<-- linie 40
Raekke = 0
End if

If rs.EOF Then
Response.Write "<i>Ingen beskeder</i>"

Else

Do

Dim Besked, Hjemmeside
Besked = rs("Besked")
Besked = Replace(Besked, vbCrLf, "<br>")
Hjemmeside = rs("Hjemmeside")

Response.Write "<b>Navn:</b> " & rs("Navn") & "<br>"
If rs("Email") = "<i>Ingen e-mail</i>" Then
Response.Write "<b>E-mail:</b> " & "<i>Ingen e-mail</i>" & "<br>"
Else
Response.Write "<b>E-mail:</b> " & "<a href='mailto:" & rs("Email") & "'>" & rs("Email") & "</a>" & "<br>"
End if
If Hjemmeside = "<i>Ingen hjemmeside</i>" Then
Response.Write "<b>Hjemmeside:</b> " & "<i>Ingen hjemmeside</i>" & "<br>"
Elseif NOT Left(LCase(Hjemmeside), 7) = "http://" Then
Response.Write "<b>Hjemmeside:</b> " & "<a href='http://" & Hjemmeside & "' target='_blank'>" & "http://" & Hjemmeside & "</a>" & "<br>"
Else
Response.Write "<b>Hjemmeside:</b> " & "<a href='" & Hjemmeside & "' target='_blank'>" & Hjemmeside & "</a>" & "<br>"
End if
Response.Write "<b>Dato:</b> " & rs("Dato") & "<br>"
Response.Write "<b>Besked:</b><br><br>" & Besked & "<br><br><br>"

Raekke = Raekke + 1
rs.MoveNext

Loop While Not rs.EOF AND Raekke < rs.PageSize

End if

If NOT rs.EOF Then
If NOT rs.PageCount = 1 Then
If Side <> 1 Then
Response.Write "<a href='default.asp?Side=" & Side - 1 & "'>Forrige side</a>&nbsp;&nbsp;"
Response.Write "<a href='default.asp?Side=" & Side + 1 & "'>Næste side</a>"
Elseif Side = 1 Then
Response.Write "<a href='default.asp?Side=" & Side + 1 & "'>Næste side</a>"
Elseif Side = rs.PageSize Then
Response.Write "<a href='default.asp?Side=" & Side - 1 & "'>Forrige side</a>"
End if
End if
End if

Conn.Close
Set Conn = Nothing

%>

</body>

</html>

Får denne fejl:

ADODB.Recordset (0x800A0CB3)
Det aktuelle postsæt understøtter ikke bogmærker. Det kan skyldes en begrænsning af provideren eller af den valgte markørtype.
/tagwall/default.asp, line 40


Håber nogen kan hjælpe