% On Error Resume Next dim Mailer If Not Request.Form = "" Then Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.FromName = Request.Form("name") Mailer.From = "message@douglashough.com" Mailer.Host = "mail.douglashough.com" Mailer.AddAddress "doug@douglashough.com" Mailer.Subject = Request.Form("subject") Mailer.Body = Request.Form("name") & vbNewLine & _ Request.Form("email") & vbNewLine & _ request.form("phone") & vbNewLine & vbNewLine & _ "____________________________________" & vbNewLine & vbNewLine & _ Request.Form("message") Mailer.Send Set Mailer = Nothing Response.Redirect "messagesent.asp" End If %>
