<% Set rs_File = Server.CreateObject("ADODB.Recordset") sql="select * from ProductFile where FileID=" & Request("PicID") & ";" rs_File.Open sql,conn,0,1 if Not rs_File.EOF then Response.ContentType = "application/octet-stream" 'Response.AddHeader "Content-Disposition", "attachment;filename=" & Trim(""&rs_File("FileName").value) 'Response.AddHeader "Content-Length", CStr(""&rs_File("FileSize").value) Response.BinaryWrite rs_File("Blob").value end if rs_File.Close set rs_File=Nothing %>