Paging og mySQL - igen

Jeg kan ikke få den til at vise side 2 hvis der er en, efter at man har søgt. Det må hvad jeg kan se skyldes at der ikke overføres nogle søgeværdier med over til næste visning, men hvordan gøre det bedst??.

KODE.:
<%
IF Query = "" then Query = Trim(Request.Form("Seekitem"))
IF Valg = "" then Valg = Trim(Request.Form("Valg"))
Set Conn = Server.CreateObject("ADODB.Connection")
%>
<!-- #include file="connect.asp" -->
<%

'Først skal vi have antallet af poster
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM tabel WHERE " & Valg &" LIKE '" & Query &"';")
intRecords = int(objRs("records"))

'Variabler til query'et
intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
    intPage = int(1)
else
    intPage = int(intPage)
end if

intPageSize = int(50)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1

intValue = (intRecords - intStart)
If intPageSize > intValue Then
    intPageSize = intValue
end if

Set objRs = Conn.Execute("SELECT * FROM tabel WHERE " & Valg &" LIKE '" & Query &"' LIMIT " & intStart & ", " & intPageSize & ";")

    if objRs.EOF or objRs.BOF then
        Response.Write "Ingen poster"
    else
        Response.Write "<table border=""1"" cellpadding=""3"">"
            Response.Write "<tr>"
                Response.Write "<td><b>id</b></td>"
                Response.Write "<td><b>Site</b></td>"
            Response.Write "</tr>"

            Do until objRs.EOF
                Response.Write "<tr>"
                    Response.Write "<td>" & objRs("valg") & "</td>"
                    Response.Write "<td><a href=""" & objRs("valg2") & """>" & objRs("valg3") & "</a></td>"
                Response.Write "</tr>"
            objRs.MoveNext
            Loop
        Response.Write "</table>"
    end if

'Udskriver en "sideliste"
For i = 1 to intPages
    if i = intPage then
        Response.Write "<b>" & i & "</b> "
    else
        Response.Write "<a href=""test.asp?page=" & i & """>"
        Response.Write i
        Response.Write "</a> "
    end if
next

%>
<!-- #include file="connectclose.asp" -->
<!-- #include file="bund.asp" -->