pedido.asp
<table width="200" border="1" align="center" bordercolor="#FFFFFF">
<tr bgcolor="#EFEFEF">
<td><div align="center" class="style7">Seu Email </div></td>
<td><div align="center" class="style7">Óptica</div></td>
</tr>
<tr>
<td><label>
<input name="email" type="text" id="email" size="35">
</label></td>
<td><label>
<input name="optica" type="text" id="optica" size="35">
</label></td>
</tr>
</table>
<br>
<span class="style7">RECEITA</span><br>
<br>
<table width="547" border="1" bordercolor="#FFFFFF">
<tr bgcolor="#EFEFEF" class="style7">
<td bgcolor="#FFFFFF" class="style7"><div align="center"></div></td>
<td><div align="center">Esp</div></td>
<td><div align="center">Cil</div></td>
<td><div align="center">Eixo</div></td>
<td><div align="center">Adicao</div></td>
<td><div align="center">DNP/Longe</div></td>
<td><div align="center">Alt</div></td>
</tr>
<tr>
<td bgcolor="#EFEFEF" class="style7"><div align="center">OD</div></td>
<td><label>
<input name="odesp" type="text" id="odesp" size="5">
</label></td>
<td><input name="odcil" type="text" id="odcil" size="5"></td>
<td><input name="odeixo" type="text" id="odeixo" size="5"></td>
<td><input name="odadicao" type="text" id="odadicao" size="5"></td>
<td><input name="odlonge" type="text" id="odlonge" size="5"></td>
<td><input name="odalt" type="text" id="odalt" size="5"></td>
</tr>
<tr>
<td bgcolor="#EFEFEF" class="style7"><div align="center">OE</div></td>
<td><input name="oeeps" type="text" id="oeeps" size="5"></td>
<td><input name="oecil" type="text" id="oecil" size="5"></td>
<td><input name="oeeixo" type="text" id="oeeixo" size="5"></td>
<td><input name="oeadicao" type="text" id="oeadicao" size="5"></td>
<td><input name="oelonge" type="text" id="oelonge" size="5"></td>
<td><input name="oealt" type="text" id="oealt" size="5"></td>
</tr>
</table>
<table width="200" border="1" align="center" bordercolor="#FFFFFF">
<tr class="style7">
<td><div align="center">Ponte</div></td>
<td><div align="center">H</div></td>
<td><div align="center">DM</div></td>
<td><div align="center">V</div></td>
</tr>
<tr>
<td><label>
<input name="ponte" type="text" id="ponte" size="7">
</label></td>
<td><label>
<input name="aha" type="text" id="aha" size="7">
</label></td>
<td><label>
<input name="dm" type="text" id="dm" size="7">
</label></td>
<td><label>
<input name="ve" type="text" id="ve" size="7">
</label></td>
</tr>
</table>
<br>
<table width="398" border="1" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<tr bgcolor="#EFEFEF" class="style7">
<td><div align="center">Tipo de Lente </div></td>
<td><div align="center">Coloração</div></td>
<td><div align="center">Tonalidade</div></td>
</tr>
<tr>
<td><label>
<input name="tipolente" type="text" id="tipolente">
</label></td>
<td><label>
<input name="coloracao" type="text" id="coloracao">
</label></td>
<td><label>
<input name="tonalidade" type="text" id="tonalidade">
</label></td>
</tr>
</table>
<table width="200" border="1" bordercolor="#FFFFFF">
<tr bgcolor="#EFEFEF" class="style7">
<td><div align="center">Tratamento</div></td>
<td><div align="center">Armação</div></td>
</tr>
<tr>
<td><label>
<input name="tratamento" type="text" id="tratamento">
</label></td>
<td><label>
<input name="armacao" type="text" id="armacao">
</label></td>
</tr>
</table>
<br>
<br>
<table width="200" border="1" bordercolor="#FFFFFF">
<tr class="style7">
<td bgcolor="#EFEFEF">Observações</td>
</tr>
<tr>
<td><label>
<textarea name="observacao" cols="50" rows="6" id="observacao"></textarea>
</label></td>
</tr>
</table>
exepedido.asp
<%
Option Explicit
Dim email, optica, odesp, odcil, odeixo, odadicao, odlonge, odalt, oeesp, oecil, oeeixo, oeadicao, oelonge, oealt, ponte, aha, dm, ve, tipolente, coloracao, tonalidade, tratamento, armacao, observacao, para, EnviarMail, MsgBody
email = Request.form("email")
optica = Request.form("optica")
odesp = Request.form("odesp")
odcil = request.form("odcil")
odeixo = request.form("odeixo")
odadicao = request.form("odadicao")
odlonge = request.form("odlonge")
odalt = request.form("odalt")
oeesp = request.form("oeesp")
oecil = request.form("oecil")
oeeixo = request.form("oeeixo")
oeadicao = request.form("oeadicao")
oelonge = request.form("oelonge")
oealt = request.form("oealt")
ponte = request.form("ponte")
aha = request.form("aha")
dm = request.form("dm")
ve = request.form("ve")
tipolente = request.form("tipolente")
coloracao = request.form("coloracao")
tonalidade = request.form("tonalidade")
tratamento = request.form("tratamento")
armacao = request.form("armacao")
observacao = request.form("observacao")
para = "sandino_rs@hotmail.com"
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = para
EnviarMail.From = email
EnviarMail.Subject = "SITE MONDADORI - TESTE DE PEDIDO"
MsgBody = "<html>"_
&"<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" />"_
&"<title>PEDIDO</title>"_
&"<style type=""text/css"">"_
&".style1 {color: #FF0000}"_
&".style3 {color: #FF0000; font-size: 18px; }"_
&".style4 {font-family: ""Palatino Linotype""}"_
&".style5 {font-family: ""Palatino Linotype""; color: #FF0000; }"_
&".style6 {"_
&"font-size: 14px;"_
&"font-weight: bold;"_
&"}"_
&".style7 {color: #000000}"_
&".style8 {font-family: ""Palatino Linotype""; color: #000000; }"_
&".style10 {color: #FF0000; font-size: 12px; }"_
&"</style></head>"_
&"<body>"_
&"<p class=""style4"">Pedido efetuado por <span class=""style3"">"&email&"</span> <br />"_
&"Óptica: <span class=""style1"">"&optica&"</span></p>"_
&"<p class=""style4"">RECEITA:</p>"_
&"<p class=""style5""><span class=""style6"">OLHO DIREITO</span> <br />"_
&"<span class=""style7"">Esp: <span class=""style1"">"&odesp&"</span> <br />"_
&"Cil: <span class=""style1"">"&odcil&"</span><br />"_
&"Eixo: <span class=""style1"">"&odeixo&"</span> <br />"_
&"Adição: <span class=""style1"">"&odadicao&"</span> <br />"_
&"DNP/Longe: <span class=""style1"">"&odlonge&" </span><br />"_
&"Alt: <span class=""style1"">"&odalt&"</span> </span></p>"_
&"<p class=""style5""><span class=""style6"">OLHO ESQUERDO<br />"_
&"</span><span class=""style7"">Esp: <span class=""style1"">"&oeesp&"</span> <br />"_
&"Cil: <span class=""style1"">"&oecil&"</span><br />"_
&"Eixo: <span class=""style1"">"&oeeixo&"</span> <br />"_
&"Adição: <span class=""style1"">"&oeadicao&"</span> <br />"_
&"DNP/Longe: <span class=""style1"">"&oelonge&" </span><br />"_
&"Alt: <span class=""style1"">"&oealt&"</span></span></p>"_
&"<p class=""style8"">Ponte: <span class=""style1"">"&ponte&" </span><br />"_
&"H: <span class=""style1"">"&aha&" </span><br />"_
&"DM: <span class=""style1"">"&dm&" </span><br />"_
&"V: <span class=""style1"">"&ve&"</span> </p>"_
&"<p class=""style8"">Tipo Lente: <span class=""style1"">"&tipolente&" </span><br />"_
&"Coloração: <span class=""style1"">"&coloracao&" </span><br />"_
&"Tonalidade: <span class=""style1"">"&tonalidade&" </span><br />"_
&"Tratamento: <span class=""style1"">"&tratamento&" </span><br />"_
&"Armação: <span class=""style1"">"&armacao&" </span></p>"_
&"<p class=""style8""><strong>OBS.:</strong><br />"_
&"<span class=""style10"">"&observacao&"</span></p>"_
&"</body>"_
&"</html>"_
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send
Set EnviarMail = Nothing
%>
O problema está acontecendo no cod HTML inserido no 'MsgBody'. A linha 84 está em vermelho.
ERRO
Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado
/exepedido.asp, line 84
EnviarMail.Body = MsgBody
Aguardo ajuda. Grande abraço a todos!
