分页显示有错，求救了！！！

[George96]

代码如下：

<% Dim currentPage,rowcount,i
currentPage=Trim(request("currentPage"))
if currentPage="" then currentPage = 1
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "DSN=test;UID=sa;PWD=test;DATABASE=test"
Set RS=server.CreateObject("ADODB.RecordSet")
RS.CursorType =adOpenStatic
RS.PageSize =5
RS.Open "select userid,email,regidate,fee_flag,fee_date,set_flag from user_info",Con
RS.AbsolutePage = cINT(currentPage)
rowcount=0
%>
.......
<% for i=1 to RS.PageCount%>
<font color=White> <a href="manage.asp?currentPage=<%=i%>"><%=i%> </a></font>
<%
next
%>

总是提示：RS.AbsolutePage=cINT(currentPage)
这一行出错：错误类型：
ADODB.Recordset (0x800A0CB3)

[tripofdream]

RS.CursorType =adOpenStatic
常量adOpenStatic没定义
改成RS.CursorType=3或把adovbs.ini包含进来