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>