Codigo Aspemail Correto

[Guest - dani -]

olhem este codigo não da erro mas tambem não manda mensagem o que está faltando:

<%

If Request.form ("Send") <> "" Then

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "mail.agua.org"

Mail.From = Request.form ("email")

Mail.FromName = Request.form ("name")

Mail.AddAddress = "dani@agua.org"

Mail.Subject = "Mensagem recebida"

Mail.Body = Request.form ("comments")

End If

%>

mais uma vez muito obrigado por toda a ajuda que me têm dado este forum é sem duvida o melhor que encontrei até hoje.

[fercosmig]

num tá faltando um Mail.Send ou algo parecido?

[Guest - dani -]

oi, alterei para:

<%

If Request.form ("Send") <> "" Then

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "mail.agua.org"

Mail.From = Request.form ("email")

Mail.FromName = Request.form ("name")

Mail.AddAddress = "dani@agua.org"

Mail.Subject = "Mensagem recebida"

Mail.Body = Request.form ("comments")

on error resume next

Mail.Send

mensagem_erro = ""

if err <> 0 then

mensagem_erro = "Ocorreu o seguinte erro durante o envio do e-mail: " & Err.description

End If

Set Mail = Nothing

on error goto 0

Response.Write "<b>Sua mensagem foi enviada com sucesso.</b>"

Else

If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then

Response.Write "Ocorreu um erro . Verifique suas informações: " & "<BR>" & vbCrLf

End If

End If

%>

mas continua a não funcionar, como é possivel

o estranho é que tambem não aparece a mensagem de erro...