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. ENDWITHThanks