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"

Reply via email to