ArtPRIDE NJ Membership Form

<< expand file='/support/randomImage.htx' /expand expand file='/support/jsGenMenu.htx' /expand >> <> << copy file='/featurepics/credits.lst' ts=',' to tmp /copy tmp = getcolnoteq(tmp, 1, "") tmp = getcolnoteq(tmp, 1, "ERROR") fIdx = random(1, rows(tmp)) featurepic = tmp[1,fIdx] featuretxt = tmp[2,fIdx] featurelnk = tmp[3,fIdx] if iserror(FormError) then FormError = '' /if formdate = TODAY if apFormError='' or apFormError='ERROR' then apFormError = '' /if if formID='' or formID='ERROR' then formID = getyear(TODAY,'short') + ascii(getmonth(TODAY,'number')+64) + getday(TODAY,'short') + cut(TIME,':') /if clrvals = row('title','firstname','lastname','company','position', 'homeaddress1','homeaddress2','city','state','zip', 'county','areacode','telephone','email', 'affiliations','attdate','needs') for name=clrvals colname=c do if @c[1]='ERROR' then @c[1] = '' /if /for >> ArtPRIDE NJ Membership Form <> <>

<<#/ ############################################################################# /#>> <<#/ Start of LEFT Section /#>> <<#/ Use this section for extra menus, rollover lists, buttons, instructions, etc. /#>> <<#/ ############################################################################# /#>>

	<>
	<>

<<#/ ########################### End of LEFT Section ########################### /#>>

<<#/ ############################################################################## /#>> <<#/ Start of RIGHT Section /#>> <<#/ Use this section for main content, rollover displays, etc. /#>> <<#/ ############################################################################## /#>>


	Cultural Tourism Seminar Registration Form Registration deadline is May 12, 2006. Space is limited and will be reserved on a first-come, first served basis.

Today's Date:

* Asterisks indicate required fields

Title*

If other, please enter:

First Name *

Last Name *

Position

Company/Organization *

Address*

Address

City*, State*, Zip *

City , State Zip

County*

Daytime Telephone *

Area Code Number

E-mail Address *

Other Affiliations

Seminar Registration*

I plan to attend the following Cultural Tourism Seminar
May 22, 2006

Special/Dietary Needs

Mail your check to:
ArtPRIDE New Jersey
165 Third St., #4A
Bordentown, NJ 08505

Make sure to write the confirmation number
<>
in the memo area of your check.

ArtPRIDE New Jersey
New Jersey 165 Third St., Bordentown, NJ 08505
Phone - 609-324-2734 Fax - 609-443-3582

E-mail artpride@artpridenj.com
609-324-2734.

<> <<#/ ########################### End of RIGHT Section ########################### /#>>


	<>	<>

<> <> <· Title must be defined"+LF /if if isblank(firstname) or iserror(firstname) then apFormError = apFormError + "
· First name must be defined"+LF /if if isblank(ahlastname) or iserror(lastname) then apFormError = apFormError + "
· Last name must be defined"+LF /if if isblank(city) or iserror(city) then apFormError = apFormError + "
· City must be defined"+LF /if if isblank(state) or iserror(state) then apFormError = apFormError + "
· State must be defined"+LF /if if isblank(zip) or iserror(zip) then apFormError = apFormError + "
· ZIP Code must be defined"+LF /if if isblank(county) or iserror(county) then apFormError = apFormError + "
· County must be defined"+LF /if if isblank(telephone) or iserror(telephone) or isblank(areacode) or iserror(areacode)then apFormError = apFormError + "
· Telephone number must be defined"+LF /if if isblank(email) or iserror(email)then apFormError = apFormError + "
· Email address must be defined"+LF /if if isblank(company) or iserror(company) then apFormError = apFormError + "
· Company/Organization must be defined"+LF /if if isblank(attdate) then apFormError = apFormError + "
· Date attending must be defined"+LF /if if not(isblank(apFormError)) then ahFormError = ''+LF+' '+LF+ 'The following changes must be made before the form can be submitted:'+LF+ ahFormError+' '+LF+''+LF goto PAGE /if if title = 'other' then title=othertitle /if #/if iserror(attdate1) then attdate1='' /if/# #/if iserror(attdate2) then attdate2='' /if/# attdateshort = cut(chopright(cut(chopleft(attdate, ','), ','), ','), ',') #/attdate2short = cut(chopright(cut(chopleft(attdate2, ','), ','), ','), ',')/# dlDir = dirname(PAGE)+'/dlfiles/tourism/' dlFile = 'tourismFormData.csv' if not(isfile(dlDir+dlFile)) then copy row('ID','Date','Title','First Name','Last Name','Company','Position', 'Address 1','Address 2','City','State','ZIP','County','Phone','Email', 'Affiliations','Attend Date','Needs') to file=dlDir+dlFile ts=',' /copy /if append row(formID,formdate,title,firstname,lastname,company,position, address1,address2,city,state,zip,county,areacode+'-'+telephone,email, affiliations,attdateshort,needs) to file=dlDir+dlFile ts=',' /append dates = attdateshort #/if dates<>'' and date2<>'' then dates=dates+' & ' /if/# #/dates = dates + date2short/# tourismform = "ID: " + formID + LF + "Date: " + formdate + LF + "Title: " + title + "Contact Name: " + firstname + " " + lastname + LF + "Company/Organization: "+ company + LF + "Position: " + position + LF + "Address: " + address1 + LF + "Address1: " + address2 + LF + "City, State, ZIP: " + city + ", " + state + " " + zip + LF + "County: " + county + LF + LF + "Telephone: " + areacode + " " + telephone + LF + "E-Mail Address: " + email + LF + LF + "Other Affiliations: " + affiliations + LF + LF + "Cultural Tourism Registration: " + dates + LF + LF + "Special/Dietary Needs: " + needs + LF + LF mail tourismform to address="premiere@premieresolutions.com" subject="Tourism Seminar" + today /mail mail tourismform to address="artpride@artpridenj.com" subject="Tourism Seminar" + today /mail expand file='/support/wordwrap.htx' /expand copy file='apTourismReply.msg' to thanksMsg /copy thanksMsg = 'Dear <[FIRSTNAME]> <[LASTNAME]>,'+LF+LF+thanksMsg thanksMsg = replaceall(thanksMsg, '<[FIRSTNAME]>', firstname) thanksMsg = replaceall(thanksMsg, '<[LASTNAME]>', lastname) dates = attdate #/if dates<>'' and date2<>'' then dates=dates+' and ' /if/# #/dates = dates + date2/# thanksMsg = replaceall(thanksMsg, '<[TIME_DATE_PLACE]>', dates) thanksMsg = replaceall(thanksMsg, '<[NUMBER]>', formID) tmp = listtocol(replaceall(replaceall(thanksMsg,'<','|~'),'>','~|'), '|') for name=tmp rownum=n do if tmp[1,n]~'~' then tmp[1,n] = '' /if /for thanksEmailMsg = tabletolist(tmp,'') thanksEmailMsg = wordwrap(thanksEmailMsg,80,'','') subj = "REGISTRATION: Cultural Tourism: The Right Direction!" mail thanksEmailMsg to address=email subject=subj /mail thanksMsg = wordwrap(thanksMsg,80,'','
'+LF) GOTO "tourism_thanks.html" >>