Perdon, la costumbre de usar abreviaturas en el trabajo...
TS=TextStream object
Veamos...
<%
Dim oFS, oTS, sHTML
sHTML="<table border="0" cellspacing="1" cellpadding="0" width="100%" bgcolor="#FFFFFF">
<tr>
<td align="center" colspan="4"><font class="s1"><b>GASTOS</b></tr>
<tr>
<td align="center" colspan="4">
<font class="s1"><b>DATOS al: 23/5/2003</b><br>
- Miles de pesos -</tr>
<tr>
<td align="left" colspan="4"><hr></td></tr>
<tr>
<td align="left"><font class="s1"><b>Region</b></td>
<td align="right"><font class="s1"><b>Gastado</td>
<td align="right"><font class="s1"><b>Programa</td>
<td align="Right"><font class="s1"><b>Avance %</td></tr>
<tr>
<td><font class="s1">NORTE</td>
<td align="right"><font class="s1">3,818,958.8</td>
<td align="right"><font class="s1">6,502,449.9</td>
<td align="right"><font class="s1">58.7</td>
</tr>
</table>"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oTS = oFS.OpenTextFile(_tu_archivo_, ForWriting, True)
oTS.Write sHTML
oTS.Close
oFS.Close
%>
<a href='_tu_archivo_'>Descarga la tabla desde aca</a>