Esta rotina gera qualquer tipo de arquivo com a utilização de Scripting.FileSystemObject

Sql = Request("SQL") set Rs = conn.Execute(SQL) 'obtem o nome do arquivo informado Arquivo = "Arquivo_"& replace(Date(),"/","") &".xls" fileExcel = Arquivo filePath = Server.mapPath("\\novosite\\arquivo") filename = filePath & "\\" & fileExcel Set fs = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = fs.CreateTextFile(filename, True) strLine = ""  For each x in rs.fields    'separa os nomes dos campos com um tab para que     eles possam aparecer me colunas diferentes no Excel     strLine= strLine & lcase(x.name) & chr(9) Next 'escreve a string no arquivo MyFile.writeline strLine 'retorna os valores do banco de dados e escreve no arquivo Do while Not rs.EOF     strLine=""     for each x in rs.Fields         strLine= strLine & x.value & chr(9) '- Este se         usa para o Excel        'strLine= strLine & x.value & ";" '- Este se         usa para Arquivos txt     next     MyFile.writeline strLine     rs.MoveNext Loop MyFile.Close Set MyFile=Nothing Set fs=Nothing

Quebra-Linha

Colaborador..: FREDERICO AUGUSTO MAIELO
Categoria(s).: ASP;
Versão.......: 1.0
Data.........: 18/07/2007 14:11:57
Visualizado..: 5358 vezes
Fonte........: Fred Maielo