EMail body HTML code-- ERROR

[Aru]

Hi All,
I am getting this error Microsoft VBScript compilation error '800a0401'

Expected end of statement

the code is:

objCDOMail.HTMLBody  = "<table border=""0"" width=""100%" "cellspacing=""0" "cellpadding=""0"">""<tr>""<td colspan=""4"">""<p align=""center""><font color=#330066 face=""Verdana" "size=""2""><b><u>""The Rate Request details from the Website </u></b></font></td>""</tr>""<tr>""<td width=""25%"">&nbsp;</td>""<td width=""16%"">&nbsp;</td>""<td width=""4%"">&nbsp;</td>""<td width=""52%"">&nbsp;</td>""</tr>""<tr>""<td width=""25%"">&nbsp;</td>""<td width=""16%"" align=""right""><i><b><font face=""Verdana""size=""2"">Name:</font></b></i></td>""<td width=""4%"">&nbsp;</td>""<td width=""52%""align=""left"">"& firstName &"</td>""</tr>""<tr>""<td width=""25%"">&nbsp;</td>""<td width=""16%" "align=""right"">&nbsp;</td>""<td width=""4%"">&nbsp;</td>""<td width=""52%" "align=""left"">&nbsp;</td>""</tr>"    "<tr>""<td width=""25%"">&nbsp;</td>""<td width=""16%" "align=""right""><i><b><font face=""Verdana" "size=""2"">"        "Company Name:</font></b></i></td>""<td width=""4%"">&nbsp;</td>""<td width=""52%" "align=""left"">"& lastName &"</td>"    "</tr>""<tr>""<td width=""25%"">&nbsp;</td>""<td width=""16%" "align=""right"">&nbsp;</td>""<td width=""4%"">&nbsp;</td>""<td width=""52%" "align=""left"">&nbsp;</td>""</tr>""<tr>""<td width=""25%"">&nbsp;</td>"        "<td width=""16%" "align=""right""><i><font face=""Verdana" "size=""2""><b>Email:</b></font></i></td>"        "<td width=""4%"">&nbsp;</td>""<td width=""52%" "align=""left"">"& street1 &"</td>""</tr>""<tr>""<td width=""25%"">&nbsp;</td>""<td width=""16%" "align=""right"">&nbsp;</td>""<td width=""4%"">&nbsp;</td>""<td width=""52%" "align=""left"">&nbsp;</td>""</tr>""<tr>""<td width=""25%"">&nbsp;</td>""<td width=""16%" "align=""right""><i><font face=""Verdana" "size=""2""><b>Phone ""Number: </b></font></i></td>""<td width=""4%"">&nbsp;</td>""<td width=""52%" "align=""left"">"& street2 &"</td>""</tr>""<tr>""<td width=""25%"">&nbsp;</td>"        "<td width=""16%" "align=""right"">&nbsp;</td>""<td width=""4%"">&nbsp;</td>""<td width=""52%"" align=""left"">&nbsp;</td>""</tr>""<tr>""<td width=""25%"">&nbsp;</td>""<td width=""16%" "align=""right""><i><b><font face=""Verdana" "size=""2"">""Message:</font></b></i></td>""<td width=""4%"">&nbsp;</td>""<td width=""52%"" align=""left"">"& town &"</td>""</tr>""</table>""
 

I know it sucks........

If anyone has the patience to go thru and tell me where I am making the mistake.


Thanks for your patience and answer

Aru

[jhardman]

Aru,

1- split this up into multiple lines
2- get a better method for handling quote marks - HTML will accept single quotes usually, if that doesn't work, use the character code chr(34)
Making those two changes will solve all your problems.

dim myText, q
q = chr(34)
myText = "<table border=" & q & "0" & q 
myText = myText & " width=" & q & "100%" & q
myText = myText & " cellspacing=" & q & "0" & q
myText = myText & " cellpadding="& q & "0" & q
myText = myText & "><tr><td colspan=" & q & "4" & q & ">"
'etc
objCDOMail.HTMLBody  = myText
 

some email components also allow sending premade HTML pages as email bodies, you just need to send a reference. You are using CDOSYS, rioght? You should be able to do that if it is convenient to do. Let me know if this helps.

Jared