<%@ Language=VBScript %><% '************************************************************ '* VMGA Membership Application * '* Jim Villers Jan 24, 2006 * '************************************************************ %> <% 'Ensures that pages are not cached. Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" sub checkForm(finput, fname, ftype, fmin, fmax) 'Check Field Type, T=text, N=number, D=date, M=Membership, P=Payment if ftype="N" then if isNumeric(finput)=FALSE then imess = fname & " must be a Number!
" end if end if if ftype="D" then if isdate(finput)=FALSE then imess = fname & " must be a Date!
" end if end if if len(finput)" end if if len(finput)>fmax and fmax<>0 then imess = fname & " is too long!
" end if if ftype="M" then if len(finput)" end if end if if ftype="P" then if len(finput)" end if end if errormessage=errormessage & imess formerror=formerror & imess end sub 'function to check form function ckForm(strin,str2in) strin=trim(strin) if strin<>"" then if strin=str2in then strout="CHECKED" end if else strout="" end if ckForm=strout end function 'function to provide an X check function xForm(strin,str2in) strout="___" strin=trim(strin) if strin<>"" then if strin=str2in then strout="_X_" end if end if xForm=strout end function task=request("task") apptask=request("apptask") name=request("name") 'date=request("date") address=request("address") address2=request("address2") city=request("city") state=Ucase(request("state")) zip=request("zip") email=Lcase(request("email")) hphone=request("hphone") news_e=request("news_e") c1_edu=request("c1_edu") c2_mem=request("c2_mem") c3_rep=request("c3_rep") c4_new=request("c4_new") c5_dsk=request("c5_dsk") c6_web=request("c6_web") c7_com=request("c7_com") c8_fin=request("c8_fin") c9_new=request("c9_new") unit=request("unit") yrtrain=request("yrtrain") mem_cat=request("mem_cat") ed_fund=request("ed_fund") ed_honor=request("ed_honor") en_fund=request("en_fund") en_honor=request("en_honor") pay_typ=request("pay_typ") if appdate = "" or appdate=NULL then currmonth=month(date) cccyear=year(date) currday=day(date) appdate=currmonth & "/" & currday & "/" & cccyear end if errormessage="" 'If form is submitted, or task is to post. if task="post" then 'Check for Form errors. call checkForm(name,"Name","T",3,60) call checkForm(address,"Address 1","T",3,60) call checkForm(city,"City","T",2,50) call checkForm(hphone,"Phone","T",7,50) call checkForm(email,"Email Address","T",3,50) call checkForm(zip,"Zip Code","T",5,50) call checkForm(mem_cat,"Member Category","M",3,50) call checkForm(pay_typ,"Payment Choice","P",3,50) errormessage=errormessage & checkChr(email, "Email") 'If errors are found, do not pass to email. if errormessage=NULL or errormessage="" then %>

 

<% end if end if %> VMGA Membership Application

 Virginia Master Gardener Association, Inc.
 Membership Form


<%=fixERR(errormessage)%>

Name: Date:
Address:
City: State: Zip plus 4:
Home Phone: Email address:

Are you willing to have your newsletter sent to you electronically?

Please check any committee's) for which you can volunteer and any skills that you can contribute:
> Education > Newsletter > Communications
> Membership > Desktop publishing > Audit of Finance
> Representative to VMGA > Web site skills > News reporting skills

Membership Categories (please check desired category)

 Active VCE-MG (Trainees, Interns, Master Gardeners, Emeritus Gardeners) or Extension Staff
> New Member ($12 annual dues)
> Renewing Member ($12 annual dues)
> Lifetime ($120 one time payment, as long as active VCE-MG status maintained)

VCE Unit through which you submit volunteer hours (Extension staff please note unit where you work):
Year you completed VCE-MG training:  

>Associate Member ($12 annual dues for those who were formally active VCE-MGs, are no longer contributing hours, but whish to continue to support VMGA; cannot vote or hold office)

>Sustaining Member ($250 or more; for individuals or businesses interested in supporting the work of VMGA, Inc.; cannot vote or hold office)

Education Endowment Fund
 I would like to give an additional $ to go to the MG scholarships. This gift is in honor of:

Master Gardner Coordinator Endowment Fund
 I would like to give an additional $ to go to the MG scholarships. This gift is in honor of:

Payment Method:  > Credit Card through PayPal or > Mail Check