Ir para conteúdo

POWERED BY:

Arquivado

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

maurohpg

Envio de email

Por , em ASP Clássico

Recommended Posts

maurohpg    0

maurohpg
Postado

Alguém saberia me dizer o que pode estar erradp aqui? Estava funcinando até puco tempo atras!

Obrigado desde já!

 

<% @LANGUAGE = VBScript %><% Response.Expires = -1000 %><%Dim vNOM,vESC,vEMM,vDEP,vMSGDim htmlText,MailvNOM = Request.Form("nome")vESC = Request.Form("escola")vEMM = Request.Form("email")vDEP = Request.Form("depto")vMSG = Request.Form("mensagem")vMSG = Replace(vMSG,chr(13),"<br>")htmlText = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"htmlText = htmlText & "<HTML>"htmlText = htmlText & "<HEAD>"htmlText = htmlText & "<TITLE>:: EDAcom Tecnologia ::</TITLE>"htmlText = htmlText & "</HEAD>"htmlText = htmlText & "<BODY>"htmlText = htmlText & "<TABLE border=0 cellspacing=1 width=500 height=1>"htmlText = htmlText & "<TR><TD width=100% bgcolor=#0066CC height=21 align=center colspan=2><FONT face=Arial size=2 color=#FFFFFF><B>Fale Conosco</B></FONT></TD></TR>"htmlText = htmlText & "<TR><TD width=20% height=18 bgcolor=#F5F5F5><FONT face=Arial size=2>Nome</FONT></TD>"htmlText = htmlText & "<TD width=80% height=18 bgcolor=#F5F5F5><FONT face=Arial size=2>" & vNOM & "</FONT></TD></TR>"htmlText = htmlText & "<TR><TD width=20% height=18 bgcolor=#F5F5F5><FONT face=Arial size=2>Instituição</FONT></TD>"htmlText = htmlText & "<TD width=80% height=18 bgcolor=#F5F5F5><FONT face=Arial size=2>" & vESC & "</FONT></TD></TR>"htmlText = htmlText & "<TR><TD width=20% height=18 bgcolor=#F5F5F5><FONT face=Arial size=2>E-mail</FONT></TD>"htmlText = htmlText & "<TD width=80% height=18 bgcolor=#F5F5F5><FONT face=Arial size=2><A href=mailto:" & vEMM & ">" & vEMM & "</A></FONT></TD></TR>"htmlText = htmlText & "<TR><TD width=20% height=18 bgcolor=#F5F5F5><FONT face=Arial size=2>Mensagem</FONT></TD>"htmlText = htmlText & "<TD width=80% height=18 bgcolor=#F5F5F5><FONT face=Arial size=2>" & vMSG & "</FONT></TD>"htmlText = htmlText & "<TR><TD width=100% bgcolor=#0066CC height=1 colspan=2></TD></TR>"htmlText = htmlText & "</TABLE>"htmlText = htmlText & "</BODY>"htmlText = htmlText & "</HTML>"Set Mail = Server.CreateObject("Persits.MailSender")Mail.Host = Application("smtp2.locaweb.com.br")Mail.From = vEMMMail.FromName = "Site Edacom"Mail.AddAddress vDEPMail.AddReplyTo vEMMMail.Subject = "Fale Conosco"Mail.IsHTML = 1Mail.Body = htmlTextOn Error Resume NextMail.SendIf Left((Err.Description),9) = "553 5.1.3" OR Left((Err.Description),9) = "553 5.1.8" Then	Response.Write "<B>Houve um erro ao enviar as informações!<br>"	Response.Write "-------------------------------------------------------<br>"	Response.Write "Motivo: A um problema com a identificação do e-mail informado!</B>"	Response.EndEnd IfSet Mail = Nothing%><html><head><title>Edacom</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><style type="text/css"><!--	A {       text-decoration: none; }	A:hover { color:#666666;}--></style><body background="../images/fundopagina.gif" leftmargin="9" topmargin="15" alink=#000000 vlink=#000000 link=#000000><!--#include file="../page_topo.asp"--><table width="760" border="0" cellspacing="0" cellpadding="0" style="border-right: 1 solid #000000">  <tr>     <td width="160" valign="top" background="../images/pinosmenu.gif" align="right">       <!--#include file="../page_menu.asp"--></td>    <td width="600" valign="top" bgcolor="#FFFFFF" align="center">       <table width="560" border="0" cellpadding="4" cellspacing="1" background="../images/chaves2.gif">        <tr align="right">           <td colspan="2" background="../images/blocofundo2.gif" bgcolor="#FFCC33"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Contato</font></td>        </tr>        <tr valign="top">           <td height="228" colspan="2" bgcolor="#FFFFFF">            <table border="0" width="100%" cellspacing="6" cellpadding="6">              <tr>                 <td width="100%" class="texto_page" align="center" height="200"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">A sua mensagem foi enviada com sucesso!</font>                   <p><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Aguarde o nosso contato em breve.</font></p>                  <p><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Edacom Tecnologia</font>                 </td>              </tr>              <tr>                 <td width="100%" class="texto_page" align="center" height="120">                   <p>                  </td>              </tr>            </table>          </td>        </tr>        <tr>           <td valign="bottom" colspan="2" bgcolor="#FFCC33" align="right"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="http://www.edacom.com.br/">voltar</a></font></td>        </tr>      </table>    </td>  </tr></table><!--#include file="../page_rodape.asp"--></body></html>

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