Contato

[[ GuTo ]]

<%
Option Explicit

dim horatempoquandoenviado, ip
horatempoquandoenviado = now
ip = Request.ServerVariables("REMOTE_ADDR")

dim useracao

useracao = request("acao")
select case useracao
case "contatar"
apelido = request.form("apelido")
icq = request.form("icq")
email = request.form("email")
sexo = request.form("sexo")
assunto = request.form("assunto")
mensagem = request.form("mensagem")
Set objCDO = Server.CreateObject("CDONTS.NewMail")

htmlemail = htmlemail & "<font face=Verdana size=1 color=#000000>Email enviado dia: "&horatempoquandoenviado&" pelo IP: "&ip&"</font><br><hr><br>"
htmlemail = htmlemail & "<font face=Verdana size=2><p>Assunto:<font color=#FF0000>"&assunto&"</font><br><br>"
htmlemail = htmlemail & "Apelido: "&apelido&"<br>"
htmlemail = htmlemail & "ICQ#: "&icq&"<br>"
htmlemail = htmlemail & "Email: "&email&"<br>"
htmlemail = htmlemail & "Sexo: "&sexo&"<br>"
htmlemail = htmlemail & "Mensagem: "&mensagem&"</font>"

objCDO.To = "chatcanoas@pop.com.br"
objCDO.From = apelido
objCDO.Subject = assunto
objCDO.Body = htmlemail
objCDO.MailFormat = 0
objCDO.Bodyformat = 0
objCDO.Send

response.redirect "obrigado.asp" 

end select
%>

no form

<form action="contato.asp?acao=contatar" method="post" name="formulario" onSubmit="return validar(this)">

Apelido: <input type="text" size="20" name="apelido"><br>
ICQ: <input type="text" size="10" name="icq"><br>
E-mail: <input type="text" size="50" name="email"><br>
Sexo: <select name="sexo" size="1">
<option SELECTED value=""> -- ESCOLHA UM -- </option>
<option value="Feminino">Feminino</option>
<option value="Masculino">Masculino</option>
</select><br>
Assunto: <select name="assunto" size="1">
<option SELECTED value=""> -- ESCOLHA UM -- </option>
<option value="Anuncios">Anuncios</option>
<option value="Criticas">Criticas</option>
<option value="Duvidas">Duvidas</option>
<option value="Encontros">Encontros</option>
<option value="Sugestao">Sugestoes</option>
<option value="Parceria">Parceria</option>
<option value="Outros">Outros</option>
</select><br>
Mensagem:<br>
<textarea rows="5" name="mensagem" cols="30"></textarea><br>

<input type="submit" value="Enviar">&nbsp;<input type="reset" value="Limpar">
</form>

Não é reportado erro algum, simplesmente ao submeter a página não vai... se tiver algum erro no meu código, por favor, me corrijam!!!

[jissa]

parece estar tudo certo..

unica coisa que vi que faltou foi apos o

objCDO.Send

colocar

Set objCDO = Nothing

Voce não recebe nada??

[ursolouco]

Brother!!

Já tive alguns problemas assim, mas foi com o servidor SMTP.

Não dava mensagem de erro algum, mas também não mandava os e-mails, experimente trocar o servidor SMTP por algum outro gratuito ou mesmo do seu Host, pois ele pode estar dando problemas.

Abraços!!!

[[ GuTo ]]

Huahuahua

Ninguém vai acreditar direito, mas sabe o q tava causando o erro?

O Option Explicit no início do código.

Depois q retirei-o, funfou.

jissa

obrigado por lembrar do set objCDO = nothing

coloquei agora

urso.louco

na aspecto.net o script funciona e enviado com sucesso o email.

já no domaindlx.com, funciona mas não me lembro de ter recebido email algum, =].