下面这个程序错在哪里?急啊!
<!--#include file="adovbs.inc"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<%
session("user_id")=1
bz="01"
zhh="304061189715000180"
ftime="20010101"
ltime="20011212"
%>
<%
set conn=server.CreateObject ("adodb.connection")
connstr="provider=sqloledb; data source=yzy;uid=sa;pwd=111; database=dzxtlib1"
conn.Open connstr
Set RS=Server.Createobject("ADODB.RecordSet")
Set comd = Server.CreateObject("ADODB.Command")
comd.ActiveConnection = conn
Comd.CommandType=adCMdStoredProc
comd.CommandText = "sp_get_NBMX" '存储过程名
'comd.CommandType = adCmdStoredProc
Set prm = comd.CreateParameter("usr_id",adInteger,adParamInput)
comd.Parameters.Append prm
Set prm = comd.CreateParameter("bzcode",adchar,adParamInput,2)
comd.Parameters.Append prm
Set prm = comd.CreateParameter("mxzh",adchar,adParamInput,18)
comd.Parameters.Append prm
Set prm = comd.CreateParameter("mxrq0",adchar,adParamInput,8)
comd.Parameters.Append prm
Set prm = comd.CreateParameter("mxrq1",adchar,adParamInput,8)
comd.Parameters.Append prm
set prm = comd.CreateParameter ("mxzh_ye",adDecimal,adParamOutput,18.2)
comd.Parameters.Append prm
set prm = comd.CreateParameter ("mxzh_yefx",adchar,adParamOutput,1)
comd.Parameters.Append prm
set prm = comd.CreateParameter ("rtn_msg",adchar,adParamOutput,30)
comd.Parameters.Append prm
Comd.Parameters("usr_id")=session("user_id")
comd.Parameters ("bzcode")=bz
comd.Parameters ("mxzh")=zhh
comd.Parameters ("mxrq0")=ftime
comd.Parameters ("mxrq1")=ltime
set RS=comd.Execute
%>
</BODY>
</HTML>
为什么在set RS=comd.Execute中有错?