Paging problemer

Jeg er igang med at give min side en ansigtløftning og har derfor besluttet mig for at gøre brug af nogle virkemidler indenfor ASP som jeg ikke har prøvet før.

Af sære grunde kan jeg ikke få min paging til min gæstebog til at virke. Jeg har taget udgangspunkt i en artikkel jeg læste på activedevelepors men min redigering lader vist ikke til at virke. :(

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select  * From wall order by id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/wall.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
%>

      .. <b><a class="gbog" href="mailto:<% Response.Write "" & rs("mail") & "" %>"><% Response.Write "" & rs("navn") & "" %></a></b> | 
      <a href="http://<% Response.Write "" & rs("hp") & "" %>" target="_blank">www</a>
      <br>
      <% Response.Write "" & Replace(rs("besked"),chr(13),"<br>") & "" %>
      <br>
      <font color=#666666><% Response.Write "" & rs("dato") & " " %><% Response.Write "" & rs("tid") & "" %></font>   
      <br>
      <br>
      <br>
     
<%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
    End If
    rs.Close
    Set rs = Nothing

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

Response.Write ""
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

%>