Ir para conteúdo

POWERED BY:

Arquivado

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

Bruno Borghi

Form Mail

Por , em ASP Clássico

Recommended Posts

Bruno Borghi    0

Bruno Borghi
Postado

Pessoal,

 

Não tá funcionando esse form mail aqui...vo postar os códigos das três pags pra vcs verem o q pode estar errado...

 

contato.html:

<html><head><title>Borghi Inside_ - Contato</title><style type="text/css"><!--body {margin: 0%; padding: 0%;}div#center {position: absolute;width: 760px;height: 428px;left: 50%;top: 50%;margin-top: -214px;margin-left: -380px;}--></style><style type="text/css">body {	background-image: url(images/img_back.gif);}</style></head><body bgcolor="#000000"><div id="center">  <table border=0 width="760" cellspacing=0 cellpadding=0 ><tr><td width="27" rowspan="3" ><img src="images/port1_01.jpg" border="0" usemap="#Map4"></td>      <td colspan=3 ><img src="images/port_cont_02.jpg" border="0" usemap="#Map"></td></tr><tr >      <td width="215" height="258" valign="top" background="images/port_sec_03.jpg" > <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <center>        <br><b>.:: Contato ::.</b><br><br>        Mande sugestões,<br>        críticas, elogios,<br>        dúvidas e outros<br>        através desse formulário.<br><br>	Todo tipo de<br> comentário construtivo <br> será bem vindo! <center> </font> </td><td width="296" height="258" background="images/port_cont_04.jpg" ><form name="form" method="POST" action="enviar.asp"><table><tr><td valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Nome:</strong></font></td><td><input type="text" name="nome" width="250" size="26" maxlength="250" ></td></tr><tr><td height="26" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>E-mail:</strong></font></td><td><input type="text" name="email" width="250" size="26" maxlength="250" ></td></tr><tr><td valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Assunto:</strong></font></td><td><input name="assunto" type="text" size="26" maxlength="250" width="250" ></td></tr><tr><td valign="top"><font size="1"  face="Verdana, Arial, Helvetica, sans-serif"><strong>Mensagem:</strong></font></td><td><textarea cols="" rows="5" name="mensagem"></textarea></td></tr><tr><td colspan="2"><br><div align="right"><INPUT TYPE="submit" VALUE="Enviar" style="font-family: verdana; font-size: 8pt"><INPUT TYPE="reset" VALUE="Limpar" style="font-family: verdana; font-size: 8pt"></div></td></tr></table></form></td>      <td width="222" height="258" background="images/port_cont_05.jpg"></td></tr><tr ><td colspan=3><img src="images/port1_06.jpg"></td></table></div><map name="Map">  <area shape="rect" coords="-30,94,62,113" href="home.html">  <area shape="rect" coords="62,94,132,113" href="port.html">  <area shape="rect" coords="132,94,202,113" href="perfil.html">  <area shape="rect" coords="202,94,273,114" href="resources.html">  <area shape="rect" coords="275,94,345,113" href="tutoriais.html">  <area shape="rect" coords="345,94,415,113" href="links.html">  <area shape="rect" coords="416,94,486,113" href="contato.html">  </map><map name="Map4">  <area shape="rect" coords="20,95,44,113" href="home.html"></map></body></html>

enviar.asp:

<%Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssuntosNameFrom = Request.Form("nome")sEmailFrom = Request.Form("email")sEmailTo = "bruno.borghi@gmail.com"sNameTo = "Borghi Inside"sText = Request.Form("mensagem")sAssunto = Request.Form("assunto")  set mailer = server.createobject("SMTPsvg.Mailer")  Mailer.FromName = sNameFrom  Mailer.FromAddress = sEmailFrom 'Host para envio de emails  Mailer.RemoteHost = "smtp.gmail.com"  Mailer.AddRecipient sEmailTo, sNameTo  Mailer.Subject = sAssunto  & " - E-mail"  strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf  strMsgFooter = sText  Mailer.BodyText = strMsgHeader & strMsgFooter  if Mailer.SendMail then  else     Response.Write ("Ocorreu um erro.<BR>")     Response.Write ("O Erro é " & Mailer.Response)  end if%>

obrigado.asp:

<html><head><title>Teste</title></head><body topmargin="0" leftmargin="0"><div align="center"><center><table border="0" width="439"><tr></center><p align="center"><size="3"><b>Muito Obrigado !!</b></font><p align="center"><font size="2"></font><p align="center"><font size="2">Sua Mensagem foi enviada com sucesso.</font></td></tr></table></div></td></body></html>

Não tenho certeza de que o servidor SMTP do gmail seja smtp.gmail.com.

 

Agradeço desde já,

 

abrass

 

;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bruno Borghi    0

Bruno Borghi
Postado

n roda o enviar.asp...da erro no internet explorer...talvez seja algo relacionado ao smtp...se alguem tiver um cod ae...manda q eu uso ele...abs ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual o erro exatamente borgui??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bruno Borghi    0

Bruno Borghi
Postado

ele não acusa nenhuma linha soh fala que "Não pode ser exibida"...Já se eu rodar no IIS ele da erro nessa linha:set mailer = server.createobject("SMTPsvg.Mailer")objeto n encontrado...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

isso é um componente??? ele ta registrado já??

Compartilhar este post

Link para o post
Compartilhar em outros sites

r2_d2    0

r2_d2
Postado

SMTPsvg.Mailer é ASPMail né?

 

Pelo erro fica a impressão que o componente não tá registrado mesmo.

 

Faça o download do ASPMail 4 na página da ServerObjects e veja a Documentação aqui.

 

 

Não tenho certeza, mas acho que você inverteu a ordem na linha "Mailer.AddRecipient sEmailTo, sNameTo". Não deveria ser Mailer.AddRecipient sNameTo, sEmailTo?

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