select mytable go top lnfields=afields(lafields) lchtml='<table>' lchtml=lchtml+'<tr>' for i = 1 to lnfields lchtml=lchtml+'<td>'+ALLTRIM(lafields(i,1))+'</td>' next i lchtml=lchtml+'</tr>' scan lchtml=lchtml+'<tr>' for i = 1 to lnfields lchtml=lchtml+'<td>'+trans(eval(lafields(i,1)))+'</td>' next i lchtml=lchtml+'</tr>' endscan lchtml='<head><body>'+lchtml+'</table>,</body></html>' STRTOFILE(lchtml,'c:\test.htm')>Hi,