<!--
//Este es para la fecha del sistema inicio
function MakeArray(n){
        this.length=n;
        return this
}

function PrintDate () {
        date="";
        jour="";
        mois="";
        annee="";
		
        nom_mois=new MakeArray(12);
        nom_mois[1]="ENERO"
        nom_mois[2]="FEBRERO"
        nom_mois[3]="MARZO"
        nom_mois[4]="ABRIL"
        nom_mois[5]="MAYO"
        nom_mois[6]="JUNIO"
        nom_mois[7]="JULIO"
        nom_mois[8]="AGOSTO"
        nom_mois[9]="SEPTIEMBRE"
        nom_mois[10]="OCTUBRE"
        nom_mois[11]="NOVIEMBRE"
        nom_mois[12]="DICIEMBRE"

        nom_jour=new MakeArray(7);
        nom_jour[1]="Domingo"
        nom_jour[2]="Lunes"
        nom_jour[3]="Martes"
        nom_jour[4]="Miércoles"
        nom_jour[5]="Jueves"
        nom_jour[6]="Viernes"
        nom_jour[7]="Sábado"

        Today = new  Date  ();

        date=Today.getDate();
        jour=nom_jour[Today.getDay()+1];
        mois=nom_mois[Today.getMonth()+1];
        annee=Today.getYear();
		document.write (jour +" "+date + " de "+mois +" del "+annee);
	//document.write (jour +" "+date + " de "+mois);
}
//fin de la fecha

//comienzo de movimiento de subir y bajar grafico 
var destino;
function selectframe() 
{
	ok=1;
	if(parent.frames.length!=0) 
	{
	area=0;
	frameid=0;
	for(n=0;n<parent.frames.length;n++) 
		{
		x=parent.frames[n].document.body.clientWidth;
		y=parent.frames[n].document.body.clientHeight;narea=x*y;
			if(area<narea) {area=narea;frameid=n;
		}
	}
	if(parent.frames[frameid]!=window) ok=0;
	}return ok;
	};
	function saltar() 
	{
	window.top.location.href=destino;
	}
	function mover() 
	{
	if(selectframe()) 
	{
	mosca.style.visibility='visible';
	mosca.style.left=document.body.scrollLeft+document.body.clientWidth-100;
	mosca.style.top=document.body.scrollTop+15;
	info.style.left=document.body.scrollLeft+document.body.clientWidth-150;
	info.style.top=document.body.scrollTop+40;
	}
	 else {mosca.style.visibility='hidden';
	 }
	 }
	 function mostrar() 
	 {
	 info.style.visibility='visible';
	 }
	 function ocultar()
	  {
	  info.style.visibility='hidden';
	  }
	  function init() 
	  {
	  mover();setInterval('mover()',100);
	  }
//fin de movimiento de subir y bajar grafico

//comienzo validar direccion email
function emailCheck (emailStr) {
var checkTLD=1;
var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;
var emailPat=/^(.+)@(.+)$/;
var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]%";
var validChars="\[^\\s" + specialChars + "\]";
var quotedUser="(\"[^\"]*\")";
var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
var atom=validChars + '+';
var word="(" + atom + "|" + quotedUser + ")";
var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
var matchArray=emailStr.match(emailPat);

if (matchArray==null) {
	alert("La direccion de correo es incorrecta, por favor verifiquela.");
	return false;
}
var user=matchArray[1];
var domain=matchArray[2];
for (i=0; i<user.length; i++) {
if (user.charCodeAt(i)>127) {
	alert("El nombre de usuario contiene caracteres invalidos");
	return false;
   }
}
for (i=0; i<domain.length; i++) {
if (domain.charCodeAt(i)>127) {
alert("El dominio contiene caracteres invalidos.");
return false;
   }
}

if (user.match(userPat)==null) {
alert("El nombre de usuario no es valido");
return false;
}

var IPArray=domain.match(ipDomainPat);
if (IPArray!=null) {
for (var i=1;i<=4;i++) {
if (IPArray[i]>255) {
	alert("La direccion IP de destino no es valida.");
return false;
   }
}
return true;
}
 
var atomPat=new RegExp("^" + atom + "$");
var domArr=domain.split(".");
var len=domArr.length;
for (i=0;i<len;i++) {
if (domArr[i].search(atomPat)==-1) {
	alert("El nombre del dominio no es valido.");
return false;
   }
}

if (checkTLD && domArr[domArr.length-1].length!=2 && 
domArr[domArr.length-1].search(knownDomsPat)==-1) {
	alert("La direccion debe finalizar con un dominio correcto o una terminacion de pais valida.");
return false;
}

if (len<2) {
	alert("En esta direccion de correo no hay un dominio.");
return false;
}

return true;
}

//fin validar direccion email
 //-->