>I just need an example of code then I can take it from there

I can expand on the example I already posted (below)

Please point out what's unclear to you -- specifically

cFile = 'some address'
use table
nField = fcount()
strtofile('', m.cFile)
strtofile('<table>' + chr(13) + chr(10), m.cFile, 1)
strtofile('<tbody>' + chr(13) + chr(10), m.cFile, 1)
scan
  strtofile('<tr>', m.cFile, 1)
  for iField = 1 to m.nField
    strtofile('<td>' + trim(eval(field(m.iField))) + '</td>', m.cFile, 1)
  endfor
  strtofile('</tr>' + chr(13) + chr(10), m.cFile, 1)
endscan
strtofile('</tbody>' + chr(13) + chr(10), m.cFile, 1)
strtofile('</table>' + chr(13) + chr(10), m.cFile, 1)