CDONTS mailing

[sthmpsn1]

I have a script below which will send an email upon submiting. I want my to field to come from a database. Here is what I have right now objCDO.To = rs.field("supervisorsemail&quot.value. I get the following error message.

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'rs.field'
/am1st/MyStuff/time.asp, line 76


Can you help?


if Request.Form("FFSubmitted&quot = "yes" then
FormFields = ""
If FormFields <> &quot;&quot; Then
arrFormFields = split(FormFields,&quot;~&quot
End If
Set objCDO = Server.CreateObject(&quot;CDONTS.NewMail&quot
objCDO.From = &quot;timesheet@am1st.com&quot;
objCDO.To = rs.field(&quot;supervisorsemail&quot.value
objCDO.Cc = &quot;&quot;
objCDO.Bcc = &quot;&quot;
objCDO.Subject = &quot;Please Approve this time&quot;
BodyString = Replace(&quot;&quot;,&quot;~&quot;,chr(13) & chr(10) )& chr(13)
If FormFields <> &quot;&quot; Then
For Each item In arrFormFields
BodyString = BodyString & item & &quot;: &quot; & Request.Form(item) & chr(13)
Next
End If
objCDO.Body = BodyString
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Set objCDO = Nothing
RedirectURL = &quot;&quot;
If RedirectURL <> &quot;&quot; then
If Request.QueryString <> &quot;&quot; Then
response.redirect(RedirectURL & &quot;?&quot; & Request.QueryString)
else
response.redirect(RedirectURL)
end If
end if
end if
%>

 

[derren]

Hi

You should just need to specify your field differently:

objCDO.To = rs("supervisorsemail")

You seem to be confusing the ultradev way of writing fields with the asp programmer's way. Derren
[Mediocre talent - spread really thin]

 

[link9]

the name of the property is &quot;fields&quot;, and it will work either way.

rs(&quot;fieldName&quot

or

rs.fields(&quot;fieldName&quot

Actually, the second way is faster since the recordset object doesn't have to figure out what it's default property is, but I admit that I don't do it that way just for the sake of speed of coding. The performance gain will be negligible.


paul