InsertSections

subroutine InsertSections

* [00] 19Nov99 jack Act: 23522 Initial creation

include wbp w3Include

call w3HtmlInit("InsertSections", "")       ;* set overall look and feel

subs = ""

call w3SubsGet("InsertSections.subs", subs) ;* get the title

call w3HtmlHeader("", subs)                 ;* process the top of the page

call w3HtmlInsertSection("InsertSections.template", "", "first")

for I = 1 to 5

    subs     = ""

    subs<-1> = "##ROW##":@vm:i

    subs<-1> = "##TEXT##":@vm:timedate()

    call w3HtmlInsertSection("InsertSections.template", subs, "second")

next i

call w3HtmlInsertSection("InsertSections.template", "", "third")

call w3HtmlFooter("","")

return