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')