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