Com este é possível forçar o browser a fazer download do arquivo passado por parâmetro no form. Pode ser qualquer tipo de arquivo tais como: GIF, JPG, PDF, DOC, TXT, PPT, e etc.
O código precisa ser inserido no início da página ASP
<%
'É necessário passar o nome do arquivo no FORM
Dim Arquivo
Arquivo = Request("arquivo")
Response.Buffer = True
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=" & Arquivo
Response.Flush
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath(Arquivo)
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush
%>
