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
%>
