<!--
document.write(''+
'<scr'+'ipt language="VBScript">\nOn error resume next\n'+
'Private i, x\n'+
'MM_FlashControlInstalled = False\n'+
'For i = 7 To 1 Step -1\n'+
'Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)\n'+
'MM_FlashControlInstalled = IsObject(x)\n'+
'If MM_FlashControlInstalled Then\n'+
'MM_FlashControlVersion = CStr(i)\n'+
'Exit For\n'+
'End If\n'+
'Next\n'+
'</scr'+'ipt>');
//-->


/*Private i, x
On Error Resume Next
MM_FlashControlInstalled = False
For i = 6 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*/