<% Response.Buffer = True Response.Clear Response.Expires = 0 Response.AddHeader"Cache-Control","no-cache" Response.AddHeader"Pragma","no-cache" Response.contenttype = "image/jpeg" Dim b b = Application("theImage") Response.binarywrite b Response.End %>