<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Come from Submit
Set Mail=Server.CreateObject("WRMail.SMTP")
Mail.Host = Request.Form("santuario.com.br")
Mail.From = Request.Form("Email")
Mail.To = Request.Form("To")
Mail.Subject = Request.Form("Subject")
Mail.Body = Request.Form("Text")
If Mail.SendMail then
Response.Write "Envio OK!"
Else
Response.Write "Erro no Envio"
End if
Else
%>
|
|
