sub showimg()
Response.Clear()
Response.ContentType = "image/gif"
Response.AddHeader("Content-Disposition", "inline")
Response.BinaryWrite(myDataReader.Item("pic"))
Response.End()
end sub