<% Response.Buffer = false Response.ContentType = "image/jpeg" Response.AddHeader "Content-Type", "image/jpeg" Response.AddHeader "Content-Disposition", "inline;filename=/App_Data/Pics/" & request.querystring("ref") Const adTypeBinary = 1 Dim strFilePath strFilePath = Server.MapPath("/App_Data/Pics/" & request.querystring("ref")) Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile strFilePath Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing %>