Paging system skal ændres..

Nogen der ved hvordan jeg får det til at virke..??
Når jeg trykker "side 2" kommer der ingen resultater med..!!!


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


Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From projekt where sektor='" & request.querystring("TypeSearch") & "' AND afd ='" & request.querystring("DaInBox") & "'"
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/projekt/projekt.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    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
      response.write Left(rs("Sagsnavn"),50)
      if len(trim(rs("Sagsnavn")))= 50 then response.write "..."
      response.write "<a href=""projekt_opl.asp?id=" & rs("ID") & """>...>></a>" & "<br>"
      intRecCount = intRecCount - 1
    rs.MoveNext   
    Loop
End If

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


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

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