ASP执行存储过程返回记录分页

IIS6.0 + ASP + MS SQL 2K

任意一SP,如:
CREATE PROCEDURE usp_ProductPopTop AS
SELECT SUM(OD.Quantity) AS Times, P.ProductID, P.ProductName
FROM Products P INNER JOIN
      OrderDetails OD ON P.ProductID = OD.ProductID
GROUP BY P.ProductID, P.ProductName
ORDER BY Times DESC
GO

ASP代码:
ConnStr = "Provider=sqloledb;Data Source=localhost;Initial Catalog=Shop;User Id=sa;Password=;"
set conn=Server.CreateObject("ADODB.CONNECTION")
Conn.Open connstr
Set Cmd = Server.CreateObject("ADODB.Command")

Cmd.CommandText = "usp_ProductPopTop"          '存储过程名

'设命令类型为 存储过程

Cmd.CommandType = adCmdStoredProc

Set cmd.ActiveConnection = Conn

Set Rs = Cmd.Execute

Rs.PageSize = mPageSize

mPageCount = Rs.PageCount

IF Page < 1 Then Page = 1

IF Page > mPageCount Then Page = mPageCount

Rs.AbsolutePage = Page

For i = 1 to mPageSize

Response.Write Rs(0)

Rs.Movenext

Next

Rs.Close

....