if (navigator.appName = "Microsoft Internet Explorer" and instr(1,navigator.userAgent,"Win") > 0) then
   on error resume next
   var Flashmode
   FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))
   If FlashMode = False Then
      FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))
   End If
End if