<% '' Validations dim FV, valid, EmailValid, NameValid, TownValid EmailValid = 0 NameValid = 0 TownValid = 0 valid = 0 If Request.Form("submit") <> "" Then Set FV = Server.CreateObject("VisualSoft.Validator.1") EmailValid = FV.IsEmail(Request("Email")) if Request("Email") <> "" then else EmailValid = 1 end if if Request("Name") <> "" then else NameValid = 1 end if if Request("Town") <> "" then else TownValid = 1 end if valid = EmailValid + NameValid + TownValid End If %> Jones Beach Bums Sign-up
Home
History of the Jones Beach Bums
Photo Organization
latest news regarding the Jones Beach Bums
Pictures of Bums Then and Now
Bums We Have Lost
Message Board for Bums
Contact Information for Jones Beach Bums
 
<% If Request.Form("submit") <> "" AND Valid <> 0 Then %>

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%>

Thank you for your desire to participate!

Your information has been sent.
Someone will be contacting you soon.

<% else %>
Access to the Jones Beach Bums Directory:
(fields/sections marked with an * are required)

Beach Bum Information: (all information submitted will be confidential)
  Name (or Beach Bum nickname) "> <% If NameValid > 0 Then Response.Write "* " Else Response.Write "* " End If %>
  Home town "> <% If TownValid > 0 Then Response.Write "* " Else Response.Write "* " End If %>
  Email Address: "> <% If EmailValid > 0 Then Response.Write "* " Else Response.Write "* " End If %>
 
Optional Information
  Current Town, State ">
  Address, Zip ">
  Phone number(s) ">
  Website address ">
  The above required information will be included in the Directory, along with any optional information you provide.

Please note: the directory is only for those people who hung out with at any time those who called themselves "the Jones Beach Bums"
in the 1970's.

If you have additional info or comments, please use the box below.

 
 



<% end if %>
Photo galleries of old pictures
   
  the Beach
  the Park
  parties
  hotline
  miscellaneous
 
Reunion pictures and videos
   
  1991 (the Big One)
   2001
   2002
   2003
   2004
   2005
   2006
   2007
   2008
   2009
   2010
   2011
   2012
   2013
  2014
  2015
  2016
  2017
  2018
  2021
 
©2004-2022   Jones Beach Bums®   Designed by Sharyn Fuller