<!--

winIE = ((navigator.appName.indexOf("Microsoft") != -1) && 
  (navigator.appVersion.indexOf("Windows") != -1)) && 
  (parseFloat(navigator.appVersion) >= 4) ? true : false;


if (browser < 4) {
    location.href = "index_noflash.shtml";
    }

minPlayer = 6;

function Flash_checkForPlugIn() {
if (winIE){
  if (!Flash_checkForActiveX()){location.href="index_noflash.shtml";
     }
}

else {
  var plugin = (navigator.mimeTypes &&
  navigator.mimeTypes["application/x-shockwave-flash"]) ?
  navigator.mimeTypes["application/x-shockwave-flash"].enabledPlugin : 0;
  if (plugin) {
    var pluginversion = parseInt(plugin.description.substring(plugin.description.indexOf(".")-1)) 
    if(pluginversion >= minPlayer) {return true;}
    else {
          if (document.all || document.getElementById){
              //sslayer = document.getElementById? document.getElementById('slideshowlayer'):document.all('slideshowlayer');
              //sslayer.style.left=-850;
             location.href="index_noflash.shtml";
             }
          else if (document.layers){
            //document.slideshowlayer.left=-850;
             location.href="index_noflash.shtml";
             }
    }
  }
  return false;
}

}


if(winIE) {
  document.write(
    '<script language=VBScript>' + '\n' +
    'Function Flash_checkForActiveX()' + '\n' +
    'Dim hasPlayer, playerversion' + '\n' +
    'hasPlayer = false' + '\n' +
    'playerversion = 10' + '\n' +
    'Do While playerversion >= minPlayer' + '\n' +
    'On Error Resume Next' + '\n' +
    'hasPlayer = (IsObject(CreateObject(\"ShockwaveFlash.ShockwaveFlash.\" & playerversion & \"\")))' + '\n' +
    'If hasPlayer = true Then Exit Do' + '\n' +
    'playerversion = playerversion - 1' + '\n' +
    'Loop' + '\n' +
    'Flash_checkForActiveX = hasPlayer' + '\n' +
    'End Function' + '\n' +
    '<\/script>'
  );
}

Flash_checkForPlugIn();

//-->
