help!!!assignment to be handed in!!help!!

hk1980 2001-11-28 10:43:07

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>

<P> </P>

<%
dim objRS,objParam,objComm
set objComm=Server.CreateObject("ADODB.Command")

objComm.ActiveConnection=objConn'"Provider=SQLOLEDB.1;Password=198012;Persist Security Info=False;User ID=sa;Initial Catalog=vaio;"
objComm.CommandText="pr_xk_132_选课系统"
objComm.CommandType=adCmdStoredProc

Set objParam=objComm.CreateParameter("xh",adVarChar,adParamInput,20)
objComm.Parameters.Append objParam
objComm.Parameters("xh")=Request.QueryString("xh")

Set objParam=objComm.CreateParameter("kcbh",adVarChar,adParamInput,20)
objComm.Parameters.Append objParam
objComm.Parameters("kcbh")=Request.QueryString("kcbh")

Set objParam=objComm.CreateParameter("jsbh",adVarChar,adParamInput,20)
objComm.Parameters.Append objParam
objComm.Parameters("jsbh")=Request.QueryString("jsbh")

objComm.Execute '此处报错

Set objComm=Nothing
Set objParam=Nothing

'Response.Write AllRec(objRS)

Set objConn=Nothing

%>

</BODY>
</HTML>

...全文