<% Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 objStream.Open pathToFile = server.mappath(".") & "\captcha\" & right(left(session("DWKCaptcha"),request("captchaID")),1) & ".png" objStream.LoadFromFile (pathToFile) Response.ContentType = "image/png" Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing %>