Trato de meter una tabla que viene de una consulta a un archivo de texto, este es el código:
<%
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
Me manda el siguiente error en la linea 25 donde esta el nombre del archivo:
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
/atw/tabla_en_archivo.asp, line 25
