// JavaScript Document
Private i, x, FlashControlVersion
On Error Resume Next
x = null
FlashControlVersion = 0
var Flashmode
FlashMode = False
var do_dw_var
var browser_flash_version
For i = 9 To 5 Step -1
     Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
     FlashControlInstalled = IsObject(x)
     If FlashControlInstalled Then
         FlashControlVersion = CStr(i)
         Exit For
     End If
Next
x = null
FlashMode = (FlashControlVersion >= 6)
do_dw_var = FlashMode
browser_flash_version = FlashControlVersion