NEver mind I figured it out.
Using...
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath(""&g_filename & "-"& month(date())& day(date())& year(date()) &".xls"), true)
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com

ffice:excel"">"
act.WriteLine "<head>"
I replied to myself !!!
