<%

    'Response.ContentType = "application/x-unknown" ' arbitrary 
	Response.ContentType = "application/vnd.ms-powerpoint" ' arbitrary 
	
    fn = Request("FileName") '"CustomerPresentation_14.ppt" 
    FPath = server.MapPath("docs/" & fn)
    Response.AddHeader "Content-Disposition","attachment; filename=" & fn
 
    Set adoStream = CreateObject("ADODB.Stream") 
    adoStream.Open() 
    adoStream.Type = 1
    adoStream.LoadFromFile(FPath) 
    Response.BinaryWrite adoStream.Read() 
    adoStream.Close 
    Set adoStream = Nothing 
 
    Response.End 

'====================================================================
'http://www.topxml.com/asp/response_object_property_contenttype.asp
'Name:
' Description:
' 
'application/msword
' This type shows the content in MS Word.
' 
'application/vnd.ms-excel
' This type shows the content in MS Excel.
' 
'application/vnd.ms-powerpoint
' This type shows the content in MS Power Point.
' 
'application/pdf
' This type shows the content in PDF.
' 
'application/x-zip-compressed
' This type displays a file download dialog box.
' 
'application/x-msdownload
' This type displays a file download dialog box.
' 
'image/GIF
' This type shows the content as GIF.
' 
'image/JPEG
' This type shows the content as JPEG.
' 
'text/HTML
 '=====================================================================
%>