Recordset closing prematurely

[BG12424]

Here is my code. I am trying to execute this, but I get a return message indicating that the recordset is closed. I don't understand why this is telling me this. Thanks for your help.


if userid = "" then userid = 0

dim cmd, rs, dbConn, retval

Set dbConn = Server.CreateObject("ADODB.Connection&quot
dbConn.Open strConn

Set cmd = Server.CreateObject("ADODB.Command&quot
with cmd
.ActiveConnection = dbConn
.CommandText = "WVCalculateMargin"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("RETURN_VALUE", adInteger,adParamReturnValue)
.Parameters.Append .CreateParameter("@userID",adInteger,adParamInput, ,userid)
.Execute
retval = .Parameters("RETURN_VALUE&quot
end with

if retval = 1 then
Response.Write("Invalid User&quot
else
Set rs = Server.CreateObject("ADODB.Recordset&quot
Set rs = cmd.Execute
do while not rs.EOF ' GETTING ERROR HERE BECAUSE RS OBJECT IS APPARENTLY CLOSED
Response.Write(rs(&quot;ID&quot & &quot;<br>&quot
Response.Write(rs(&quot;BALANCE&quot & &quot;<br>&quot
Response.Write(rs(&quot;EQUITY&quot & &quot;<br>&quot
Response.Write(rs(&quot;MARGIN&quot & &quot;<br>&quot
Response.Write(rs(&quot;PROFIT&quot & &quot;<br>&quot
Response.Write(rs(&quot;TRADING_POWER&quot & &quot;<br>&quot
Response.Write(&quot;<HR>&quot
rs.MoveNext
loop
CloseRS(rs)
end if

CloseCmd(cmd)
CloseDBConn(dbConn) regards,
Brian

 

[schase]

Did you try moving your CloseRS(rs) to outside the end if? &quot;Damn the torpedoes, full speed ahead!&quot;

-Adm. James Farragut

Stuart

 

[GaryC123]

Are the spaces after - 'Parameters.Append ' intentional??? Saturday 12.00

20.00

3.00am

Sunday [img http

 

[BG12424]

regarding 'Parameters.Append ' intentional???

This is the syntax. regards,
Brian

 

[BG12424]

Yes, I tried moving the CloseRS(rs) outside the if condition. Thanks regards,
Brian

 

[BG12424]

Any ideas on this? I'm still stuck on it? Thanks regards,
Brian