[Resolvido] DB para Excel

[Salgado 4]

Código para exportar dados de um BD Acess para um arquivo ".csv" que pode ser aberto pelo excel.

<%@ Language=VBScript %> 
<% 
' GenerateXLS Version 1.0 by Brian Kirsten (bkirsten@brainscanstudios.com) 
' 1st modified 11/29/00 
' 2nd modification 10/25/02 
' copyright Ó 2000 Brain Scan Studios, Inc. (http://www.brainscanstudios.com) 
' source distributed under the gnu general public license. 
' let me know if your site is using the code i will put a link up to your page! 

Dim sTable 
Dim sDSN 
Dim sFields 
Dim sName 

sDSN = "DSN" 'Nome de seu DSN 
sFields = "FIELDS" 'Liste os Campos separados por virgula 
sTable = "TABLE_NAME" 'Nome de sua tabela 
sName = "Name" 'Nome do arquivo de saida 

Set DB = Server.CreateObject("ADODB.Connection") 
Set RS = Server.CreateObject("ADODB.Recordset") 

DB.Open sDSN 

RS.Open "select "& sFields &" from "& sTable,DB 

Response.ContentType = "application/csv" 
Response.AddHeader "Content-Disposition", "filename="& sName &".csv;" 'mydata.csv;" 
' Escrevendo o nome dos campos no topo 

for i = 0 to RS.Fields.Count-1 
if i = (RS.Fields.Count - 1) then 
Response.Write lcase(RS.Fields(i).Name) 
else 
Response.Write lcase(RS.Fields(i).Name) & "," 
end if 
next 

Response.write vbNewLine 
Response.write vbNewLine 

while not RS.EOF 

for u=0 to RS.Fields.Count - 1 
if u = (RS.Fields.Count - 1) then 
Response.Write RS.Fields(u).Value 
else 
Response.Write RS.Fields(u).Value & "," 
end if 
next 

response.write vbNewLine 

rs.MoveNext 
wend 

Response.write vbNewLine 
Response.write vbNewLine 

Set RS = Nothing 
Set DB = Nothing 

%>