Mail object error. Invalid use of Null: 'cstr'

[rakishoner]

Any idea what would cause this in my code?

Thanks in advance.


============================================================
Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'cstr'
============================================================

For i = 1 to Request.Form("Topic&quot.Count
set objMail = CreateObject("CDONTS.NewMail&quot
TempInterest = TempInterest & Request.Form("Topic&quot.Item(i) & " "
DistribSQL = DistribSQL & " or CIInterests.InterestName = '" _
& Request.Form("Topic&quot.Item(i) & "' "
set RSEmailResponses = conn.execute ("select * from CIInterests " _
& " where InterestName = '" & Request.Form("Topic&quot.Item(i) & "'&quot
objnewMail.Send RSEmailResponses("RespondTo&quot,Request.Form("EmailAddress&quot,_
RSEmailResponses("MessageSubject&quot,cstr(RSEmailResponses("MessageText&quot)
set objmail = nothing
Next

 

[jmerencilla]

check the following:

1. is RSEmailResponses("MessageText&quot
2. if RSEmailResponses("MessageText&quot is not null, have you tried assigning the value of cstr(RSEmailResponses("MessageText&quot) to a variable before passing it as a parameter?

inform me if this works.

 

[Tarwn]

Also, I have noticed occasional problems with the type conversion functions that sometimes magically fix themselves (ie I fiddle with the code for a while and can't remember what I have done). A cheap, quick, and nasty way to convert to string is just to concatenate an empty string to it:
dim myNumber, myStr
myNumber = 5
myStr = "" & 5


-Tarwn ------------ My Little Dictionary ---------
Reverse Engineering - The expensive solution to not paying for proper documentation

 

[rakishoner]

I found the problem with the 'cstr' null problem. I had blank feilds in my db and it didn't want them to be null. But now that I have that taken care of I have a new problem.

Where objMail.Send RSEmailResponses("RespondTo&quot,Request...

If more code needed np.

============================================================
Microsoft VBScript runtime error '800a000d'

Type mismatch
============================================================

For i = 1 to Request.Form("Topic&quot.Count
set objMail = CreateObject("CDONTS.NewMail&quot
TempInterest = TempInterest & Request.Form("Topic&quot.Item(i) & " "
DistribSQL = DistribSQL & " or CIInterests.InterestName = '" _
& Request.Form("Topic&quot.Item(i) & "' "
set RSEmailResponses = conn.execute ("select * from CIInterests " _
& " where InterestName = '" & Request.Form("Topic&quot.Item(i) & "'&quot
objMail.Send RSEmailResponses("RespondTo&quot,Request.Form("EmailAddress&quot,_
RSEmailResponses("MessageSubject&quot,cstr(RSEmailResponses("MessageText&quot)
set objmail = nothing
Next