Com este código você vai poder
fazer o download de arquivos que estejam no seu servidor
sem que o navegador abra ou interprete qualquer tipo
de arquivo que passe por esse script! Funciona com qualquer
arquivo como dll, jpg, doc, etc…

Eu aconselharia a usar este arquivo como
um link e não como uma página diretamente.

Mudando somente a parte onde está o nome do arquivo
tup.jpg para um arquivo qualquer que vc queria baixar
sem o navegador interpretar!

OBS: Não dá para fazer isso com
arquivos remotos de outros servidores.

<%
Response.Buffer = True
login=”teste”
response.AddHeader “Content-Type”,”application/x-msdownload”

response.AddHeader “Content-Disposition”,”attachment;
filename=tup.jpg”
Response.Flush
Const adTypeBinary = 1
Dim strFilePath

Set objStream =
Server.CreateObject(“ADODB.Stream”)
objStream.Open
objStream.Type = adTypeBinary

objStream.LoadFromFileServer.MapPath(“tup.jpg”)

Response.BinaryWrite objStream.Read
objStream.Close Set
objStream = Nothing Response.Flush
%>