Bien, pues resulta que despues de hacer un reporte de las solicitudes por realizar se me ocurrió, ¿que tal si las exporto a excel? el porque no lo tenía muy claro, si para guardarla, facilitar la lectura de un reporte, compartirlo, imprimirlo, bueno no se, creo que era mas por curiosidad de saber hacerlo.
///////////////////////
<%@ Language=VBScript %>
<html>
<body>
<%
dim Cn,Rs
set Cn=server.createobject("ADODB.connection")
set Rs=server.createobject("ADODB.recordset")
Cn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("Mibasededatos.mdb")
Rs.open "select * from mitabla where estado <> 'realizada'",Cn,1,3
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=Enquiry_List.xls"
if Rs.eof <> true then
response.write "<table border=1>"
response.write "<tr><td>ID</td><td>Asignado a:</td><td>Solicitud</td><td>Fecha de Solicitud</td><td>Estatus</td></tr>"
while not Rs.eof
response.write "<tr><td>" & Rs.fields("folio") & "</td><td>" & Rs.fields("Tecnico") & "</td><td>" & Rs.fields("Solicitud") & "</td><td>" & Rs.fields("fecha") & "</td><td>" & Rs.fields("estado") & "</td></tr>"
Rs.movenext
wend
response.write "</table>"
end if
set rs=nothing
Cn.close
%>
</body>
</html>
//////////////////////
Listo con eso me muestra una pagina de excel que puedo descargar en mi disco duro con los datos del query.
Fuente: theukwebdesigncompany
