Paging problem

Jeg er ved at lave et debat site, men har stirret mig blind på et sikkert simpelt problem.
Koden herunder, der skal lave paging ligger i en iframe, hvor menuen ligger i en tabel uden for iframen.
Det der sker er, når man klikker på f.eks. side 2, så løber den tilbage som om der ikke er valgt noget. Jeg er sikker på at det er en af mine variabler el. lign. den er gal med.
Kode:

<%
'Hvis der ikke er forespurgt på nogen kommune
If Request.QueryString("kommune") = "" Then
    Response.Write "BLA BLA BLA"
Else
'Først skal vi have antallet af poster på den valgte kommune
sqlAntal = "SELECT COUNT(*) AS records FROM tbldebate WHERE fldConfirmed='1' AND (comID='" & Request("kommune") & "')"
Set objRs1 = conDB.Execute(sqlAntal)

intRecords = int(objRs1("records"))

'Lukker recordset
    objRs1.Close
        Set objRs1 = Nothing
strKommune = Request("kommune")

'Variabler til query´et
intPage = Request.QueryString("page")
'Hvis intPage er tom tildeles den værdien 1
if intPage = "" OR not isNumeric(intPage) then
    intPage = int(1)
else
        'intPage er lig siden der vælges ved klik
    intPage = int(intPage)
end if
'Der skal vises 3 indlæg pr side
intPageSize = int(3)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords / intPageSize)+1
intValue = (intRecords - intStart)
If intPageSize > intValue Then
intPageSize = intValue
end if

'sql query til udvælgelse af data
sqlCom2 = "SELECT * FROM tbldebate WHERE fldConfirmed='1' AND (comID='" & strKommune & "') LIMIT " & intStart & ", " & intPageSize & ";"
Set objRs2 = conDB.Execute(sqlCom2)
   
        'Hvis recordsettet er tomt
    if objRs2.EOF or objRs2.BOF then
        Response.Write "Der blev ikke fundet nogle debat indlæg<p>"
    else
                'Ellers udskriv data
        Response.Write "<table width='100%' border='0' cellpadding='1'>"
                           
            Do until objRs2.EOF
                Response.Write "<tr>"
                    Response.Write "<td>Dato:" & " " & objRs2("fldDate") & "</td></tr>"
                    Response.Write "<td>Navn:" & " " & objRs2("fldName") & "</td></tr>"
                                        Response.Write "<td>E-mail:" & " " & objRs2("fldEmail") & "</td></tr>"
                                        Response.Write "<td>Emne:" & " " & objRs2("fldSubject") & "</td></tr>"
                                        Response.Write "<td>Indlæg:" & " " & objRs2("fldContribution") & "</td></tr>"
                                        Response.Write "<td>&nbsp;</td></tr>"
                Response.Write "</tr>"
                        'flyt til næste record
            objRs2.MoveNext
                        'Loop igennem databasen
            Loop
        Response.Write "</table>"
    end if
'Lukker recordset
objRs2.Close
    Set objRs2 = Nothing


'Udskriver en sideliste
For i = 1 to intPages
    if i = intPage then
        Response.Write "<b>" & i & "&nbsp;</b>"
    else
        Response.Write "&nbsp;<a href='readcontribs.asp?page=" & i & "?kommune=" & strKommune & "' target='_self'>" & i & "</a>&nbsp;"               
    end if
next
End if

Jeg vil være lykkelig hvis der er en der kan gennemskue mit problem.