Private i, x, MM_FlashControlVersion
On Error Resume Next
x = null
MM_FlashControlVersion = 0
var Flashmode
FlashMode = False
For i = 9 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
document.write ""
document.write " "
Else
document.write "
"
document.write "
"
document.write "
"
document.write "
"
document.write "
"
document.write "
"
document.write "
"
document.write "
"
document.write "
"
document.write ""
document.write "
"
document.write ""
document.write "
This interactive tour requires the latest version of the Macromedia Flash Player."
document.write " Download it now.
"
document.write ""
document.write "
"
document.write ""
document.write "
"
document.write ""
document.write "
"
document.write ""
document.write ""
document.write ""
End If