Fortsat paging problem

Nu er jeg ved at blive sindsyg...
Jeg kan ikke få følgende til at tælle det rigtige antal sider

'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")

'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 2 indlæg pr side
intPageSize = int(2)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intValue = (intRecords - intStart)

intPages = int(intRecords / intPageSize)+1
If intPageSize > intValue Then
intPageSize = intValue
end if

Hvis jeg fjerne +1 i linien
intPages = int(intRecords / intPageSize)+1
så tælles der korrekt på ulige sideantal og én side for meget på lige sideantal.
Jeg skal derfor have evalueret størrelsen af sideantallet men hvordan?