programming.bas1

subroutine programming.bas1

***********************************************************************

* Programming example 1, put together a page

***********************************************************************

*

* [00] 25Nov97 jr Initial Creation

* [01] 02Nov00 jr Update coding style

include wbp w3Include

*  prepare subsitution strings for the header

substitutions      = ""                 

substitutions<1,1> = "$$TITLE$$"

substitutions<1,2> = "Simple, but boring"

header       = "**HEADING**":@VM:"Three Employees"

*  set up the HTML page

call w3HTMLInit("programming","")         ;* use programming.headfoot.htm

call w3HTMLHeader("",substitutions)

call w3HTMLInsertSection("programming1", header, "head")

*     insert names

subs = ""

subs<1,1> = "col1"

subs<1,2> = "jack"

subs<2> = "col2":@vm:"17500 Cartwright"

temp    = subs                           ;* substitution arrays are cleared

call w3HtmlInsertSection("programming1", temp, "detail")

subs<1,2> = "John"                       ;* only name changes

temp      = subs

call w3HtmlInsertSection("programming1", temp, "detail")

subs<1,2> = "Tina"                       

temp      = subs                                        

call w3HtmlInsertSection("programming1", temp, "detail")

call w3HtmlInsertSection("programming1", "", "end")

call w3HTMLFooter("","")

return