<< expand file='/include.htx' /expand expand file='/support/randomImage.htx' /expand #/expand file='/support/jsGenMenu.htx' /expand/# ORGDB = '/map/organization' buttonStartText = 'Data Entry' buttonPrintText = 'Print Master Survey' if undefined(mapLoggedIn) then mapLoggedIn = 'FALSE' /if formMessage = '' if formSubmitted = 'mapLogIn' then if undefined(mapEmail) or undefined(mapPassword) then formMessage = 'Please enter email and password' else lst = dbfind(ORGDB, 'ORG_EMAIL="'+mapEmail+'"', 1, 999, 'ORG_PASSWORD,RECORD') if dbresults[1,1]<>'TRUE' or dbresults[2,1]=0 then formMessage = 'Email was not recognized' else mapForms = '' found = 'FALSE' for name=lst rowname=r do if mapPassword = r[1] then junk = dbgetrec(ORGDB, r[2]) mapLoggedIn = 'TRUE' mapForms = listtocol(ORG_FORMS, '; ') ORG_PASSWORD = '' found = 'TRUE' break /if /for if isfalse(found) then formMessage = 'Password is incorrect' /if /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 Marketing 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. /#>> <<#/ ############################################################################## /#>> MAP: Measuring Arts Participation
Participation List

<< if not(istrue(mapLoggedIn)) then display ^

You must log in before viewing this information.

^ /display if isdefined(formMessage) then display ^ ^ /display /if display ^
Email:
Password:

forget your password?
^+formMessage+^
^ /display else display ^
^ /display ddList = dbfind(ORGDB, 'ORG_MASTER<>"T"', 1, 9999, 'ORG_NAME') if dbresults[1,1]<>'TRUE' or dbresults[5,1]=0 then display LF+^ No records found in Organization Database
^ /display else tmp = getcolnoteq(ddList,1,'') tmp = getcolnoteq(tmp,1,'ERROR') tmp = nodups(tmp) tmp = sortcol(tmp,1) display ^ ^ /display /if display LF+^
^ /display /if if formSubmitted = 'mapSearchForm' then srch = '' if isdefined(srch_ORG_NAME) then srch = ' and ORG_NAME="'+srch_ORG_NAME+'"' /if #/ search org db for matches /# orgList = dbsearch(ORGDB, 'ORG_MASTER<>"T"'+srch, 1, 9999) if dbresults[1,1]<>'TRUE' or dbresults[5,1]=0 then display LF+^ No records found in Organization Database
^ /display else copy file="discipline.lst" ts=',' to discipline /copy hr = '
' for name=orgList rowname=r do display ^
^+hr+^
^+r[2]+^
^+r[7]+^ County
Contact: ^+r[3]+^
Phone: ^+r[6]+^    Email: ^+r[4]+^
Federal District: ^+8+^     State district: ^+r[9]+^
^ /display tmp = getcoleq(discipline,1,r[10]) if items(tmp)>1 then display LF+^ Discipline: ^+tmp[2]+^
^ /display /if hr = '
' /for /if /if formMessage = '' >>
<<#/ ########################### End of RIGHT Section ########################### /#>>
<> <>
<> <<#/jsGenDivSection/#>> <>