' start VBSCRIPT plugin detection
Private i, x, MM_FlashControlVersion
On Error Resume Next
x = null
MM_FlashControlVersion = 0
var Flashmode, browserHasFlash
FlashMode = False
For i = 5 To 1 Step -1
        Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
        MM_FlashControlInstalled = IsObject(x)
        If MM_FlashControlInstalled Then
                 MM_FlashControlVersion = CStr(i)
                 Exit For
        End If
Next
FlashMode = (MM_FlashControlVersion >= neededVersion)
If FlashMode = True Then
  browserHasFlash = true
Else
 browserHasFlash = false
End If