w3libintroidx.html

subroutine

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

* Create a simple static page using the default system header & footer *

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

* [02] 22Jul97 jr Use DOCUMENT_ROOT and IMAGES

EQU DOCUMENT_ROOT to "/w3library"                ;* [02]

EQU IMAGES        to "/Images/"                  ;* [02]

include wbp w3include

 

call w3HtmlInit( '' ,"")                         ;* Use the std head/foot

* Get version & update it with the install timedate

open 'md' to md else stop

read ver from md,'version' else ver = ''

ver<4> = timedate()

write ver on md,'version'

call w3printn('<html><body bgcolor="seashell" background=':DOCUMENT_ROOT:IMAGES:'d3light.gif">')  ;* [02]

call w3printn('<table border=1>')

call w3Printn('<tr><th colspan=2>FlashCONNECT</th></tr>')

call w3Printn('<tr><td>Version</td><td>':ver<1>:' ':ver<2>:'</td></tr>')

call w3Printn('<tr><td>Built</td><td>':ver<3>:'</td></tr>')

call w3Printn('<tr><td>Installed</td><td>':ver<4>:'</td></tr>')

call w3printn('</table>')

call w3printn('</html>')

return