Rank: Member Groups: Member
Joined: 12/27/2007 Posts: 1
|
<% Response.ContentType = "application/x-unknown" ' arbitrary fn = "whatever.jpg" FPath = "c:\" & 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 %>
|