lcHTML = '<html><table><tr>' for lnI = 1 to fcount() lcHTML = lcHTML + '<td>' + field(lnI) + '</td>' endfor lcHTML = lcHTML + '</tr>' scan lcHTML = lcHTML + '<tr>' for lnI = 1 to fcount() lcHTML = lcHTML + '<td>' + tran(eval(field(lnI))) + '</td>' endfor lcHTML = lcHTML + '</tr>' endscan lcHTML = lcHTML + '</table></html>'