> >create cursor mycursor (cfield1 c(10), nfield2 n(10)) > >FOR i = 1 TO 10 > m.cfield1 = TRANSFORM((RAND(i+10)*100)-i) > m.nfield2 = RAND(i+10)*100 > INSERT INTO mycursor FROM memvar >NEXT i > >lchtml = '<html><body><table border=1>' >select mycursor >go top >scan > lchtml = lchtml + '<tr>' > lchtml = lchtml + '<td><font face=arial><b>' + allt(mycursor.cfield1) + '</b></font></td>' > lchtml = lchtml + '<td><font face=courier>' + trans(mycursor.nfield2) + '</font></td>' > lchtml = lchtml + '</tr>' >endscan >lchtml = lchtml + '</table></body></html>' > >STRTOFILE(lchtml,'c:\testhtm.htm') >Thanks!