Fejl ang provideren eller markørtype

Nogle der kan hjælpe mig så mit script virker !!!

FEJL:
Fejltype:
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.
/nyhedscript/news.asp, line 20


CODE PÅ NEWS.ASP
<!--#include file="inklude/sqldbcn.asp"-->
<%
intPage = Request("side")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If
%>
<%
Dim rs,

Call OpenDB("C:/Inetpub/wwwroot/nyhedscript/db/db.mdb")

Set rs = objConn.Execute("SELECT * from side ORDER BY id DESC")
strNavn = rs("navn")
strAlder = rs("alder")
%>
<%
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<div><b>Side " & intPage & " af " & intPageCount & "</b></div>"
    Do While Not rs.EOF And intRecCount > 0
%>
<table border="0" width="100%">
  <tr>
    <td width="50%"><%=strNavn%></td>
    <td width="50%"><%=strAlder%> år</td>
</tr>
</table>
<%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p class=""mainbody"">Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<b><a href=default.asp?side=" & intNum & ">" & intNum & "</a></b> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=default.asp?side=" & intPage - 1 & "><b>&#8592; Tilbage</b></a> "
Else
    Response.Write ""
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=default.asp?side=" & intPage + 1 & "><b>Frem &#8594;</b></a> "
Else
    Response.Write ""
End If

Call CloseDB
%>


CODE PÅ SQLDBCN.ASP
<%

Dim objConn

Sub OpenDB(strDB)

  Dim strCN

  strCN = ""
  strCN = strCN & "Provider=Microsoft.Jet.OLEDB.4.0;"
  strCN = strCN & "Data Source=" & strDB & ";"
  strCN = strCN & "Persist Security Info=False"
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open strCN
 
End Sub

Sub CloseDB
 
  objConn.Close
  Set objConn = Nothing
End Sub

%>


LINJE 20 PÅ NEWS.ASP

rs.AbsolutePage = intPage


Håber nogle kan få mig videre men er begyndt at bruge SUB og CALL som connection så det er første gang jeg prøve at connecte og code på den måde !!!!

MANGE TAK !!!