I re-wrote Andrew Grossman's webbanner.r (I made it simpler for my
simple mind) and I am able to get rebol on my local machine to print
the HTML code for a linked image on the command line but I can't get my
web server to output the HTML code.
Here is the script...
#!rebol -cs
print "Content-Type: text/html^/"
REBOL [
Title: "Banner Ad Randomizer"
File: %webbanner.cgi
Date: 16-Apr-2000
Author: "Ryan Christiansen"
Purpose: {
Generate HTML code that displays a linked banner advertisement
}
]
urls: [ "http://www.schonder.com"
"http://www.schonder.com"
"http://www.abisoft.com/BePlan/PurchaseBOSJ.html"
"http://www.lebuzz.com/buzzcd_ad.html"
"http://www.pushove.com/beos/"
"http://www.bebits.com/app/867"
]
imgs: [ "schonder.gif"
"schnondersource.gif"
"BePlan.gif"
"buzzcd_anim.gif"
"nvf.gif"
"ImageProAd.gif"
]
alts: [ "Papier-Schonder KG office supply and bookstore"
"Papier-Schonder KG office supply and bookstore"
"BePlan from AbiSoft"
"BuzzCD - Hand-picked best BeOS software"
"NVF: A Be-centric comic strip"
"ImagePro displays, zooms, and re-sizes images"
]
ad: random 6
url: pick urls ad
img: pick imgs ad
alt: pick alts ad
bannerHTML: rejoin [{<a href="} url {"><IMG SRC="} img {" ALT="} alt {"
target="_blank" border=0></a>}]
print bannerHTML
*******
I have also tried the following...
bannerHTML: print rejoin [{<a href="} url {"><IMG SRC="} img {" ALT="}
alt {" target="_blank" border=0></a>}]
do bannerHTML
... but the browser outputs "do bannerHTML"