Paging i gæstebog

Jeg vil have lavet en paging på min gæstebog, men får en fejlmeddelse på dette script, kan ikke se hvad der er galt.

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Query2 = "SELECT * FROM bog ORDER BY Dato DESC;"
Set rs2 = connect.Execute(Query2)

'linje 75 nedenfor
If Not (rs2.EOF OR rs2.BOF) Then
    rs2.PageSize = 10
    rs2.AbsolutePage = intPage
    intRecCount = rs2.PageSize
    intPageCount = rs2.PageCount
    Do While Not rs2.EOF And intRecCount > 0



Fejlmrdd:
ADODB.Recordset fejl '800a0cb3'
Den handling, programmet anmodede om, understøttes ikke af provideren.
gaestebog.asp, linje 75