|
<% if request.form="" then %>
<% else
fromName = "Gaspar Gasparian"
mailFrom = "contact@gaspargasparian.com"
nome = request.form("nome")
email = request.form("email")
comentario = request.form("comentario")
Set Mail = Server.CreateObject("Persits.MailSender")
'Servidor de SMTP
Mail.Host = "localhost"
'O endereço deve ser um e-mail existente no domínio de sua revenda.
Mail.From = mailFrom
'Configura e-mail de retorno
Mail.MailFrom = mailFrom
'Remetente
Mail.FromName = fromName
'Destinatario
Mail.AddAddress "contact@gaspargasparian.com", "Contato Site"
'Assunto da mensagem
Mail.Subject = "Contato do site: " & nome
'Corpo da mensagem
Mail.Body = "Nome: " & nome & vbcrlf&_
"Email: " & email & vbcrlf&_
"Comentário: " & comentario
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
else
Response.Write "
Your message has been sent successfully."
End If
end if %>
|