<%
On Error Resume Next
dim Mailer
dim BrowserMsg
If Not Request.Form = "" Then
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.FromName = Request.Form("name")
Mailer.From = "message@winecountrycreative.com"
Mailer.Host = "mail.winecountrycreative.com"
Mailer.AddAddress "doug@winecountrycreative.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
BrowserMsg = "alert('Thank you. Your message has been sent.');" & vbnewline & "window.location='index.html';"
End If
%>
Graphic Design and Advertising for the Wine Industry
