function IsMPInstalled(){
  try {
    var oMP = new ActiveXObject("MathPlayer.Factory.1");
    return true;
	  }
  catch(e) {
    return false;
	  }
	}

function IsIE6LaterWindows(){
  var pos=navigator.appVersion.indexOf("MSIE ")+5;
  return( navigator.appName=="Microsoft Internet Explorer" && navigator.platform=="Win32" && parseFloat(navigator.appVersion.substr(pos))>="6.0");
	}

function CompruebaMathPlayer(){
	if( IsIE6LaterWindows() ) {
	  if( ! IsMPInstalled() ) {
	    if( confirm("Esta página requiere Design Science's MathPlayer para mostrar ecuaciones y símbolos.\nMathPlayer no está actualmente instalado, por lo que las ecuaciones y símbolos no se mostrarán correctamente.\n\n¿Desea descargar e instalar MathPlayer ahora?") )
	      document.location ="http://www.dessci.com/en/dl/MathPlayerSetup.exe";
		  }
		}
	}