<% Dim sFName, sLName, sOrg, sAddress, sCity, sState, sZip, sCounty, sCountry, sFState, sPhone, sEmail Dim sErr sFName = Request("FirstName") & "" sLName = Request("LastName") & "" sOrg = Request("Organization") & "" sAddress = Request("Address") & "" sCity = Request("City") & "" sCounty = Request("County") & "" sFState = Request("FState") & "" sState = Request("State") & "" sCountry = Request("Country") & "" sZip = Request("Zip") & "" sPhone = Request("Phone") & "" sEmail = Request("Email") & "" sIPS = Request("IPS") & "" sMemType = Request("MemType") & "" Select Case sMemType Case "F1" sMemType = "Foreign 1 year" sExpireDate = SetExpireDate(1) sPayment = "$20.00" Case "US1" sMemType = "US 1 year" sExpireDate = SetExpireDate(1) sPayment = "$15.00" Case "US3" sMemType = "US 3 years" sExpireDate = SetExpireDate(3) sPayment = "$40.00" End Select If sIPS <> "Yes" Then sIPS = "No" End If sSeedList = Request("SeedList") & "" If sSeedList <> "Yes" Then sSeedList = "No" End If sPublic = Request("Public") & "" If sPublic <> "No" Then sPublic = "Yes" End If If Request("Postback") = "1" Then If Validate Then AddMember Confirm Else Response.Write sErr End If End If Function SetExpireDate(Years) Dim nYear If Month(Now) > 9 Then nYear = Year(Now) + Years Else nYear = Year(Now) End If 'Response.Write Month(Now) SetExpireDate = "12/31/" & nYear End Function Function Confirm%>

Thank You!

Your application has been received!

Our membership chair has been notified and they will be expecting your payment.
Please send a check in the amount of <%=sPayment%> to:

Karen Barrese
5942 Ehren Cutoff
Land O Lakes, FL 34639

You will begin receiving our quarterly newsletter <%If sSeedList = "Yes" Then %> and seed offers <%End If %> as soon as we receive your payment.

Thanks for joining and happy cultivating!

All material on these pages is copyrighted by CFPACS and may not be used without permission.

Web space provided by:
The Palm and Cycad Societies of Florida and Zone10.com

Please contact the Webmaster if you have any questions or suggestions on how to improve our site.

<% Response.End End Function Function Validate sErr = "" If sFName = "" Then sErr = "You must enter a first name.
" End If If sLName = "" Then sErr = sErr & "You must enter a last name.
" End If If sAddress = "" Then sErr = sErr & "You must enter an address.
" End If If sCity = "" Then sErr = sErr & "You must enter a city.
" End If If sState = "" And sFSState = "" Then sErr = sErr & "You must enter a state.
" End If If sCountry = "" Then sErr = sErr & "You must enter a country.
" End If If sZip = "" Then sErr = sErr & "You must enter a postal code.
" End If If sPhone = "" Then sErr = sErr & "You must enter a phone number.
" End If If sSeedList = "Yes" And sEmail = "" Then sErr = sErr & "If you want to be notified of seed offerings you must enter an email address.
" End If strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if strCAPTCHA <> Trim(Session("CAPTCHA_" & Session.SessionID)) then sErr = "

FORM COMPLETION ERROR: You did not type in the verification info correctly.

" End If If sErr <> "" Then Validate = False Else Validate = True End If End Function Function AddMember Dim sAll dim sMsg sAll = "New CFPACS membership application received on the website: " & vbcr sAll = sAll & "Member Type: " & sMemType & vbcr sAll = sAll & "Payment due: " & sPayment & vbcr sAll = sAll & "LastName: " & sLName & vbcr sAll = sAll & "FirstName: " & sFName & vbcr sAll = sAll & "Address: " & sAddress & vbcr sAll = sAll & "City: " & sCity & vbcr sAll = sAll & "State: " & sState & vbcr sAll = sAll & "Zip: " & sZip & vbcr sAll = sAll & "Country: " & sCountry & vbcr sAll = sAll & "County: " & sCounty & vbcr sAll = sAll & "Phone: " & sPhone & vbcr sAll = sAll & "Email: " & sEmail & vbcr sAll = sAll & "Membership Expires: " & sExpireDate & vbcr sAll = sAll & "Joined Year: " & Year(Now) & vbcr sAll = sAll & "Add to Seed List: " & sSeedList & vbcr sAll = sAll & "IPS Member: " & sIPS & vbcr sAll = sAll & "Joined Date: " & Now & vbcr sAll = sAll & "Organization: " & sOrg & vbcr sAll = sAll & "Publish name in Palmateer: " & sPublic & vbcr If sEmail <> "" Then sMsg = "We have received your CFPACS membership application." & vbcrlf & vbcrlf sMsg = sMsg & "Our membership chair has been notified and they will be expecting your payment." & vbCrlf & vbCrlf sMsg = sMsg & "Please send a check in the amount of " & sPayment & " to: " & vbcrlf & vbcrlf sMsg = sMsg & "Karen Barrese" & vbcrlf & "5942 Ehren Cutoff " & vbcrlf & "Land O Lakes, FL 34639" & vbcrlf & vbcrlf sMsg = sMsg & "You will begin receiving our quarterly newsletter " If sSeedList = "Yes" Then sMsg = sMsg & "and seed offers " End If sMsg = sMsg & "as soon as we receive your payment." & vbcrlf & vbcrlf sMsg = sMsg & "Thanks for joining and happy cultivating! " SendMail sEmail, "We have received your CFPACS membership application", sMsg End If SendMail "CFPACSMEMBERSHIP@MSN.COM", "New CFPACS membership application received ", sAll SendMail "webmaster@cfpacs.org", "New CFPACS membership application received ", sAll End Function %>

CFPACS Membership Application
* First Name:		* Last Name:
Organization:
* Street Address:
* City:		County:
* US State:	<%BuildStateList%>	* Foreign State:
You must enter either a foreign state or a US state
* Country:		* Postal Code:
* Phone:
E-mail:
* Membership Type:
> I am a member of the International Palm Society > Send me email notification when new seeds are available Opt Out > Don't publish my name as a new member in The Palmateer newsletter
Type the characters shown for verification:
* Indicates a required field