<< expand file='/include.htx' /expand expand file='/support/randomImage.htx' /expand #/expand file='/support/jsGenMenu.htx' /expand/# ORGDB = '/map/organization' formMessage = '' if formSubmitted = 'organization' then msg = '' if undefined(ORG_NAME) then msg = msg + '» Organization Name
'+LF /if if undefined(ORG_CONTACT) then msg = msg + '» Contact Name
'+LF /if if undefined(ORG_EMAIL) then msg = msg + '» Email Address
'+LF /if if undefined(ORG_PHONE) then msg = msg + '» Contact Telephone
'+LF /if if undefined(ORG_COUNTY) then msg = msg + '» County Name
'+LF /if if undefined(ORG_FED_DIST) or undefined(ORG_STATE_DIST) then msg = msg + '» Legislative Districts
'+LF /if if undefined(ORG_DISCIPLINE) then msg = msg + '» Arts Discipline
'+LF /if if msg <> '' then formMessage = 'The following fields are required:
'+LF+msg+'' else pw = dbfind(ORGDB, 'ORG_EMAIL="'+ORG_EMAIL+'"', 1,1, 'RECORD,ORG_PASSWORD') if dbresults[1,1]<>'TRUE' or dbresults[2,1]=0 then #/ No matching record found. Generate a new password and save record. /# expand file='/support/pwgen.htx' /expand ORG_PASSWORD = pw junk = dbadd(ORGDB) copy file='/map/mapEmail.txt' to msg /copy msg = replaceall(msg, '', ORG_NAME) msg = replaceall(msg, '', ORG_CONTACT) msg = replaceall(msg, '', ORG_PASSWORD) mail msg to address=ORG_EMAIL subject='ArtPRIDE MAP Organizational Form' /mail formMessage = '

Thank you!

'+LF+ '

Your information has been saved. In a few moments,'+LF+ 'you will receive an email message with your new password. Please'+LF+ 'keep this password in a safe place.

'+LF+ '

To log in, click here.

' else #/ An existing record was found. Extract the password and update it. /# recnum = pw[1,1] ORG_PASSWORD = pw[2,1] junk = dbedit(ORGDB, recnum) formMessage = '

Thank you!

'+LF+ '

Your information has been updated. To return to the'+LF+ 'Marketing Form page, click here.

' /if /if /if >> <> << 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] >> ArtPRIDE NJ MAP Organizational Form <> <<#/jsGenScriptSection/#>>
return to main page

<<#/ ############################################################################# /#>> <<#/ 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. /#>> <<#/ ############################################################################## /#>>

ArtPRIDE MAP Organizational Form

1. Organization Name
2. Contact Name:
3. Contact Email Address:
4. Contact Telephone:
5. County:
6. Legislative Districts: Federal:
State:
7. Arts Discipline:  
Dance Music Theatre
Opera/Musical Theatre Visual Arts
Crafts Media Arts Literature
Folklife/Traditional Arts Multidisciplinary
Arts Education Performing Arts Presenters
<> 
<> <<#/ ########################### End of RIGHT Section ########################### /#>>
<> <>
<> <<#/jsGenDivSection/#>> <> <>