Losing my recordset values

Question

Each field returned in this stored procedure has a value but when I write out the values some of them are blank. Any ideas?

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={SQL Server};server=localhost;database=db","test","test"

Set emailCMD = Server.CreateObject("ADODB.Command")
emailCMD.ActiveConnection = objconn
emailCMD.CommandType = adCmdStoredProc
emailCMD.CommandText = "get_email"

emailCMD.Parameters.Append(emailCMD.CreateParameter("userid",adInteger,adParamInput,,userid))
emailCMD.Parameters.Append(emailCMD.CreateParameter("emailaddress",adVarChar,adParamInput,100,emailaddress))
emailCMD.Parameters.Append(emailCMD.CreateParameter("emailjobid",adInteger,adParamInput,,emailjobid))
emailCMD.Parameters.Append(emailCMD.CreateParameter("businessid",adInteger,adParamInput,,businessid))

Set emailrs = emailCMD.Execute

emailbody = emailRS("emailjobdesc")
sendto = emailrs("emailaddress")
emailsubject = emailrs("emailjobsubject")   
emailid = emailrs("emailid")
emailpassword = emailrs("emailpassword")
businessname = emailrs("businessname")  

response.write emailbody & "<br>" & sendto & "<br>"&emailsubject&"<br>"&emailid&"<br>"&emailpassword&"<br>"&businessname
response.End

Answer 1

Here is how I fixed it

Replace:

Set emailrs = emailCMD.Execute

With

Set emailRS = server.createobject("ADODB.Recordset")
emailrs.cursorlocation = adUseClient
emailrs.open emailCMD