asp调用存储过程并分页

1.是asp（vbscript）不是asp.NET
2.是asp调用存储过程返回记录集然后这个记录集再分页，不是写怎么分页的存储过程
3.好几年没写asp代码了，好多都不记得了，拜托大家帮帮忙

4.我在网上找了一段但是调试有错误
VBScript code:

<%
'asp调用存储过程返回记录集分页
Dim page_no
page_no=Request("page_no")

If page_no="" or isNULL(page_no) Then

page_no=1
Else
page_no=Cint(page_no)
End If


%>
<%

Set oCmd = Server.CreateObject("ADODB.Command")
Set rs = Server.CreateObject("ADODB.RecordSet")

oCmd.ActiveConnection = conn
oCmd.CommandTimeout= 60
oCmd.CommandText="proc_get_khkye"
oCmd.CommandType = 4
oCmd.Prepared = true
'存储过程有参数的话就在这加-------------------
'Set rs = oCmd.Execute
'rs.Open oCmd,,1,1
rs.cursorlocation = 3 '---要有分页参数rs.AbsolutePage 必须一
rs.open oCmd,,3 '---要有分页参数rs.AbsolutePage 必须二

'rs.Open "Execute spstudentInfos",oConn
'ArrayMy = rs.GetRows()

rs.PageSize=20
page_total=rs.PageCount
rs.AbsolutePage=page_no
I= rs.PageSize


Do While Not rs.Eof And I > 0
I=I-1

%>


<tr>
-------
中间略
-------
</tr>

<%
rs.MoveNext
Loop
%>


</table>
<%
'---------------------------------------------------------