if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 && 
	  navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1) with (document) {

writeln('  <script language="VBScript"\>');
writeln('      Function VBGetFlashControlVersion()');
writeln('        on error resume next');
writeln('        Dim Control');
writeln('        set Control = vbNull');
writeln('        Dim theversion');
writeln('        set theversion = 0');
writeln('        Dim server');
writeln('        server = "ShockwaveFlash.ShockwaveFlash"');
writeln('        set Control = CreateObject(server)');
writeln('        if (IsObject(Control)) then');
writeln('          Dim majorVersion');
writeln('          Dim minorVersion');
writeln('          Dim controlVersion');
writeln('          controlVersion = Control.FlashVersion()');
writeln('         majorVersion = int(controlVersion / 65536)');
writeln('          minorVersion = controlVersion mod 65536');
writeln('          if (minorVersion < 100) then minorVersion = "0" + CStr(minorVersion)');
writeln('          if (minorVersion < 10)  then minorVersion = "0" + CStr(minorVersion)');
writeln('          theversion = CStr(majorVersion) + ".0" + CStr(minorVersion)');
writeln('        end if');
writeln('        VBGetFlashControlVersion = theversion');
writeln('      End Function');
writeln('      Function VBGetFlashVersionByTrialAndError');
writeln('        on error resume next');
writeln('        Dim Control');
writeln('        set Control = vbNull');
writeln('        Dim serverVersion');
writeln('        set serverVersion = 0');
writeln('        For i = 10 To 1 Step -1');
writeln('          Dim server');
writeln('          server = "ShockwaveFlash.ShockwaveFlash." + CStr(i)');
writeln('          set Control = CreateObject(server)');
writeln('          if (IsObject(Control)) then');
writeln('            serverVersion = i');
writeln('            Exit For');
writeln('          end if');
writeln('        Next');
writeln('        VBGetFlashVersionByTrialAndError = serverVersion');
writeln('      End Function');
writeln('      Function VBGetShockwaveVersion(component)');
writeln('        on error resume next');
writeln('        Dim Control');
writeln('        Control = vbNull');
writeln('        Dim theresult');
writeln('        theresult = "0"');
writeln('        Dim server');
writeln('        server = "SWCtl.SWCtl.7"');
writeln('        set Control = CreateObject(server)');
writeln('        if (IsObject(Control)) then');
writeln('          theresult = CStr(Control.ShockwaveVersion(component))');
writeln('        end if');
writeln('        VBGetShockwaveVersion = theresult');
writeln('      End Function');
writeln('      Function VBGetShockwaveVersionByTrialAndError()');
writeln('        on error resume next');
writeln('        Dim Control');
writeln('        set Control = vbNull');
writeln('        Dim serverVersion');
writeln('        set serverVersion = 0');
writeln('        For i = 10 To 1 Step -1');
writeln('          Dim server');
writeln('          server = "SWCtl.SWCtl." + CStr(i)');
writeln('          set Control = CreateObject(server)');
writeln('          if (IsObject(Control)) then');
writeln('            serverVersion = i');
writeln('            Exit For');
writeln('          end if');
writeln('        Next');
writeln('        if (serverVersion = 1) then serverVersion = 6');
writeln('        VBGetShockwaveVersionByTrialAndError = serverVersion');
writeln('      End Function');
writeln('</script\>');
}



      function setPlayerVersions()
      {
        // Set these local variables to avoid the Netscape 4 crashing bug.
        thearray = navigator.plugins
        arraylen = thearray.length

        // Step through each plugin in the array.
        for (var i=0; i < arraylen; i++)
        {
          // Set these local variables to avoid the Netscape 4 crashing bug.
          theplugin = thearray[i]
          thename   = theplugin.name
          thedesc   = theplugin.description

          // If the plugin is Shockwave...
          if (thename == "Shockwave for Director")
          {
            // ...find the version number.
            var versionLoc = thedesc.indexOf("version ");
            var versionString = thedesc.substring(versionLoc + 8,thedesc.length);

            if (versionString == '7 .0.3')             { swVersion = 7.03000; }
            else if (versionString == '7.0.3')         { swVersion = 7.03000; }
            else if (versionString.indexOf('7.') > -1) { swVersion = 7.00000; }
            else if (versionString.indexOf('8.') > -1) { swVersion = 8.00000; }
            else if (versionString.indexOf('6.') > -1) { swVersion = 6.00000; }
            else { swVersion = integer(versionString) ; }
          }
          
          // If we're dealing with a Flash plugin...
          if (thedesc.indexOf("Shockwave Flash ") != -1)
          {
            // ...then find the version number.
            var versionLoc = thedesc.indexOf("Shockwave Flash ");
            var versionString = thedesc.substring(versionLoc + 16,thedesc.length);
            var minorVersion;
            var majorVersion;

            // Look for an " r".  Whatever's after the "r" is the minor version. For
            // example, "Flash 4.0 r12" is minor release 12 of Flash 4.
            versionLoc = versionString.indexOf(" r");
            if (versionLoc != -1)
            {
              // If there is an "r", then everything before the " r" is the major version...
              majorVersion = versionString.substring(0,versionLoc);

              // ...and everything after is the minor version.
              minorVersion = versionString.substring(versionLoc + 2,versionString.length);

              // Format the final version string as x.xyy where x.x is the major version
              // and yy is the minor release version.
              FlashVersion = parseFloat(majorVersion + (minorVersion < 100 ? "0" : "") + (minorVersion < 10 ? "0" : "") + minorVersion);
            }
            else
            {
              // If there is no "r", then set the version string to be all of the version info.
              FlashVersion = parseFloat(versionString);
            }
          }
        }
      }

      var swVersion = 0;
      var FlashVersion = 0;
      var isFlashInstalled = false;

		if (navigator.appName=="Netscape" || navigator.userAgent.indexOf("Mac")>=0) {
			setPlayerVersions();
      	} else if (navigator.appName=="Microsoft Internet Explorer") {
      		// First check for Flash Player
	      FlashVersion = VBGetFlashControlVersion() || 0;
	      if (FlashVersion == 3.0008)
	      {
	        var serverVersion = VBGetFlashVersionByTrialAndError();
	        if (serverVersion > FlashVersion) { FlashVersion = 4.0000; }
	      }
	      else if (!FlashVersion) { FlashVersion = VBGetFlashVersionByTrialAndError() || 0;}
	      else if (FlashVersion == 4) { FlashVersion = 4.0015; }
	      
	      // Now check for Shockwave player
	      swVersion = VBGetShockwaveVersion("") || 0;
      
	      if (!swVersion || !parseFloat(swVersion))
	      {
	        swVersion = VBGetShockwaveVersionByTrialAndError() || 0;
	      }
	      else
	      {
	        var relNumber = 0;
	        var relIndex = swVersion.indexOf('r');
	        if (relIndex> -1)
	        {
	          relNumber = swVersion.substr(relIndex+1); 
	          swVersion = swVersion.substr(0,relIndex);
	          relNumber = (relNumber < 100 ? "0" : "") + (relNumber < 10 ? "0" : "") + relNumber;
	        }
	                
	        if (swVersion == '7 .0.3')             { swVersion = 7.03 + "" + relNumber; }
	        else if (swVersion == '7.0.3')         { swVersion = 7.03 + "" + relNumber; }
	        else if (swVersion.indexOf('7.') > -1) { swVersion = 7.00000; }
	        else if (swVersion.indexOf('8.') > -1) { swVersion = 8.00000; }
	        else if (swVersion.indexOf('6.') > -1) { swVersion = 6.00000; }
	       else { swVersion = parseFloat(swVersion) ; }    
	      }
	    }

			if (swVersion  && FlashVersion == 0) {
				if (swVersion<=6.5) FlashVersion = 2;
				else if (swVersion<7) FlashVersion = 3;
				else if (swVersion<8) FlashVersion =4;
				else FlashVersion = 5;
			}
			if (FlashVersion > 0)
				isFlashInstalled = true;