CÓDIGO POSTADO POR yaru
Gente eu estava passeando por uns links qdo descobri, que alguem havia achado a solução para salvar arquivos como os doc, pdf e xls apenas com um script em asp!
bom o artigo tá ai!
<% 'Avisamos que o modelo do arquivo será para download response.AddHeader "Content-Type","application/x-zip-compressed" 'Identificamos o nome que queremos para o arquivo de destino 'mude o Filename para o nome que você deseja ! response.AddHeader "Content-Disposition","attachment; filename=DemonsASPFX.XLS" Response.Flush Response.Buffer = True Const adTypeBinary = 1 Dim strFilePath 'O ADODB Stream foi utilizado para lermos o arquivo em formato 'binário, o FileSystemObject não permite leituras binárias e 'se fosse convertido para texto poderíamos danificar o arquivo. Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary 'Informe aqui o caminho completo do arquivo no servidor, 'se você não souber o caminho completo, mude o "E:\Home..." por 'Server.MapPath("Nome_Do_Arquivo") objStream.LoadFromFile "E:\Home\FatorX\Web\FXWeb\ASP\Download\DemonsASPFX.xls" Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing Response.Flush %>