emailing a link

[sthmpsn1]

I have the following email script that I want to include a link in the body. Here is my script and the current error I am getting. Can someone tell me how to change the bodystring area

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 = &quot;sthompson@am1st.com&quot;
objCDO.Cc = &quot;&quot;
objCDO.Bcc = &quot;&quot;
objCDO.Subject = &quot;Please Approve this timesheet&quot;
BodyString = &quot;The following user &quot; & ((rs2.Fields.Item(&quot;firstname&quot.Value) & &quot; &quot; & (rs2.Fields.Item(&quot;lastname&quot.Value)) & &quot; has submited his information for the health drawnings&quot; & <a href=&quot;maintain.asp&quot;>approve there TimeSheet</a>&quot;
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
%>

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/am1st/Mystuff/timeemail.asp, line 80, column 181
BodyString = &quot;The following user &quot; & ((rs2.Fields.Item(&quot;firstname&quot.Value) & &quot; &quot; & (rs2.Fields.Item(&quot;lastname&quot.Value)) & &quot; has submited his information for the health drawnings&quot; & <a href=&quot;maintain.asp&quot;>approve there TimeSheet</a>&quot;
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

 

[JuanitaC]

The double quotes in your string are the most likely culprit. Try using single quotes in your <a href='maintain.asp'> instead of double quotes.

 

[sthmpsn1]

adding the single quotes didn't help. I still get a syntax error.

 

[JuanitaC]

Try writing out your string to see if you can see a problem with it:


BodyString = &quot;The following user &quot; & ((rs2.Fields.Item(&quot;firstname&quot.Value) & &quot; &quot; & (rs2.Fields.Item(&quot;lastname&quot.Value)) & &quot; has submited his information for the health drawnings&quot; & <a href=&quot;maintain.asp&quot;>approve there TimeSheet</a>&quot;
If FormFields <> &quot;&quot; Then
For Each item In arrFormFields
BodyString = BodyString & item & &quot;: &quot; & Request.Form(item) & chr(13)
Next
End If
Response.write(&quot;String is &quot; & BodyString & &quot;<br>&quot
Response.end

 

[sthmpsn1]

everything is fine until I try and put HTML in the message. Does CDO mail support HTML messages?

 

[JuanitaC]

What does the string look like when it prints out on your screen?

 

[JuanitaC]

Check out this article on 4GuysFromRolla on sending CDONTS mail in HTML:

http://www.4guysfromrolla.com/webtech/faq/Email/faq6.shtml

In their example, these two lines are set to 0 not 1:

objCDO.BodyFormat = 1
objCDO.MailFormat = 1

 

[sthmpsn1]

I just saw the rolla site a second of go. that looks like my answer