<%
if request("botao") = "enviar" then
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Host = "mail.nomer.com.br"
Mailer.FromName = request.form("nome")
Mailer.From = request.form("emailde")
Mailer.AddAddress "casablue@uol.com.br"
Mailer.Subject = request.form("assunto")
Mailer.Body = request.form("mensagem")
Mailer.IsHTML = True
if Not Mailer.Send then
Response.Write "0 E-MAIL NÃO FOI ENVIADO!"
else
Response.Write "E-MAIL ENVIADO COM SUCESSO!"
end if
response.end
Set Mail = nothing
end if
%>
Nomer.com.br - FALE CONOSCO