* Write some content set textmerge to memvar m.HTMLContent noshow set textmerge on \<Table border="1"> \ <tr><th>Name</th><th>Address</th></tr> for ix=1 to alen(aNames,1) \ <tr><td><<aNames[m.ix,1]>></th><th><<aNames[m.ix,2]>></th></tr> endfor \</table> set textmerge off set textmerge to loHTMLHeader = Createobject('wwHTMLHeader',Response) loHTTPHeader = Createobject('wwHTTPHeader',Response) This.PrepHeader(loHTTPHeader, loHTMLHeader, 'My Title') With Response .HTMLHeaderEx(loHTMLHeader,loHTTPHeader) .FastWrite(m.HTMLContent) .HTMLFooter() Endwith Procedure PrepHeader Lparameters toHTTPHeader, toHTMLHeader, tcTitle, tcBodyTag With toHTTPHeader .DefaultHeader() * .AddForceReload() * .CompleteHeader() Endwith With toHTMLHeader .cHeadSection = .cHeadSection+; [<META HTTP-EQUIV="Pragma" CONTENT="no-cache">]+CRLF+; [<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">]+CRLF+; [<META HTTP-EQUIV="Expires" CONTENT="0">]+CRLF .AddTitle(m.tcTitle) .AddJavaScript('function nothing() {}') tcBodyTag = Iif(!Empty(tcBodyTag),tcBodyTag,BODYTAG) .cBodyTag = Stuff(tcBodyTag, Rat('>',tcBodyTag),1,' onUnload="nothing();">') Endwith EndprocCetin