gracias Mickel como me mandaba error por las comillas dobles y luego por cadena no terminada lo puse así:
<%
Dim oFS, oTS, sHTML
sHTML="<table border='0' cellspacing='1' cellpadding='0' width='100%' bgcolor='#FFFFFF'>"
sHTML=sHTML & "<tr>"
sHTML=sHTML & "<td align='center' colspan='4'><font class='s1'><b>GASTOS</b></tr>"
sHTML=sHTML & "<tr>"
sHTML=sHTML & "<td align='center' colspan='4'>"
sHTML=sHTML & "<font class='s1'><b>DATOS al: 23/5/2003</b><br>"
sHTML=sHTML & "- Miles de pesos -</tr>"
sHTML=sHTML & "<tr>"
sHTML=sHTML & "<td align='left' colspan='4'><hr></td></tr>"
sHTML=sHTML & "<tr>"
sHTML=sHTML & "<td align='left'><font class='s1'><b>Region</b></td>"
sHTML=sHTML & "<td align='right'><font class='s1'><b>Gastado</td>"
sHTML=sHTML & "<td align='right'><font class='s1'><b>Programa</td>"
sHTML=sHTML & "<td align='Right'><font class='s1'><b>Avance %</td></tr>"
sHTML=sHTML & "<tr>"
sHTML=sHTML & "<td><font class='s1'>NORTE</td>"
sHTML=sHTML & "<td align='right'><font class='s1'>3,818,958.8</td>"
sHTML=sHTML & "<td align='right'><font class='s1'>6,502,449.9</td>"
sHTML=sHTML & "<td align='right'><font class='s1'>58.7</td>"
sHTML=sHTML & "</tr>"
sHTML=sHTML & "</table>"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oTS = oFS.OpenTextFile(archivo.txt, ForWriting, True)
oTS.Write sHTML
oTS.Close
oFS.Close
pero ahora me manda el error:
Microsoft VBScript runtime error '800a01a8'
Object required: 'archivo'
/DALFTAIPG/tabla_en_archivo.asp, line 25
Le falta algo?