קוד שגיאה 0x800A0BB9 בASP

בקוד:
יש שגיאה :


ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

שורה הבעיתית לפי הקוד היא:


ors.AbsolutePage=currPage

השתמשתי במדריך הזה

והקוד שלי הוא:


<%
ORS.Open "SELECT * FROM guests where  active =1 ORDER BY id DESC", objConn, 3, 1


if ORS.EOF OR ORS.BOF Then
        response.write  "<br><br>"
        response.write  "<p align=center><b><font face ='verdana' size ='2'>There are no entries </font></b></p>"
end if

Dim currPage    'the currct page number
Dim pCount      'the number of all pages
Dim numRecs     'the nuber of messages on the page
numRecs=2
currPage=1
currPage = CInt(Request.QueryString("currPage"))

ORS.PageSize = numRecs
ORS.CacheSize = numRecs

if Not ors.EOF Then
    pCount=ors.pageCount
    ors.AbsolutePage=currPage
End If

Do While Not ors.EOF AND i < ors.pagesize
    'Data manipulation
    i = i + 1
    ORS.Movenext
    loop
    response.write "<br>total entries : " & i  & "</span><br><br>"
for i = 1 to pCount
    if Cint(i) = Cint(currPage) then
        Response.Write " <b>"& i &"</b> "
    Else
        Response.Write " <a href=""thePage.asp?currPage=" & i & """>"& i &"</a> "
    End If
Next
%>



אני בטוח שהשגיעה שלי היא טיפשית אבל אין לי מושג מה אני

תודה לכל העוזרים