Strul med paging

När jag försöker med paging enligt följande kod:

<%
   'Skapa ett recordset som öppnar tabellen från Request.QueryString
   strTable=Request.QueryString("tabell")
   set rsTable=Server.CreateObject("ADODB.RecordSet")
   rsTable.Open strTable, dbconn, , ,adCmdTable
   rsTable.PageSize=10

   'Skriv ut namnen på fältet i tabellen
%>
   <table cellpadding="4" cellspacing="1" border="0" width="100%" bgcolor="#000000">
   <tr bgcolor="#EFEFEF" onMouseOver="changeBg(this);" onMouseOut="resetBg(this);">
<% For Each field in rsTable.Fields %>
   <td valign="top" bgcolor="#F4F4F4"><b><%=field.Name%></b></td>
   <% If field.Name="Bild" Then %>
   <td valign="top" bgcolor="#F4F4F4"><b>Bild Redigering</b></td>
   <% End If %>
<% Next %>
   <td bgcolor="#F4F4F4"><b>Ändra</b></td>
   <td bgcolor="#F4F4F4"><b>Tabort</b></td>
   </tr>
<%
   X=0
   If Request.QueryString("page")="" OR NOT IsNumeric(Request.QueryString("page")) Then
   intPage = 1
   Else
   intPage = CInt(Request.QueryString("page"))
   End If

   rsTable.AbsolutePage = intPage <--------------- line 204

   'Skriv ut innehållet i tabellen
   strTable=Request.QueryString("tabell")
   Do Until rsTable.EOF OR X = rsTable.PageSize
%>
   <tr bgcolor="#EFEFEF" onMouseOver="changeBg(this);" onMouseOut="resetBg(this);">
<% For Each field in rsTable.Fields %>
   <% If field.Name="Bild" Then %>
   <td valign="top" bgcolor="#F4F4F4"><%=field.Value%></td>
   <td valign="top" bgcolor="#F4F4F4">
<a href="tabell.asp?id=<%=rsTable("ID")%>&tabell=<%=Request.QueryString("tabell")%>&nyBild=Ja">
<img src="design_bilder/andra.gif" border="0"
 alt="Klicka på denna bild om du vill tabort eller lägga till bilder för denna post"></a></td>
   <% Else %>
   <td valign="top" bgcolor="#F4F4F4"><%=field.value%></td>
   <% End If %>
<% Next %>
   <td valign="top" bgcolor="#F4F4F4">
<a href=tabell.asp?andra=Ja&id=<%=rsTable("ID")%>&tabell=<%=Request.QueryString("tabell")%>>
<img src="design_bilder/edit.gif" border="0"
 alt="Klicka på denna bild om du vill ändra innehållet för denna post"></a></td>
   <td valign="top" bgcolor="#F4F4F4">
<a href=tabell.asp?id=<%=rsTable("ID")%>&tabell=<%=Request.QueryString("tabell")%>&tabort=Post>
<img src="design_bilder/tabort.gif" border="0"
 alt="Klicka på denna bild om du vill tabort denna post"></a></td>
   </tr>
<%
   X=X+1
   rsTable.MoveNext
   Loop
%>
   </table>

<table><tr><td>
<%
  If rsTable.PageCount > 1 Then
    For i = 1 To rsTable.PageCount
      If i <> intPage Then
        Response.Write("<a href=""?page=" & i & """>" & i & "</a> ")
      Else
        Response.Write("[" & i & "] ")
      End If
    Next
  End If
%>
</td></tr></table>

<% End If %>

får jag följande felmedelande:

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

line 204
---------------------------------------------------------------------------------

Där line 204 är:

rsTable.AbsolutePage = intPage

Skulle vara väldigt tacksam om någon kunde hjälpa mig.

MVH/Tomas

Jag har löst det med att ta med:

rsTable.cursorlocation = 3

före

rsTable.Open strTable, dbconn, , ,adCmdTable

tack vare LarsG;s inlägg från tråden http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=46350&highlight=800a0cb3