problemer med paging af tagwall

Hejsa

Jeg har et problem med paing af en tagwall Jeg har følgende kode:
----------------------------------------

<!-- #include file="DBOpen.asp" -->
<%   
    intPage = Request("page")
    If isNumeric(intPage) = False Or intPage < 1 Then
        intPage = 1
    End If

    Query= " SELECT *  from tagwall order by dato desc"
    Set Res = Conn.Execute(Query)

    Session.LCID = 1030
%>
      <table width="600" border="0" cellspacing="5" cellpadding="5">
        <tr class="almTxt">
          <td valign="top"> <p><span class="oversort">TAGWALL</span><br>
              <a href="tagwall_action.asp?action=4" class="links"><br>
              Skriv nyt indl&aelig;g</a></p>
<%                                                                                                     
    If Not (res.BOF Or res.EOF) Then
  res.PageSize = 20
  res.AbsolutePage = intPage
  intRecCount = res.PageSize
  intPageCount = res.PageCount
  Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
  Do While Not res.EOF And intRecCount > 0
    Response.Write res("LinkURL") & "<br>"
  intRecCount = intRecCount - 1
  res.MoveNext
  Loop
    tag = res("txt")
    tag = replace(tag,vbcrlf,"<br>")
    tag = Replace(tag, ":)", "<img src='image/smilies/smile.gif'>")
    tag = Replace(tag, ";)", "<img src='image/smilies/smile.gif'>")
    tag = Replace(tag, ":o", "<img src='image/smilies/shock.gif'>")
    tag = Replace(tag, ":(", "<img src='image/smilies/ked.gif'>")
    tag = Replace(tag, ":D", "<img src='image/smilies/laugh.gif'>")
    tag = Replace(tag, ":P", "<img src='image/smilies/tunge.gif'>")
    tag = Replace(tag, ":R", "<img src='image/smilies/retard.gif'>")
    tag = Replace(tag, ":M", "<img src='image/smilies/mad.gif'>")
    tag = Replace(tag, ":E", "<img src='image/smilies/evil.gif'>")
    tag = Replace(tag, ":C", "<img src='image/smilies/cool.gif'>")
    tag = Replace(tag, ":B", "<img src='image/smilies/bowling.gif'>")
    tag = Replace(tag, "Puke", "<img src='image/smilies/puke.gif'>")
   
%>
            <table width="550" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
              <tr>
                <td>
                  <table width="550" border="0" cellpadding="1" cellspacing="0" class="almTxt">
                    <tr bgcolor="e5e5e5">
                      <td width="23" bgcolor="#993300">&nbsp;</td>
                      <td colspan="3" class="oversort"> <%=Res("over")%></td>
                    </tr>
                    <tr bgcolor="e5e5e5">
                      <td bgcolor="#993300">&nbsp;</td>
                      <td colspan="3"><%= tag %></td>
                    </tr>
                    <tr bgcolor="e5e5e5">
                      <td bgcolor="#993300">&nbsp;</td>
                      <td colspan="3">&nbsp;</td>
                    </tr>
                    <tr valign="top">
                      <td bgcolor="#993300">&nbsp;</td>
                      <td width="176" class="oversort">Skrevet af: <%=Res("ini")%></td>
                      <td width="148"><%=Res("dato")%></td>
                      <td width="195"><a href="<%=Res("link")%>" target="_blank" class="links"><%=Res("link")%></a></td>
                    </tr>

                  </table>

                  </td>
              </tr>
            </table>
            <br>
            <%                                                                                                               
    End If
    res.Close
    Set res = Nothing

    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

%>
            <p>&nbsp; </p>
            <p><br>
            </p></td>
        </tr>
      </table>
      <!-- #include file="DBClose.asp" -->
------------------------------------------------------

Jeg får følgende fejl:
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.


i linie 56, som er denne:
res.AbsolutePage = intPage

Det er første gang jeg laver paging, så fatter det ikke helt.. :(

På forhånd mange takker.