nptest

Subroutine NPtest

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

* Provide a simple example event driven application

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

Include wbp w3Include ;* required

EQU   ITEMID to "NpEvent"

call w3GetVal(item, "SUBMIT")

if item = "END" then

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

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

   call w3HtmlInsert("npTest.done","")

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

end else

  item = timedate()                      ;* something changes over time

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

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

  Call w3HtmlFormBeg(w3_NP,"")            ;* start a non-persistent form

  call w3HtmlInsert("NpTest.body", "!!VALUE!!":@VM:item)

  call w3HtmlFormEnd                      ;* End the form

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

end

return