<% 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("Email") & "<" & Request("Email") & ">" objMail.From = "messages@jonesbeachbums.com" objMail.Subject = "Jones Beach Bum Message" bodymsg = "The following information has been submitted from the Jones Beach Bums website:" & vbCrLf & vbCrLf bodymsg = bodymsg & "Message Board: " & vbCrLf & vbCrLf & request("Notes") & vbCrLf objMail.TextBody = bodymsg objMail.Send Set objMailConf = Nothing Set objMail = Nothing%>