Stadig et paging problem

Udvælgelsen til mit paging tæller for mange indlæg. Det er sådan at der kun skal vælges indlæg fra den valgte kommune, hvor fldConfirmed i min db = 1. Der kan ses en test på http://www.fhn.dk/ods/
Koden til paging siden er som følger:

<%
'Hvis der ikke er forespurgt på nogen kommune
If Request.QueryString("kommune") = "" Then
    Response.Write "<div align='center'><img src='images/readodsnu.jpg' border='0' alt=''></div>"
Else
'Først skal vi have antallet af poster på den valgte kommune
sqlAntal = "SELECT COUNT(*) AS records FROM tbldebate WHERE (comID='" & Request("kommune") & "' AND fldConfirmed='1')"
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")
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(2)
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 (comID='" & strKommune & "' AND fldConfirmed='1') LIMIT " & intStart & ", " & intPageSize & ";"
Set objRs2 = conDB.Execute(sqlCom2)
   
        'Hvis recordsettet er tomt
    if objRs2.EOF or objRs2.BOF then
            Response.Write "<table width='100%' border='0' cellpadding='1'>"
            Response.Write "<tr>"
            Response.Write "<td>&nbsp;</td>"
            Response.Write "</tr>"
            Response.Write "<tr>"
            Response.Write "<td>"
      Response.Write "<p><h5><center>Der blev ikke fundet nogle debat indlæg<p></center></h5>"
            Response.Write "</td>"
            Response.Write "</tr>"
            Response.Write "</table>"
    else
                'Ellers udskriv data
        Response.Write "<table width='300' align='center' 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
%>

Hjælp modtages med taknemlighed og selvfølgelig point.