<%
Dim objConn, strFile
Dim intCampaignRecipientID

strFile = Request.QueryString("file")

If strFile <> "" Then

    Response.Buffer = False
    Dim objStream
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Type = 1 'adTypeBinary
    objStream.Open
    objStream.LoadFromFile("http://siteadi.com/files/" & strFile & ".txt")
    Response.ContentType = "application/x-unknown"
    Response.Addheader "Content-Disposition", "attachment; filename=" & strFile & ".txt"
    Response.BinaryWrite objStream.Read
    objStream.Close
    Set objStream = Nothing

End If
%>

Yukarıdaki kodu download.asp olarak kaydedin,

Sonrasında;
download.asp?file=depokodu-tarih

şeklinde çağırırsanız istediğiniz dosyayı indirmeye başlar...