Private i, x, MM_FlashControlVersion
On Error Resume Next
x = null
MM_FlashControlVersion = 0
var Flashmode
FlashMode = False
For i = 7 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 >= 6)

If FlashMode >= True Then
  If MM_FlashControlVersion <= 5 Then
   navigate("indexn.html")
  End If

Else
  navigate("indexn.html")
End If