pasar datos de una base de datos a un planilla exel?

[jetzona]

hola, yo de nuevo, me gustaria saber como pasaar los datso que rescato en el recorset de una consulta a una planilla exel, para que?? para poder generar un grafico en dicha planilla, por que la idea de fondo es generar graficas , me encuentro trabajando con asp pero tengo muchos problemas, alguna sugerencia??? de que hacer??

[mc_quake]

ejemplo

<%
Response.Expires = 0
Response.Buffer = True

'fecha= request.QueryString("fecha")
'if fecha = " " Then
fecha = Date()
'End If

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment;filename=nombrearchivo.xls"


Set Conexion = Server.CreateObject ("ADODB.Connection")
Conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Reclamo.mdb;"

Set Registros = Server.CreateObject ("ADODB.RecordSet")
Sql = "SELECT * FROM TEMP_RESOLUCIONES WHERE RESO_F_INGRE_SISTEMA = #"&fecha&"#"
Registros.Open Sql, Conexion

%>
<table width="958" border="1">
<tr>
<td width="186"><strong><font size="1" face="Arial, Helvetica, sans-serif">Nombre</font></strong></td>
<td width="94"><strong><font size="1" face="Arial, Helvetica, sans-serif">Rut</font></strong></td>
<td width="96"><strong><font size="1" face="Arial, Helvetica, sans-serif">Telefono</font></strong></td>
<td width="129"><strong><font size="1" face="Arial, Helvetica, sans-serif">Nomina Subtel </font></strong></td>
<td width="141"><strong><font size="1" face="Arial, Helvetica, sans-serif">Fecha Entrega a Correo</font></strong></td>
<td width="140"><strong><font size="1" face="Arial, Helvetica, sans-serif">Fecha Ingreso Sistema</font></strong></td>
<td width="126"><strong><font size="1" face="Arial, Helvetica, sans-serif">Fecha Vencimiento </font></strong></td>
</tr>
<%
Do While Not Registros.EOF
%>
<tr>
<td><font size="1" face="Times New Roman, Times, serif"><%=Registros("RESO_NOM")%></font></td>
<td><font size="1" face="Times New Roman, Times, serif"><%=Registros("RESO_RUT")%></font></td>
<td><font size="1" face="Times New Roman, Times, serif"><%=Registros("RESO_NUM_TELE")%></font></td>
<td><font size="1" face="Times New Roman, Times, serif"><%=Registros("RESO_NOMINA_RESO")%></font></td>
<td><font size="1" face="Times New Roman, Times, serif"><%=Registros("RESO_CORREO")%></font></td>
<td><font size="1" face="Times New Roman, Times, serif"><%=Registros("RESO_F_INGRE_SISTEMA")%></font></td>
<td><font size="1" face="Times New Roman, Times, serif"><%=Registros("RESO_FECHA_VEN")%></font></td>
</tr>
<%
Registros.MoveNext
Loop
%>
</table>
<p> <br>
</p>