'  Questo script viene nascosto ai browser che non lo interpretano 
'  Script valido per 
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 >= 7)
If FlashMode = True Then
   Flashmode=1
Else
   Flashmode=0
End If