w3Rotator.demo

Subroutine w3Rotator.demo

* [01] 29Sep97 jr Remove w3HtmlComplete

* [02] 22Dec99 jr Upgrade images

Include wbp w3Include ;* required

*   create a rotator list by adding entries to it

call w3RotatorAdd("",1,"pick100.gif")

call w3RotatorAdd("",1,"puzzlecollage.jpg")

image = ""                   ;* store the selected information here

text  = ""

call w3RotatorGet("", image)

call w3RotatorGet("w3Rotator.demo.text", text)

Call w3HtmlInit("w3Rotator","") ;* set the heading and footing

* set up the substitution array for the header

Sub1    = ""

Sub1<1> = "##IMAGE##":@VM:image

Sub1<2>="##TEXT##":@VM:text

Call w3HtmlHeader("",Sub1) ;* perform the subsitution

call w3HtmlFooter("","")   ;* move the footing to the page

*    delete the rotator list by deleting all its entries

call w3RotatorDelete("", "image1")

call w3RotatorDelete("", "image2")

return