Jump to content

  2. → Viewing Profile: Tópicos: sandino

sandino

Member Since 14/12/2003
Offline Last Active 23/07/2008, 04:07
-----

Topics I've Started

Envio De Email Com Html

13/10/2006, 17:42

Pessoal, possuo um sistema de email o qual envia uma tabela com algumas informações. Recebe as informações normalmente mas apresenta problemas no corpo do email, ou seja, na tabela que será enviada.

Segue abaixo código de toda a página. A parte em vermelho é a tabela onde ocorre o erro.

<%

Option Explicit

Dim email, optica, odesp, odcil, odeixo, odadicao, odlonge, odalt, oeesp, oecil, oeeixo, ponte, aha, dm, ve, tipolente,material, 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")
ponte = request.form("ponte")
aha = request.form("aha")
dm = request.form("dm")
ve = request.form("ve")
tipolente = request.form("tipolente")
material = request.form("material")
coloracao = request.form("coloracao")
tonalidade = request.form("tonalidade")
tratamento = request.form("tratamento")
armacao = request.form("armacao")
observacao = request.form("observacao")
para = "sandino.sa@terra.com.br"

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = para
EnviarMail.From = email
EnviarMail.Subject = "SITE MONDADORI - TESTE DE PEDIDO"
MsgBody = "<html>"_
&"<head>"_
&"<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />"_
&"<title>PEDIDO</title>"_
&"<style type="text/css">"_
&"<!--"_
&".style1 {color: #FF0000}"_
&"-->"_
&"</style>"_
&"</head>"_
&"<body>"_
&"<div>"_
&" <table cellspacing="1" cellpadding="0" border="1">"_
&" <tbody>"_
&" <tr>"_
&" <td valign="top" colspan="4"><p class="style1">"&email&"</p></td>"_
&" <td valign="top" colspan="16"><p> <span class="style1">"&optica&"</span></p></td>"_
&" </tr>"_
&" <tr>"_
&" <td valign="top" colspan="2"><p><strong>OD</strong></p></td>"_
&" <td valign="top" colspan="3"><p>"&odesp&"</p></td>"_
&" <td valign="top" width="7"><p><strong>CIL</strong></p></td>"_
&" <td valign="top" colspan="3"><p>"&odcil&"</p></td>"_
&" <td valign="top" colspan="2"><p align="center"><strong>EIXO</strong></p></td>"_
&" <td valign="top" width="28"><p>"&odeixo&"</p></td>"_
&" <td valign="top" colspan="3"><p align="center"><strong>ADIÇÃO</strong></p></td>"_
&" <td valign="top" colspan="5"><p>"&odadicao&"</p></td>"_
&" </tr>"_
&" <tr>"_
&" <td valign="top" colspan="2"><p><strong>OE</strong></p></td>"_
&" <td valign="top" colspan="3"><p>"&oeesp&"</p></td>"_
&" <td valign="top" width="7"><p><strong>CIL</strong></p></td>"_
&" <td valign="top" colspan="3"><p>"&oecil&"</p></td>"_
&" <td valign="top" colspan="2"><p align="center"><strong>EIXO</strong></p></td>"_
&" <td valign="top" width="28"><p>"&oeeixo&"</p></td>"_
&" <td valign="top" colspan="2"><p align="center"><strong>DP</strong></p></td>"_
&" <td valign="top" colspan="1"><p>"&odlonge&";</p></td>"_
&" <td valign="top" colspan="2"><p align="center"><strong>ALT</strong></p></td>"_
&" <td valign="top" colspan="5"><p>"&adalt&"</p></td>"_
&" </tr>"_
&" <tr>"_
&" <td valign="top" colspan="4"><p align="center"><strong>LENTE</strong></p></td>"_
&" <td valign="top" colspan="17"><p>"&tipolente&"</p></td>"_
&" </tr>"_
&" <tr>"_
&" <td valign="top" colspan="4"><p align="center"><strong>MATERIAL</strong></p></td>"_
&" <td valign="top" colspan="8"><p>"&material&"</p></td>"_
&" <td valign="top" colspan="2"><p><strong>COR</strong></p></td>"_
&" <td valign="top" colspan="8"><p>"&coloracao&"</p></td>"_
&" </tr>"_
&" <tr>"_
&" <td valign="top" colspan="6"><p align="center"><strong>TRATAMENTO</strong></p></td>"_
&" <td valign="top" colspan="15"><p>"&tratamento&"</p></td>"_
&" </tr>"_
&" <tr>"_
&" <td valign="top" width="16"><p><strong>P</strong></p></td>"_
&" <td valign="top" colspan="2"><p>"&ponte&"</p></td>"_
&" <td valign="top" colspan="2"><p><strong>H</strong></p></td>"_
&" <td valign="top" colspan="2"><p>"&aha&"</p></td>"_
&" <td valign="top" width="11"><p><strong>V</strong></p></td>"_
&" <td valign="top" colspan="2"><p>"&ve&"</p></td>"_
&" <td valign="top" colspan="2"><p><strong>DM</strong></p></td>"_
&" <td valign="top" colspan="2"><p>"&dm&"</p></td>"_
&" <td valign="top" colspan="4"><p><strong>ARMAÇÃO</strong></p></td>"_
&" <td valign="top" colspan="2"><p>"&armacao&"</p></td>"_
&" </tr>"_
&" <tr>"_
&" <td valign="top" colspan="3"><p><strong>OBS.</strong></p></td>"_
&" <td valign="top" colspan="17"><p>"&observacao&"</p></td>"_
&" </tr>"_
&" <tr height="0">"_
&" <td width="16"></td>"_
&" <td width="0"></td>"_
&" <td width="52"></td>"_
&" <td width="8"></td>"_
&" <td width="11"></td>"_
&" <td width="7"></td>"_
&" <td width="18"></td>"_
&" <td width="11"></td>"_
&" <td width="11"></td>"_
&" <td width="29"></td>"_
&" <td width="23"></td>"_
&" <td width="28"></td>"_
&" <td width="20"></td>"_
&" <td width="18"></td>"_
&" <td width="44"></td>"_
&" <td width="14"></td>"_
&" <td width="23"></td>"_
&" <td width="13"></td>"_
&" <td width="52"></td>"_
&" <td width="22"></td>"_
&" </tr>"_
&" </tbody>"_
&" </table>"_
&"</div>"_
&"</body>"_
&"</html>"
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

%>


O erro apresentado é o seguinte:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/exepedido.asp, line 37

&"<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />"_
--------------------^


Acredito que seja um pequeno problema em relação ao código ASP + HMTL

Aguardo ajuda!

Abração!

Problema Com Caracteres

13/10/2006, 15:28

Erro básico com caracteres! Segue o código

73 <%
74 nome = response.write(tabcliente.fields("nome"))
75 email = response.write(tabcliente.fields("email"))
76 %>
77 <%response.redirect("pedidosexe.asp?nome='"nome"'&email='"email"'")%>


Em vermelho o número da linha. Abaixo segue o ERRO:

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A03EE)
')' esperado
/wwwroot/exelog.asp, line 77, column 41
response.redirect("pedidosexe.asp?nome='"nome"'&email='"email"'")


Acredito ser coisa simples... Sempre me enrolo com os caracteres =/
Aguardo ajuda!

Abração!

Problemas Na Conexao

09/10/2006, 10:20

Pessoal to com problema de conexão. Preciso hospedar no terra e lá o banco de dados é MSDE, o qual nunca trabalhei. Já converti o arquivo de Access para o MSDE e estou com alguns problemas de conexão.
Vejamos:

Antes, usando o bd Access fazia a conexão da seguinte maneira e funcionava normalmente:

<% dim conexao,tabadmin,usuario,senha,caminho
Set oConn = Server.CreateObject("ADODB.Connection")
set tabadmin=server.createobject("adodb.recordset")
caminho=server.mappath("../bd/bd.mdb")
oConn.Open "DSN=user;UID=user;PWD=<senha>" caminho
usuario=request.form("usuario")
senha=request.form("senha")
tabadmin.open "select * from admin where usuario='"&usuario&"'",conexao %>


O terra aconselha usar a seguinte conexão:

<% Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=user;UID=user;PWD=<senha>"%>


Então fiz da seguinte maneira:

<% Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=user;UID=user;PWD=<senha>"%>
<% dim tabadmin,usuario,senha
set tabadmin=server.createobject("adodb.recordset")
usuario=request.form("usuario")
senha=request.form("senha")
tabadmin.open "select * from admin where usuario='"&usuario&"'"%>


E vem o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e4d'

[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'labmon'.

/admin/exelogin.asp, line 2


Ou este:

ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/admin/exelogin.asp, line 7


Já verifiquei várias vezes o login e senha e estão corretos! Espero uma ajuda em relação a esta conexão via DNS e Login q está me encomodando... :wacko:

Abração!

B)

Problemo Com Cdonts

02/08/2006, 14:16

Pessoal! Há alguns dias estou tendo problema com o envio de email! Após pesquisa descobri que o CDONTS, qdo não consegue enviar umas msg, armazena-a no diretório C:\Inetpub\mailroot\Badmail.
E adivinha só! Qdo abri o msm estavam lá todos os emails que 'pareciam' ser enviado (não reportava erro nenhum) porém, nunca chegavam ao destino! Isso representa que tenho algum problema com o componente em si e não com o código não é verdade !? Alguem já teve este problema e pode me ajudar?

Grato

Abraço!

Problema Com Email

29/07/2006, 00:37

E ai pessoal! Estou precisando fazer funcionar esse EMAIL, o qual recebe dados de um form e manda para o admin do site. É de uma óptica onde o cliente faz o pedido e o msm vai direto ao email do admin. Segue abaixo form e logo após cod asp.

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!

:)

  1. Fórum WMO
  2. → Viewing Profile: Tópicos: sandino
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq