paging virker ikke

denne kode:

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Threads where Threadok = 1 Order by Threaddato Desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../System.mdb")
Conn.Open strDSN
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>"
    %>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" class="oversigt">
  <tr bgcolor="#FF9900">
    <td>
      <center>
        Forfatter:&nbsp;
      </center>
    </td>
    <td>
      <center>
        Tr&aring;d&nbsp;
      </center>
    </td>
    <td>
      <center>
        Dato&nbsp;
      </center>
    </td>
    <td>
    <center>
    Posts
    </center>
    </td>
    <% if cint(session("level")) > 6 then %>
    <td>
      <center>
        slet
      </center>
    </td>
   
<% end if %>
<% 
strSum =  "SELECT COUNT(Threadok) AS comments FROM Threads WHERE Threadok = 0 AND Comid = " & rs("Id")
set strSum = Conn.Execute(strSum)
Do While Not (rs.EOF) And (NOT strSum.EOF) And intRecCount > 0
%>
<tr>
    <td>
      <center>
        <% Response.Write rs("Threadskriver") %>
      </center>
    </td>
    <td>
      <center>
        <% Response.Write "<a href=""forum.asp?funk=se&id=" & rs("Id") & """>" & rs("Thread") & "</a>" %>
      </center>
    </td>
    <td class="dato">
      <center>
        <% Response.Write rs("Threaddato") %>
      </center>
    </td>
    <td>
      <center>
        <% Response.Write strSum("comments") %>
      </center></td>
      <% if cint(session("level")) > 6 then %>
    <td>
    <center>
  <% Response.Write "<a href=""forum.asp?funk=slet&id=" & rs("Id") & """>slet</a>" %>
  </center></td>
  <% end if %>
    </tr>
  <% intRecCount = intRecCount - 1
    rs.movenext
    strSum.movenext
    Loop
    %>
</table>
<%
end if
end if

rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing

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

Response.Write "&nbsp;&nbsp;&nbsp;"
If Clng(intPage) > 1 Then
    Response.Write "<a href=threads.asp?page=" & intPage - 1 & ">&lt;</a>"
Else
    Response.Write "&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=threads.asp?page=" & intPage + 1 & ">&gt;</a> "
Else
    Response.Write "&gt;"
End If

denne kode viser 6 sider med 1 post på hver side hvorfor ikke 20 på hver side?