I am trying send information to the DB and the SP will return a recordset. The problem is that I keep getting this error (ADODB.Recordset error '800a0e78' Operation is not allowed when the object is closed). I saw a bunch of posts using queries, but none using SPs and cannot resolve the issue.
Here is a sample of the code... If more is needed let me know
Dim IsRate Dim cmd
Dim rs
Set cmd = createobject("ADODB.Command")
Set rs = createobject("ADODB.RecordSet")
with cmd
.ActiveConnection=gObjConnect
.CommandType=adCmdStoredProc
.CommandText="RateList_test"
.Parameters.Append .CreateParameter("@ZipFrom",adVarChar, adParamInput,6,mZipFr)
.Parameters.Append .CreateParameter("@ZipTo", adVarChar, adParamInput,6,mZipTo)
'........
.Parameters.Append .CreateParameter("@RateUsed", adInteger, adParamOutput,,0)
Set rs = cmd.Execute
IsRate = cmd.Parameters("@RateUsed")
response.Write rs.Status
end with
set cmd = nothing
Dim sqlCar, RScar, SFlag
SweeneyFlag = 0
if not rs.eof then '-->Fails here