var FlashActiveX;
var FlashActiveXVersion;

function FlashOK( version )
{
  if (navigator.plugins && navigator.plugins.length > 0)
  {
 	  if (navigator.plugins["Shockwave Flash"])
    {
      var words = navigator.plugins["Shockwave Flash"].description.split(" ");

    	for (var i = 0; i < words.length; ++i)
  	  {
        if (isNaN(parseInt(words[i])))
       		continue;
  
     		if ( parseInt(words[i]) >= version )
     		{
     		  return true;
     		}
      }
    }
  }
  else if ( FlashActiveX != null)
  {
    if ( FlashActiveX )
    {
      return FlashActiveXVersion >= version;
    }
  }

  return false;
}


if ( navigator.userAgent.indexOf("MSIE") != -1 )
{
  if ( ! ( ( navigator.appVersion.indexOf("Mac") != -1 ) && ( parseInt(navigator.appVersion) == 3) ) )
  {
    document.writeln('<script language="VBScript">');
    document.writeln('Private i, x');

    document.writeln('On Error Resume Next');

    document.writeln('FlashActiveX = False');
    document.writeln('FlashActiveXVersion = 0');

    document.writeln('For i = 6 To 2 Step -1');
       
    document.writeln('  Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)');
  
    document.writeln('  If IsObject(x) Then');
    document.writeln('    FlashActiveX = True');
    document.writeln('    FlashActiveXVersion = i');
    document.writeln('    Exit For');
    document.writeln('  End If');

    document.writeln('Next');

    document.write('</scr');
    document.writeln('ipt>');

  }
}