Paging fejl sider forsvinder

Når jeg søger kommer resultaterne frem, men når jeg vil gå vider til nogle af de andre sider, kommer der ikke noget frem. når jeg så vil gå tilbage til første side vil den heller ikke vises
her er koden:
<%

dim strKeyword
strKeyword=Trim(Replace(Request.Form("soegtext"),"'",""))


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


Set rs = Server.CreateObject("ADODB.RecordSet")
'********** hvilken felt i hvilken tabel**************

'læg mærke til mellemrum imellem LIKE '" &  strKeyword  & "'"



strSQL = "SELECT * FROM tabel1 WHERE"
strSQL = strSQL & " title LIKE '" &  strKeyword  & "'"
strSQL = strSQL & " OR soeg1 LIKE '" &  strKeyword  & "'"
strSQL = strSQL & " OR soeg2 LIKE '" &  strKeyword  & "'"
strSQL = strSQL & " OR soeg3 LIKE '" &  strKeyword  & "'"
strSQL = strSQL & " OR soeg4 LIKE '" &  strKeyword  & "'"
strSQL = strSQL & " OR soeg5 LIKE '" &  strKeyword  & "'"
strSQL = strSQL & " OR beskrivelse LIKE '" &  strKeyword  & "'"

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d: sti\database.mdb"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 2
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<b>Side " & intPage & " af " & intPageCount & "</b>"
    Do While Not rs.EOF And intRecCount > 0


If blnBGColor = True Then
            strBGColor = "CCDFF7"
            blnBGColor = False
        Else
            strBGColor = "ffffff"
            blnBGColor = True
        End If



         
%>

<br>

<table align="center" width="600px" bgcolor="<%=strBGColor%>">

<tr> <td >
<a href="http://<%=rs("url")%>" target="_blank"><B><%=rs("url")%></B></a> </td></tr>
<tr> <td ><%=rs("firma")%></td></tr>
<tr> <td ><%=rs("Beskrivelse")%></td></tr>
</table>




<%
    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=resultat1.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=resultat1.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=resultat1.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>