page en søgning

Jeg har læst et lignende spørgsmål her på eksperten, men jeg kan nu ikke få det til at virke. Jeg har en side kaldet search2.asp. Denne skal udskrive mine søgeresultater, og det virker også fint på første side i pagningen, men derefter virker det ikke mere, hvad er der i vejen med flg script?:



<html><head>
<title></title>
</head>
<form name="Bru" method="post" action="search2.asp?Mode=sog&strKeyword=" & strKeyword & ">
<input type="submit" name="asd" value="sd"><br>

<input type="text" name="T1" size="20" maxlength="20">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("XXXXX.mdb")

strKeyword = Trim(Request.Form("T1"))
    if strKeyword = "" then
    strKeyword = Request("Keyword")
    End if

strSQL = "SELECT Brugernavn, Kodeord, Email, Sidste_login, Aktiveret FROM Users WHERE"
strSQL = strSQL & " (Brugernavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Kodeord LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Email LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Sidste_login LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Aktiveret LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Id LIKE '%" & strKeyword & "%')"

rs.Open strSQL, strDSN, 1


    rs.PageSize = 2
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
   
If Not (rs.BOF Or rs.EOF) Then
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If


    Do While Not rs.EOF And intRecCount > 0
    Response.Write rs("Brugernavn") & "<br>" & rs("Kodeord") & "<br>" & rs("Email") & "<br>" & rs("sidste_login") & "<br>" & rs("Aktiveret") & "<p>"
   
       
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
   


rs.Close
Set rs = Nothing

Response.Write "Side "
For intNum = 1 To intPageCount
Response.Write "<a href=search2.asp?strKeyword=" & strKeyword & "page=" & intNum & ">" & intNum & "</a> "
Next

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




%>


</form>
</html>

<html><head>
<title></title>
</head>
<form name="Bru" method="post" action="search2.asp?Mode=sog&strKeyword=" & strKeyword & ">
<input type="submit" name="asd" value="sd"><br>

<input type="text" name="T1" size="20" maxlength="20">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../Wack/Community.mdb")
Mode=Request.Querystring("Mode")

strKeyword = Trim(Request.Form("T1"))
    if strKeyword = "" then
    strKeyword = Request("Keyword")
    End if
%>

<%
strSQL = "SELECT Brugernavn, Kodeord, Email, Sidste_login, Aktiveret FROM Users WHERE"
strSQL = strSQL & " (Brugernavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Kodeord LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Email LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Sidste_login LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Aktiveret LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Id LIKE '%" & strKeyword & "%')"

rs.Open strSQL, strDSN, 1


    rs.PageSize = 2
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
   
If Not (rs.BOF Or rs.EOF) Then
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If


    Do While Not rs.EOF And intRecCount > 0
    Response.Write rs("Brugernavn") & "<br>" & rs("Kodeord") & "<br>" & rs("Email") & "<br>" & rs("sidste_login") & "<br>" & rs("Aktiveret") & "<p>"
   
       
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
   


rs.Close
Set rs = Nothing

Response.Write "Side "
For intNum = 1 To intPageCount
Response.Write "<a href=search2.asp?strKeyword=" & strKeyword & "page=" & intNum & ">" & intNum & "</a> "
Next

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




%>


</form>
</html>