to tentando usar o codigo abaixo para montar meu primeiro formulário...
Já pesquisei na busca, já olhei em sites de asp e inclusive peguei esse código só que
quando clico em enviar dá a msg de obrigado foi enviado com sucesso etc mas o email não chega pra mim...
o que será??
segue o código:
PAGINA: Default
<html><head> <title>Fale Conosco</title> </head> <body topmargin="0" leftmargin="0"> <div align="center"> <center> <table border="0" width="266"> <tr> <td width="258" valign="top" height="1"> <form method="POST" action="obrigado.asp"> <div align="center"> <center> <table border="0" width="50%" cellspacing="0" cellpadding="0"> <tr> <td width="96%"> <p align="left"><font size="2" face="Verdana">Nome:</font></td> </tr> <tr> <td width="96%"> <p align="left"><font size="2" face="Verdana"><input type="text" name="nome" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td> </tr> <tr> <td width="96%"> <p align="left"><font size="2" face="Verdana">E-mail:</font></td> </tr> <tr> <td width="96%"> <p align="left"><font size="2" face="Verdana"><input type="text" name="email" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td> </tr> <tr> <td width="96%"> <p align="left"><font size="2" face="Verdana">Assunto:</font></td> </tr> <tr> <td width="96%"> <p align="left"><font size="2" face="Verdana"><input type="text" name="assunto" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td> </tr> <tr> <td width="96%"> <p align="left"><font size="2" face="Verdana">Mensagem:</font></td> </tr> <tr> <td width="96%"> <p align="left"><font size="2" face="Verdana"><textarea rows="5" name="mensagem" cols="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></textarea></font></td> </tr> <tr> <td width="96%"> </td> </tr> <tr> <td width="96%"> <p align="center"><font face="Verdana"><input type="submit" value="Enviar >>" name="enviar"></font></td> </tr> </table> </center> </div> </form> </center> </td> </tr> </table> </div> </body> </html>
PAGINA Enviar
<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto
'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "iguabagrande@iguabagrande.com"
sNameTo = "iguabagrande.com"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")
'Cria o objeto
set mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = sNameFrom
Mailer.FromAddress = sEmailFrom
'Host para envio de emails
'CONFIGURE ESTA LINHA !
Mailer.RemoteHost = "smtp.uol.com.br"
Mailer.AddRecipient sEmailTo, sNameTo
Mailer.Subject = sAssunto & " - E-mail"
'Monta a texto para o envio
strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf
strMsgFooter = sText
Mailer.BodyText = strMsgHeader & strMsgFooter
' Se for enviado redirecionar para obrigado.asp
if Mailer.SendMail then
Response.Redirect "obrigado.asp"
else
' Se não for enviado mostra o erro que ocoreu
Response.Write ("Ocorreu um erro.<BR>")
Response.Write ("O Erro é " & Mailer.Response)
end if
%>PAGINA obrigado
<html><head> <title>Fale Conosco</title> </head> <body topmargin="0" leftmargin="0"> <div align="center"> <center> <table border="0" width="439"> <tr> <p> </p> <p> </p> <p align="center"><font face="Arial, Helvetica, sans-serif">Sua mensagem foi enviada com sucesso!</font></p> <p align="center"><font face="Arial, Helvetica, sans-serif"><a href="index.htm">Voltar</a></font></p> <p> </p> <p align="center"><font color="#00B0FF" 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>
Alguem me ajuda??!!!!!
Edição feita por: X-Ray, 22/07/2008, 15:53.
