>TEXT TO THISFORM.lcHTML NOSHOW TEXTMERGE ><html> > ><head> ><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> ><title>New Page 1</title> ></head> > ><body> > ><p><a href="file://<<thisform.business.data.cAttach>>"> ><<thisform.business.data.cAttach>></a></p> > ></body> > ></html> >ENDTEXT >XINDEX=ADDBS(SYS(5)+SYS(2003))+"HTML\FILENOTES\INDEX.HTM" > >WITH thisform.pgf1.page2.oWB > .Navigate(XINDEX) > lnStartSeconds = SECONDS() > DO WHILE .ReadyState <> 4 ; > AND (SECONDS()-lnStartSeconds <= 1 ) > DOEVENTS > ENDDO > .DOCUMENT.OPEN() > .DOCUMENT.WRITE(thisform.lchtml) > .DOCUMENT.CLOSE() > .visible=.t. >ENDWITH > > >>