<< expand file='/support/jsGenMenu.htx' /expand expand file='/support/jsGenRollover.htx' /expand qot = ascii(39) GDB = '/gallery/gallery' if cat='' or cat='ERROR' then cat = 'art' /if copy file='/gallery/artforms-W.txt' ts=',' to writingTypes /copy writingTypes = tabletolist(writingTypes, ', ') copy file="/gallery/artforms.txt" ts="," to allforms /copy gSearch = 'ARTFORM.GRP=|"'+tabletolist(allforms, ' ')+'" and G.APPROVED="Y"' tmp = dbfind(dirname(PAGE)+'gallery', gSearch, 1, 999999, 'G.SMIMG,G.ARTFNAME,G.ARTISTLNAME,G.TITLE') rIdx = random(1, rows(tmp)) randompic = tmp[1,rIdx] randomtxt = tmp[4,rIdx]+'
by '+tmp[2,rIdx]+' '+tmp[3,rIdx]+'
' tmp = '' roFirstLayer = '

The Connections Online Art Gallery is here to exhibit your personal works of art -- both visual and literary. It is made possible through the generosity of the Geraldine R. Dodge Foundation as a way to creatively express the complex feelings we've all experienced following the September 11 terrorist attacks.

At ArtPRIDE we know that when times get tough, people turn to the arts. We hope you will use this gallery as a way to connect to others, express what cannot be easily be spoken, memorialize lost lives, and celebrate freedom, diversity and pride.

To upload your work, complete the linked form, following the guidelines available by clicking on the Help button.

Once you've placed your work into the gallery, please use the card feature to share it with friends and family and spread the word about Connections. We hope you will return often to participate and watch this project evolve over time. We welcome your feedback. Please email us at artpride@artpridenj.com. ' switch cat do case 'sch' do rolloverSearch = 'not (G.SCHOOL="") and G.APPROVED="Y"' rolloverHeader = 'Schools' rolloverFields = 'G.SCHOOL' rolloverExtraField = ',G.SCHOOL' roSortBy = 'G.SCHOOL' /case case 'org' do rolloverSearch = 'not (G.SUBMORG="") and G.APPROVED="Y"' rolloverHeader = 'Organizations' rolloverFields = 'G.SUBMORG' rolloverExtraField = ',G.SUBMORG' roSortBy = 'G.SUBMORG' /case case 'art' do rolloverSearch = 'G.SUBMORG="" and G.SCHOOL="" and G.APPROVED="Y"' rolloverHeader = 'Artists' rolloverFields = 'G.ARTISTLNAME,G.ARTFNAME' rolloverExtraField = '' roSortBy = 'G.ARTISTLNAME' /case /switch rolloverMode = cat roShowFields = 'G.ARTISTLNAME,G.ARTFNAME,G.TITLE,G.DESCFILE,G.SMIMG,G.LGIMG,'+ 'G.ARTFORM,G.TOWN,G.COUNTY'+rolloverExtraField function roListFunction(r) locals ret do if rolloverMode = 'art' then return ''+r[2]+' '+r[1]+'' /return /if return ''+r[1]+'' /return /function function roShowFunction(r) locals ret,pic,wSize,aDir,clickMsg,wLink,srch do ret = '' switch rolloverMode do case 'sch' do srch = 'G.SCHOOL="'+r[1]+'"' /case case 'org' do srch = 'G.SUBMORG="'+r[1]+'"' /case case 'art' do srch = 'G.ARTISTLNAME="'+r[1]+'" and G.ARTFNAME="'+r[2]+'" ' /case /switch gList = dbfind(GDB, srch+' and G.APPROVED="Y"', 1, 99, roShowFields) srchResults = dbresults if dbresults[1,1]='TRUE' and dbresults[5,1]>0 then for name=gList rowname=r do if locate(writingTypes, r[7]) = 0 then pic = '/gallery/images/'+r[6] wSize = '300,400' aDir = 'images' clickMsg = 'for larger image' wLink = 'send as a greeting card' else pic = '/gallery/images/writeIcon_150px.gif' wSize = '600,600' aDir = 'stories' clickMsg = 'to read story' wLink = '' /if if rolloverMode <> 'art' then source = r[10] else source = r[2]+' '+r[1] /if if ret != '' then ret = ret + ' '+ ' '+ ' '+ '' /if ret = ret + '
'+r[3]+'
click '+clickMsg+'

'+source+'


'+r[3]+'
'+r[2]+' '+r[1]+'


'+r[8]+'   '+r[9]+' County
'+r[7]+'
'+r[4]+'' /for /if return ret /return /function roMaxPerPage = 20 roListWidth = 200 roListHeight = 250 roListSpacing = 1 initRet = rolloverInitialize(GDB, rolloverSearch, rolloverFields, '<[FUNCTION]>', 'TRUE','FALSE','','') >> <> << 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 Networking Introduction <> <>
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. /#>> <<#/ ############################################################################## /#>>
<>
<< junk = rolloverShowData(515,400) >>
<<#/ ########################### End of RIGHT Section ########################### /#>>
<>
<> < 'TRUE' then display initRet /display /if>>
<>