ASP用存储过程没成功，各位帮忙看下

存储过程没有错误，在查询器里测试通过并显示数据正常

ASP调用这里出了错，找不出原因

VB code:

'````````````数据库连接省略`````````
y="2009"
m1=1
m2=11
userid=session("userid")
uid=6
set cmd=server.CreateObject("adodb.command")
with cmd
.activeconnection=conn
.commandText="getChukuList"
.commandType=4
.prepared=true
.parameters.append .CreateParameter("@Y",200,1,10,y)
.parameters.append .CreateParameter("@m1",3,1,4,m1)
.parameters.append .CreateParameter("@m2",3,1,4,m2)
.parameters.append .CreateParameter("@userid",3,1,4,userid)
.parameters.append .CreateParameter("@uid",3,1,4,uid)
set rs=.execute'创建记录集，用循环调用就死机
end with
do while not rs.eof
response.Write(rs("pubtime")&"<br>")
rs.movenext
loop
rs.close
set rs=nothing
cmd.close
set cmd=nothing



SQL code:
create procedure [dbo].[getChukuList]
(
@y varchar(10),
@m1 int,
@m2 int,
@userid int,
@uid int
)
as
declare @class_name varchar(50)
declare @gg varchar(10)
declare @dw varchar(5)
declare @values float
declare @num int
declare @cv float

declare mycur cursor--游标名mycur
for
-----