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 + '
<<#/ ############################################################################# /#>>
<<#/ 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>>
<>