LOCAL lnFieldNum as Integer LOCAL lnFieldTotal as Integer LOCAL lcHTML as String CLOSE ALL USE HOME()+"samples\data\customer.dbf" lnFieldTotal = FCOUNT() lcHTML = "<HTML><BODY><TABLE BORDER = '1'>" SCAN lcHTML = lcHTML + "<TR>" FOR lnFieldNum = 1 TO lnFieldTotal lcHTML = lcHTML + "<TD>" + TRANSFORM(EVALUATE("customer." + FIELD(lnFieldNum))) + "</TD>" ENDFOR lcHTML = lcHTML + "</TR>" ENDSCAN lcHTML = lcHTML + "</TABLE></BODY></HTML>" STRTOFILE(lcHTML,"test.html")