var FlashMode = 0;

  var ShockMode = 0;
  <!-- attempt to detect at least Shockwave 8.5 -->

    if (navigator.mimeTypes && navigator.mimeTypes["application/x-director"] 
    && navigator.mimeTypes["application/x-director"].enabledPlugin) 
    {

    if (navigator.plugins && navigator.plugins["Shockwave for Director"] 
    && (versionIndex = navigator.plugins["Shockwave for Director"].description.indexOf(".")) != - 1) {

    var versionString = navigator.plugins["Shockwave for Director"].description.substring(versionIndex-1, versionIndex);

    var subVersionString = navigator.plugins["Shockwave for Director"].description.substring(versionIndex+1, versionIndex+2);

    versionIndex = parseInt( versionString );

    subVersionIndex = parseInt(subVersionString);

    if ( versionIndex = 8 ) {

    if (subVersionIndex >= 5)

    ShockMode = 1;

    }

    else if ( versionIndex >8 ) {

    ShockMode = 1;

    }

    }

    }

    else if (navigator.userAgent && navigator.userAgent.indexOf("MSIE")>=0 
    

    && (navigator.userAgent.indexOf("Windows 95")>=0 || navigator.userAgent.indexOf("Windows 98")>=0 || navigator.userAgent.indexOf("Windows NT")>=0 
    )) {

    document.write('<SCRIPT LANGUAGE=VBScript\> \n');

    document.write('on error resume next \n');

    document.write('ShockMode = (IsObject(CreateObject("SWCtl.SWCtl.8.5")))\n');

    document.write('</SCRIPT\> \n');

    }


  <!-- attempt to detect at least Flash 5 -->

    if (navigator.mimeTypes && navigator.mimeTypes["application/x-shockwave-flash"] 
    && navigator.mimeTypes["application/x-shockwave-flash"].enabledPlugin) 
    {

    if (navigator.plugins && navigator.plugins["Shockwave Flash"] 
    && (versionIndex = navigator.plugins["Shockwave Flash"].description.indexOf(".")) 
    != - 1) {

    var versionString = navigator.plugins["Shockwave Flash"].description.substring(versionIndex-1, versionIndex);

    versionIndex = parseInt( versionString );

    if ( versionIndex >= 5 ) {

    FlashMode = 1;

    }

    }

    }

    else if (navigator.userAgent && navigator.userAgent.indexOf("MSIE")>=0 
    

    && (navigator.userAgent.indexOf("Windows 95")>=0 || navigator.userAgent.indexOf("Windows 98")>=0 || navigator.userAgent.indexOf("Windows NT")>=0 
    )) {

    document.write('<SCRIPT LANGUAGE=VBScript\> \n');

    document.write('on error resume next \n');

    document.write('FlashMode = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))\n');

    document.write('</SCRIPT\> \n');

    }


  <!-- verify Shockwave 8.5 installation -->

    if ( ShockMode ) {

    <!-- verify Flash 5 installation -->

    if ( FlashMode ) {

    <!-- both SW8.5 and F5 are installed -->

    document.write('<p><font face="Geneva, Arial, Helvetica, sans-serif">You have both Shockwave 8.5 and Flash 5.<font face="Geneva, Arial, Helvetica, sans-serif"></p>');

    } else {

    <!-- SW8.5 detected, but not F5 -->

    document.write('<p><font face="Geneva, Arial, Helvetica, sans-serif">You have Shockwave 8.5 but not Flash 5.<font face="Geneva, Arial, Helvetica, sans-serif"></p>');

    }

    } else {

    if ( FlashMode ) {

    <!-- F5 detected but not SW8.5 -->

    document.write('<p><font face="Geneva, Arial, Helvetica, sans-serif">You have Flash 5 but not Shockwave 8.5.<font face="Geneva, Arial, Helvetica, sans-serif"></p>');

    } else {

    <!-- neither SW8.5 nor F5 are installed-->

    document.write('<font face="Geneva, Arial, Helvetica, sans-serif"><p>You have neither Shockwave 8.5 nor Flash 5.<font face="Geneva, Arial, Helvetica, sans-serif"></p>');

    } 

    }

    //-->

    </script>