function AbrirVentana(URL,winName,opciones,tantopor){
window.open(URL,winName,
opciones+',width='+Math.round((screen.width*tantopor)/100)+',height='+Math.round((screen.height*tantopor)/100));
}

function MM_displayStatusMsg(msgStr) {
  status=msgStr;
  document.MM_returnValue = true;
}

function MM_findObj(n, d) { 
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}

function MM_swapImgRestore() {
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_swapImage() { 
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_swapImage4() { //version retocada por fran 
  var i,j=0,x,a=MM_swapImage4.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i++)
    if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[a.length-2]; }
}

function MM_preloadImages() { 
 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
   var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
   if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function Fecha() {

  var hoy = new Date();
  var S = hoy.getDay();
  var D = hoy.getDate();
  var M = hoy.getMonth();

  switch(S){
    case 0 : semana = "Domingo";break;
    case 1 : semana = "Lunes";break;
    case 2 : semana = "Martes";break;
    case 3 : semana = "Miércoles";break;
    case 4 : semana = "Jueves";break;
    case 5 : semana = "Viernes";break;
    case 6 : semana = "Sábado";break;
  }

  switch(M){
    case 0 : mes = "Enero";break;
    case 1 : mes = "Febrero";break;
    case 2 : mes = "Marzo";break;
    case 3 : mes = "Abril";break;
    case 4 : mes = "Mayo";break;
    case 5 : mes = "Junio";break;
    case 6 : mes = "Julio";break;
    case 7 : mes = "Agosto";break;
    case 8 : mes = "Septiembre";break;
    case 9 : mes = "Octubre";break;
    case 10 : mes = "Noviembre";break;
    case 11 : mes = "Diciembre";break;
  }
  document.writeln(semana,", ",D," de ",mes ," ", hoy.getFullYear());
}

function CambioMes(selObj,mes,restore){ //v3.0
  eval("parent.frames[\'topFrame\'].location='../Ent/top"+selObj.options[selObj.selectedIndex].value+".htm'");
  eval("parent.frames[\'bottomFrame\'].location='../Ent/bot"+selObj.options[selObj.selectedIndex].value+".htm'");
  eval("parent.frames[\'Centro\'].location='"+selObj.options[selObj.selectedIndex].value+mes+".htm'");<!---------- Numero del mes ---------->
  if (restore) selObj.selectedIndex=0;
}

function CambiaCalendario(mes, ano){
  eval("window.location='"+ano+""+mes+".htm'");
}

function MM_checkBrowser(NSvers,NSpass,NSnoPass,IEvers,IEpass,IEnoPass,OBpass,URL,altURL) { //v3.0
  var newURL='', verStr=navigator.appVersion, app=navigator.appName, version = parseFloat(verStr);
  if (app.indexOf('Netscape') != -1) {
    if (version >= NSvers) {if (NSpass>0) newURL=(NSpass==1)?URL:altURL;}
    else {if (NSnoPass>0) newURL=(NSnoPass==1)?URL:altURL;}
  } else if (app.indexOf('Microsoft') != -1) {
    if (version >= IEvers || verStr.indexOf(IEvers) != -1)
     {if (IEpass>0) newURL=(IEpass==1)?URL:altURL;}
    else {if (IEnoPass>0) newURL=(IEnoPass==1)?URL:altURL;}
  } else if (OBpass>0) newURL=(OBpass==1)?URL:altURL;
  if (newURL) { eval("parent.frames[\'_top\'].location=newURL"); document.MM_returnValue=false; }
}