como exportar tablas a excel desde una pagina creada en ASP

[ireneo]

vchPrimerRegitro = "N"
vinCenDisAnt = vinCenDisAct


vinKmRec = Clng(rsData2(11)) - Clng(rsData2("OdometroAnterior"))
vinRendimiento = vinKmRec / rsData2("Volumen")
vinImporte = Ccur(rsData2("Precio") * rsData2("Volumen"))

vinSubTotKmrec = vinSubTotKmRec + vinKmRec
vinSubTotLitros = vinSubTotLitros + rsData2("Volumen")
vinSubTotRendimiento = vinSubTotRendimiento + vinRendimiento
vinSubTotImporte = vinSubTotImporte + vinImporte

'Totales por Unidad
vinTotUniKmrec = vinTotUniKmrec + vinKmRec
vinTotUniLitros = vinTotUniLitros + rsData2("Volumen")
vinTotUniRendimiento = vinTotUniRendimiento + vinRendimiento
vinTotUniImporte = vinTotUniImporte + vinImporte
if vchPrimerRegCorte = "S" then
vstUnidad = rsData2("Unidad")
vstDescUnidad = rsData2("Descripcion")
vinKmIni = rsData2("OdometroAnterior")
vinKmFin = rsData2(11)
vchPrimerRegCorte = "N"
else
vinKmFin = rsData2(11)
end if

'Totales por CenDis
vinTotKmrec = vinTotKmrec + vinKmRec
vinTotLitros = vinTotLitros + rsData2("Volumen")
vinTotRendimiento = vinTotRendimiento + vinRendimiento
vinTotImporte = vinTotImporte + vinImporte


vinUnidadAnt = vinUnidadAct
rsData2.MoveNext

if rsData2.eof then
if vchColor = "#C6ECF2" then
vchColor = "#FFFFFF"
else
vchColor = "#C6ECF2"
end if
%>

<TR VALIGN="middle" BGCOLOR="<%=vchColor%>" align="center">
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vstUnidad%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vstDescUnidad%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vinKmIni%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vinKmFin%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vinTotUniKmrec%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatNumber(vinTotUniLitros,3)%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatNumber(vinTotUniRendimiento,2)%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatCurrency(vinTotUniImporte,2)%></font></td>
</tr>

<%
vinTotUniKmrec = 0
vinTotUniLitros = 0
vinTotUniRendimiento = 0