Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
[ GuTo ]

Contato

Question

<%
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 = "[email protected]"
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!!!

Share this post


Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

parece estar tudo certo..

unica coisa que vi que faltou foi apos o

objCDO.Send

colocar

Set objCDO = Nothing

Voce não recebe nada??

Share this post


Link to post
Share on other sites
  • 0

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!!!

Share this post


Link to post
Share on other sites
  • 0

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, =].

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148497
    • Total Posts
      644187
×
×
  • Create New...