<!-- 

function Val_Num(campo,xNum,nLon1,nLon2){
  var numeros, i, caract;
   numeros="0123456789-/.";
   if (xNum=="") {alert("Campo " + campo + ":\nDato Obligatorio, favor de completar el campo."); return(0);}
   for (i=0; i<=nLon1; i++) {
      caract=xNum.charAt(i);
      if (numeros.indexOf(caract)==-1) { alert("Campo " + campo + ":\nDato numérico"); return(0);}}
 return(1);
}

function Val_Num2(campo,xNum,nLon1,nLon2){
  var numeros, i, caract;
   numeros="0123456789-/. ";
   for (i=0; i<=nLon1; i++) {
      caract=xNum.charAt(i);
      if (numeros.indexOf(caract)==-1) { alert("Campo " + campo + ":\nDato numérico"); return(0);}}
 return(1);
}

function Val_Txt(campo,xTxt,nLon1,nLon2){
  var numeros, i, caract;
   if (xTxt=="") {alert("Campo " + campo + ":\nDato Obligatorio, favor de completar el campo."); return(0);}
   if (nLon1 < nLon2 ){ alert("Dato incompleto"); return(0);}
 return(1);
}

function Val_Pas(campo,xTxt1,xTxt2){
  var numeros, i, caract;
   if (xTxt1!=xTxt2) {alert("Campo " + campo + ":\nNo coinciden. Favor de verificar."); return(0);}
 return(1);
}

function Val_email(emailStr,nLon1) {  //valida correo electronico
 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("Por favor, introduce un e-mail válido.");
   return (0);
 }
 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 del correo es incorrecto.");
   return (0);
  }
 }
 for (i=0; i<domain.length; i++) {
  if (domain.charCodeAt(i)>127) {
   alert("El dominio del correo tiene caracteres incorrectos.");
   return (0);
  }
 }

 if (user.match(userPat)==null) {
  alert("El nombre de usuario del correo es invalido.");
  return (0);
 }

 var IPArray=domain.match(ipDomainPat);
  if (IPArray!=null) {
   for (var i=1;i<=4;i++) {
    if (IPArray[i]>255) {
     alert("La dirección IP es invalida");
     return (0);
    }
   }
   return (1);
  }
 
 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 del correo es incorrecto.");
   return (0);
  }
 }

 if (checkTLD && domArr[domArr.length-1].length!=2 && 
  domArr[domArr.length-1].search(knownDomsPat)==-1) {
  alert("La dirección de correo debe finalizar con un nombre de dominio correcto " + "y pais si es el caso.");
  return (0);
 }

// no trae dominio.

 if (len<2) {
  alert("Le falta el dominio a esta cuenta de correo!");
  return (0);
 }

// Si has llegado hasta aqui esta correcto todo !
return (1);
}

-->