Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Raphael

"Aspas"

Por , em ASP Clássico

Recommended Posts

Raphael    0

Raphael
Postado

Olá pessoal...Estou com a seguinte duvida...Tenho este código para fazer o envio de um e-mail<%dim useractionuseraction = request("action")select case useraction case "login" seunome = request.form("seunome") seuemail = request.form("seuemail") nomeamigo = request.form("nomeamigo") emailamigo = request.form("emailamigo") Set objCDO = Server.CreateObject("CDONTS.NewMail") htmlemail = htmlemail & "<html><head><title>.:Indicação Chiaperini Compressroes.:</title></head>" htmlemail = htmlemail & "<body>" htmlemail = htmlemail & "<table border="0" cellpadding="0" cellspacing="0" width="550">" htmlemail = htmlemail & "<tr><td><img src="../img/downloads/spacer.gif" width="224" height="1" border="0" alt=""></td>" htmlemail = htmlemail & "<td><img src="../img/downloads/spacer.gif" width="122" height="1" border="0" alt=""></td><td><img src="../img/downloads/spacer.gif" width="204" height="1" border="0" alt=""></td><td><img src="../img/downloads/spacer.gif" width="1" height="1" border="0" alt=""></td>" htmlemail = htmlemail & "</tr><tr><td><img name="Email_r1_c1" src="../img/downloads/Email_r1_c1.gif" width="224" height="73" border="0" alt=""></td>" htmlemail = htmlemail & "<td><img name="Email_r1_c2" src="../img/downloads/Email_r1_c2.gif" width="122" height="73" border="0" alt=""></td><td><img name="Email_r1_c3" src="../img/downloads/Email_r1_c3.gif" width="204" height="73" border="0" alt=""></td><td><img src="../img/downloads/spacer.gif" width="1" height="73" border="0" alt=""></td>" htmlemail = htmlemail & "</tr><tr><td colspan="3" background="../img/downloads/Email_r2_c1.gif" valign="top"><p><strong><font color="#000066" size="2" face="Verdana, Arial, Helvetica, sans-serif">Olá" htmlemail = htmlemail & & nomeamigo &,"<br>O seu amigo "& seunome& "vistou o site da Chiaperini Compressores na seção de Dowloads, e achou que você iria gostar de ver támbem!!!</font></strong><br>" htmlemail = htmlemail & "<font color="#FF9900"><br><a href="http://www.chiaperini.com.br/downloads.htm"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>http://www.chiaperini.com.br/downloads.htm</strong></font></a></font></p><p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#000066">Atenciosamente,</font></strong></font></p><p><font color="#000066"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Chiaperini" htmlemail = htmlemail & "Compressores - Compressores de Ar,<font color="#FF9900"> Use Esta Energia!!!</font><br><a href="http://www.chiaperini.com.br">http://www.chiaperini.com.br</a></font></strong></font></p></td>" htmlemail = htmlemail & "<td><img src="../img/downloads/spacer.gif" width="1" height="190" border="0" alt=""></td></tr>" htmlemail = htmlemail & "<tr><td><img src="../img/downloads/spacer.gif" width="1" height="229" border="0" alt=""></td></tr><tr>" htmlemail = htmlemail & "</tr></table></body></html>" objCDO.To = emailamigo objCDO.From = seunome objCDO.Subject = "V I S I T E ! ! !" objCDO.Body = htmlemail objCDO.MailFormat = 0 objCDO.Bodyformat = 0 objCDO.Send response.redirect "indique2.asp" end select%> Mas ao execulta-lo ela mostar o seguinte erro:Microsoft VBScript compilation error '800a0401' Expected end of statement /site/Indique_layout.asp, line 16 htmlemail = htmlemail & "<table border="0" cellpadding="0" cellspacing="0" width="550">"É um erro que diz Esperado final de declaração....Por me digam como solucionar este problema, pois naum sei bem se são as aspas no corpo do email que estão dando este erro... :huh: Grato pela atenção..Raphael.cpd@chiaperini.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

manga    0

manga
Postado

Quando você usa aspas dentro da declaração de uma variável em ASP você deve usar aspas simples:

 

htmlemail = htmlemail & "<td><img src='../img/downloads/spacer.gif' width='122' height='1' border='0'..."

T+

Manga

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Coloque as aspas duas vezes: "", será reconhecido com sendo somente uma.

Compartilhar este post

Link para o post
Compartilhar em outros sites

WebASP    0

WebASP
Postado

Lançar assim no replace

 

Conteudo = Replace(Variavel,"""","""""")

Compartilhar este post

Link para o post
Compartilhar em outros sites

Raphael    0

Raphael
Postado

Olá pessoal, Agradeço a atenção de todos, mas agora esta dando o seguinte erro...Microsoft VBScript compilation error '800a03ea' Syntax error /site/Indique_layout.asp, line 21 htmlemail = htmlemail & "</tr><tr><td colspan='3' background='../img/downloads/Email_r2_c1.gif' valign='top'><p><strong><font color='#000066' size='2' face='Verdana, Arial, Helvetica, sans-serif'>Olá" & nomeamigo &,----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^Deve ser na declaração da variavél o q devo fazer???ei ai o código:"</tr><tr><td colspan='3' background='../img/downloads/Email_r2_c1.gif' valign='top'><p><strong><font color='#000066' size='2' face='Verdana, Arial, Helvetica, sans-serif'>Olá" & nomeamigo &, htmlemail = htmlemail & "<br>O seu amigo" & seunome & "vistou o site da Chiaperini Compressores na seção de Dowloads, e achou que você iria gostar de ver támbem!!!</font></strong><br>"Grato...Raphael....

Compartilhar este post

Link para o post
Compartilhar em outros sites

JucaMaster    0

JucaMaster
Postado

Não borther, você esqueceu de colocar as aspas na vírgula depois do & amigo &htmlemail = htmlemail & "</tr><tr><td colspan='3' background='../img/downloads/Email_r2_c1.gif' valign='top'><p><strong><font color='#000066' size='2' face='Verdana, Arial, Helvetica, sans-serif'>Olá" & nomeamigo & ","

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito