Your information could not be submitted
because one or more form fields were not
completed properly. Please find and correct the fields marked
"*."
<% end if %>
<% If Request.Form("submit") <> "" AND Valid = 0 Then %>
<%
Dim objMail ' As CDO.Message (Plesk)
Set objMail = Server.CreateObject("CDO.Message")
set objMailConf = createobject("CDO.configuration")
With objMailConf.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Update
End With
Set objMail.Configuration = objMailConf
objMail.To = "sharynfuller@gmail.com"
objMail.BCC = "backup@atlanticbt.com"
objMail.ReplyTo = Request.Form("Email") & "<" & Request.Form("email") & ">"
objMail.From = "signup@jonesbeachbums.com"
objMail.Subject = "Jones Beach Bum Signup"
bodymsg = "The following information has been submitted from the Jones Beach Bums website:" & "
"
bodymsg = bodymsg & "Email: " & request("Email") & "
"
bodymsg = bodymsg & "Name: " & request("Name") & "
"
bodymsg = bodymsg & "Town: " & request("Town") & "
"
bodymsg = bodymsg & "Current Town/State: " & request("Current") & "
"
bodymsg = bodymsg & "Address: " & request("Address") & "
"
bodymsg = bodymsg & "Phone: " & request("Phone") & "
"
bodymsg = bodymsg & "Website: " & request("Website") & "
"
bodymsg = bodymsg & "Notes: " & request("Notes") & "
"
objMail.HTMLBody = bodymsg
objMail.Send
Set objMailConf = Nothing
Set objMail = Nothing%>
<%Dim objMail2 ' As CDO.Message (Plesk)
Set objMail2 = Server.CreateObject("CDO.Message")
set objMail2Conf = createobject("CDO.configuration")
With objMail2Conf.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Update
End With
Set objMail2.Configuration = objMail2Conf
objMail2.To = Request("Email")
objMail2.ReplyTo = Request("Email") & "<" & Request("Email") & ">"
objMail2.From = "signup@jonesbeachbums.com"
objMail2.Subject = "Your Jones Beach Bums request"
bodymsg2 = "Thank you for requesting total access to JonesBeachBums.com." & "
"
bodymsg2 = bodymsg2 & "A password will be sent to you as soon as possible." & "
"
bodymsg2 = bodymsg2 & "--Friends Forever--" & "
"
bodymsg2 = bodymsg2 & "Shari (Friedman) Fuller" & "
"
bodymsg2 = bodymsg2 & "Plainview" & "
"
objMail2.HTMLBody = bodymsg2
objMail2.Send
Set objMail2Conf = Nothing
Set objMail2 = Nothing%>