- dim val
-
set rm = Server.CreateObject ("ADODB.Command")
-
rm.ActiveConnection=OBJdbConnection
-
rm.CommandText="exec get_user"
-
-
rm.Parameters.Append rm.CreateParameter("RETURN",adInteger,adParamReturnValue,4)
-
-
rm.Parameters.Append rm.CreateParameter("@user_id",adVarChar,adParamInput,8,NoStaf)
-
-
rm.Parameters.Append rm.CreateParameter("@pwd",adVarChar,adParamInput,12,Pwd)
-
rm.Execute
-
val=rm.Parameters("RETURN").Value
-
------------------------------------------------------------------------------------------------------------------ADODB.Command error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/Intranet/MainVal2.asp, line 14
