<%@ Language=VBScript %>
<%
' export_to_excel.asp
'
[email protected]
'
' Como usarlo:
' En la página ASP desde donde deseas exportar
' haces un link hacia esta página
' usas session("sqlquery") Query de la B.D.
' session("XLSFilename") Nombre de archivo XLS
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open("dsn=TU_DSN;uid=sa;pwd=tu_pwd;")
set rs = CreateObject("ADODB.Recordset")
sqltxt=session("sqlquery") 'Es la query de la BD.
rs.Open sqltxt, cn
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename="&session("XLSFilename")&".xls"
if Rs.eof <> true then
response.write "<table border=1>"
select case session("XLSFilename")
case "customreport"
response.write "<tr>"
For i = 0 to rs.fields.count-1
response.write "<td>"& Rs.fields(i).name & "</td>"
next
response.write "</tr>"
response.write "<tr>"
For i = 0 to rs.fields.count-1
response.write "<td>"& Rs.fields(i) & "</td>"
next
response.write "</tr>"
end select
%>