public function CheckIEFlash()
       on error resume next
       dim flob, i, flver, flag
       flag = False
       CheckIEFlash = 0
       For i = 3 to 10
           flag = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))
           if (flag = True) then
              CheckIEFlash = i
           end if
           flag = False
       Next
end function