请高手帮我看看下面的asp调用存储过程的代码

[welcomgoodies]

Set Comm=server.CreateObject("adodb.command")
Set Comm.ActiveConnection=conn
Comm.CommandType=adCmdStoredProc
Comm.CommandText="QydataUpdate"

'这是给存储过程传递的参数
Set zsbh1=Comm.CreateParameter("@zsbh",adVarchar,adParamInput,50)
Set ywlb1=Comm.CreateParameter("@ywlb",adVarchar,adParamInput,50)
Set ywsq1=Comm.CreateParameter("@ywsq",adVarchar,adParamInput,50)
Set njnd1=Comm.CreateParameter("@njnd",adVarchar,adParamInput,50)
Set jjpc1=Comm.CreateParameter("@jjpc",adInteger,adParamInput)
Set sbsj1=Comm.CreateParameter("@sbsj",adDatetime,adParamInput)
Set spjb1=Comm.CreateParameter("@spjb",adVarchar,adParaminput,50)
'这是存储过程返回的值的参数
Set ReturnCode=Comm.CreateParameter("ReturnCode",adInteger,adParamReturnValue)
Comm.Parameters.Append zsbh1
Comm.Parameters.Append ywlb1
Comm.Parameters.Append ywsq1
Comm.Parameters.Append njnd1
Comm.Parameters.Append jjpc1
Comm.Parameters.Append sbsj1
Comm.Parameters.Append spjb1
'给参数赋值
Comm.Parameters("zsbh1")=zsbh
Comm.Parameters("ywlb1")=ywlb
Comm.Parameters("ywsq1")=ywsq
Comm.Parameters("njnd1")=njnd
Comm.Parameters("jjpc1")=jjpc
Comm.Parameters("sbsj1")=sbsj
Comm.Parameters("spjb1")=spjb
Comm.Execute
ReCode=Cint(Comm("ReturnCode"))'这是存储过程返回的值，根据这个值判断存储过程执行是否成功
if ReCode<0 then
conn.close
response.write "<script language='javascript'>"
response.write "alert('提交数据出错，您本次提交的数据没有成功，请从新提交！');"
response.write "window.location.replace('sb.asp');"
response.write "</script>"
response.end
end if
response.Write Cint(Comm("ReturnCode"))
response.End

存储过程好像没有执行，开始提示定义参数不对，后来什么反应也没有，不知道是那里出错了；也没有打印结果，不知道是什么回事

[jiejifeng]

写的这么乱，直接用
.parameters.apppend .createparameter()这样不就行了嘛

[香椿炒鸡蛋]

看看你的存储过程有没有问题，我今天也是同样的问题 不过我搞定了 结果是存储过程的事务处理不对，要仔细测试一下，尤其注意错误条件的测试

[DeltaCat]

Comm.CommandType=adCmdStoredProc


你的 adCmdStoredProc 定义了没有？