Pageing i ASP?

Hejsa folks. Jeg har et problem med min pageingkode.
Nedenstående kode opdeler recordsettet(RS) i flere sider/pages af 3 records pr. side. Det fungerer også helt fint - og jeg får udskrevet at der er x-antal sider. Men det mystiske er så, at ALLE records i RS er på ALLE sider...hvad gør jeg galt?
Koden kommer her:

------------------Snip-------------------
SQLstmt = \"SELECT * FROM Forum WHERE parentId = 0 ORDER BY Dato DESC\"
OpenRS(SQLstmt)

       
\'Pageing af RS
If Request.Querystring(\"page\") = \"\" Then
    intPage = 1
Else
    intPage = Trim(CInt(Request.Querystring(\"page\")))
End If

RS.PageSize = 3

If intPage > RS.PageCount OR intPage < 1 Then
    intPage = 1
End If
   
RS.AbsolutePage = intPage

------------------Snip-------------------


Og funktionen som åbner RS er følgende (OpenRS())
------------------Snip-------------------
Function OpenRS(theSQL)
    Set DB = Server.CreateObject(\"ADODB.Connection\")
    DB.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & dbpath
    Set RS = Server.Createobject(\"ADODB.Recordset\")
    RS.Open theSQL, DB, 1
End Function
------------------Snip-------------------