<!--#include file="../global_includes/global.asp"-->

<%
Response.ContentType = "application/x-unknown"

Dim strFileName
Dim strFilePath

strFileName = request.querystring("strFileName")
strFilePath = server.mappath(fileUploadDestination & "content_files\images\" & strFileName) 

Response.AddHeader "Content-Disposition","attachment; filename=" & strFileName 
 
Set adoStream = CreateObject("ADODB.Stream") 
adoStream.Open() 
adoStream.Type = 1 
adoStream.LoadFromFile(strFilePath) 
Response.BinaryWrite adoStream.Read() 
adoStream.Close 
Set adoStream = Nothing 

Response.End 
%>