Pageing virker ikke

Jeg får følgende fejl når jeg prøver at lave pageing ud fra et databaseudtræk.

ADODB.Recordset error '800a0cb3'
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.


kode:
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open strSQL1, ObjConn, 1

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
If Not (rs1.BOF Or rs1.EOF) Then
    rs1.PageSize = 10
    rs1.AbsolutePage = intPage
    intRecCount = rs1.PageSize
    intPageCount = rs1.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs1.EOF And intRecCount > 0
       
        'vis resultat her
       
    intRecCount = intRecCount - 1
    rs1.MoveNext
    Loop
End If


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

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=paging.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 "<a href=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If