<% vfilename=".\images\File\" &trim(request("filename")) Response.buffer = True Response.AddHeader "Content-Disposition", "attachment; filename=" & request("filename") Response.BinaryWrite(GetFileStream(server.mappath(vfilename))) Response.Write "" Response.End Function GetFileStream(FileName) Set objStream = Server.CreateObject("ADODB.Stream") objStream.type=1 objStream.Open objStream.LoadFromFile(FileName) GetFileStream = objStream.read Set objStream = Nothing End Function %>