< % ERROR: >SELE * FROM Customer INTO CURSOR tCursor >lcHTMLfile = 'custlist.htm' && html template >lcHTMLout= FILETOSTR(oProp.HtmlPath+lcHTMLfile) > % > >< % ERROR: =oHTML.htmlTable('customers',lcHTMLout,10,.T.,'#E5E5E5',.F.,VAL(oRequest.querystring("page")),oRequest.querystring("nav")) % > >>
* mods RGJ ,accept existing .htm files >CASE LEN(ALLTRIM(oProp.Action))>0 > lcHTMLfile= oProp.HtmlPath + oProp.Action + '.htm' > IF ! FILE(lcHTMLFile) > lcHTMLfile = oProp.HtmlPath + 'default.htm' > ENDIF > lcHTMLout= FILETOSTR(lcHTMLfile) > lcHTMLout= oHTML.mergeScript(lcHTMLout) && was mergetext > >OTHERWISE>