<% if request("botao") = "Enviar" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = request.form ("nome")
Mailer.FromAddress= request.form ("email")
Mailer.RemoteHost = "smtp.cienciaviva.org.br"
Mailer.AddRecipient "Espaço Ciência Viva", "erikacb@gmail.com"
Mailer.Subject = "Tire suas dúvidas"
Mailer.BodyText = request.form("mensagem")
if Mailer.SendMail then
Response.Write "E-mail enviado com sucesso!"
else
Response.Write mailer.response
end if
response.end
end if
%>
Espaço Ciência Viva
