|
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
bValid = True
If Len(Trim(Request("Name"))) = 0 Then Response.Write("* Please enter your name.
"): bValid = False
If Len(Trim(Request("Hometown"))) = 0 Then Response.Write("* Please enter your hometown.
"): bValid = False
If Len(Trim(Request("CityStateZip"))) = 0 Then Response.Write("* Please enter your City, State and Zip Code.
"): bValid = False
If Len(Trim(Request("Email"))) = 0 Then Response.Write("* Please enter your e-mail address.
"): bValid = False
If Len(Trim(Request("Comments"))) = 0 Then Response.Write("* Please enter your comments.
"): bValid = False
If bValid = True Then
Dim objNewMail
Set objNewMail = CreateObject("Persits.MailSender")
objNewMail.AddAddress("James.Graham@bromleygroup.com, Dougfarms1@aol.com")
objNewMail.Host = "mail.beachfrontnewsmyrna.com"
objNewMail.From = Request("Email")
objNewMail.FromName = Request("Name")
objNewMail.Subject = "Beachfront New Smyrna Website Message"
objNewMail.Body = Request("Name") & vbCrLf & vbCrLf & Request("Hometown") & vbCrLf & vbCrLf & Request("CityStateZip") & vbCrLf & vbCrLf & " Has sent you the following message: " & vbCrLf & vbCrLf & Request("Comments") & vbCrLf & vbCrLf & Request("Name") & " may be reached by phone at " & Request("Phone") & " (Home Phone) or " & Request("WorkPhone") & " (Work Phone) or " & Request("CellPhone") & " (Cell Phone) prefers to be contacted by " & Request("PreferredContact")
If Len(Trim(Request("Phone"))) > 0 Then objNewMail.Body = objNewMail.Body & vbCrLf & vbCrLf & Request("Name")
objNewMail.Send()
Set objNewMail = Nothing
Response.Write("* Your message was sent successfully.
")
End If
End If
%>
We would love to hear from you! Use the following form to send us
an e-mail and make sure to let us know your preferred contact method
so we can get your reply back to you as soon as possible. See you
in New Smyrna!
 |
| |
|
