<<# ###################################################### /# # card.html /# # ###################################################### /# LOCALDIR = dirname(PAGE) if not(istrue(cardPreview)) then cardIdCode = CID /if cardFile = LOCALDIR+"cards/"+cardIdCode+".txt" copy file=cardFile to cardText /copy cardInfo = listtocol(cardText, LF) #/ cardInfo row numbers: /# #/ image = 1 /# #/ from = 2 /# #/ from email = 3 /# #/ to = 4 /# #/ to email = 5 /# #/ closing = 6 /# #/ message = 7 /# submitButton = "" >> ArtPRIDE New Jersey Greeting Card
Dear <>,

<"+LF)>>

<>,
<>

Support arts education in your local schools and arts organizations. Message courtesy of ArtPRIDE NJ.
"Original art may not be reproduced without the express written permission of the artist."
<< if not(istrue(cardPreview)) then display ' To respond to this card`s sender, click here ' /display else display '
' /display /if >>
< 0 then cardMailMessage = cardMailMessage + '' /if cardMailMessage = cardMailMessage + 'http://'+DOMAINNAME+'/cgi-bin/'+SYSSTARTNAME+'/welcome2000.html?CID='+cardIdCode if locate(cardAddr, "aol.com") <> 0 then cardMailMessage = cardMailMessage + '' /if cardMailMessage = cardMailMessage + LF+LF if locate(cardIdCode, 'g') = 0 then cardSubject = cardInfo[1,2]+' says '+cardDefaultMessage else cardSubject = "You've received an e-card from "+cardInfo[1,2] /if mail cardMailMessage to address=cardAddr subject=cardSubject /mail cardAddr = "" cardMailMessage = "" if locate(cardIdCode, 'g') = 0 then goto LOCALDIR+"card_holiday.html" else goto '/gallery/gallery_intro.html' /if /if >>