<%
if request("botao") = "enviar" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Geração de Vencedores"
Mailer.FromAddress= "geracaodevencedores@geracaodevencedores.com.br"
Mailer.RemoteHost = "smtp-web.uni5.net"
Mailer.AddRecipient "teste", request.form("para")
Mailer.Subject = request.form("assunto")
Mailer.BodyText = request.form("mensagem")
if Mailer.SendMail then
Response.Redirect("obrigado.html")
else
Response.Write mailer.response
end if
response.end
end if
%>
Curso Geração de Vencedores
