Dim img As String = Server.MapPath("images/errIoc.gif")
        Dim frd As New FileStream(img, FileMode.Open)
        Dim imgbyte(frd.Length) As Byte
        frd.Read(imgbyte, 0, frd.Length)
        frd.Close()
        frd = Nothing
        Response.ClearContent()
        Response.ContentType = "image/Gif"
        Response.BinaryWrite(imgbyte)