//Validar Si Los Datos De Ingreso Al Correo Corporativo Con O No Validos.
function Validar_CorreoInterno(Forma)
  {
  if (!Valida_CorreoCorporativo(Forma.user.value)){alert("Ingrese Una Cuenta de Correo Valida (sunombre@colegiosantaana.edu.co)...");return false;}
  if (Forma.pass.value.length == 0){alert("Ingrese Una Contraseña Valida...");return false;}
  return true;
  }

//Validar Si Los Datos De Una Matricula Son Completamente Validos.
function Validar_Contactenos(Forma)
  {
  if (Forma.Asunto.value.length == 0){alert("Ingrese Un Asunto Valido...");return false;}
  if (!Valida_Nombre(Forma.Autor.value)){alert("Ingrese Un Nombre de Autor Valido, Solo Letras ...");return false;}
  if (!Valida_CorreoElectronico(Forma.Email.value)){alert("Ingrese Un Correo Electrónico Valido...");return false;}
  if (Forma.Mensaje.value.length == 0){alert("Ingrese Un Mensaje Valido...");return false;}  
  return true;
  }

//******************************************************************************
//VALIDACION DE NOMBRES
//******************************************************************************
//Valida Si Parametro Es Un Nombre Valido: Solo Letras, Puntos y Espacios.
function Valida_Nombre(Dato)
    {
    Patron_Clave = /^[a-z .A-ZáéíóúÁÉÍÓÚñÑ]+$/
    if(!Patron_Clave.exec(Dato)) return false
    return true
    }

//******************************************************************************
//VALIDACION DE CORREOS Y AÑOS.
//******************************************************************************
//Valida Una Direccion De Correo Electronica.
function Valida_CorreoElectronico(Dato)
    {
    Patron_Mail = /^[\w-\.]{3,}@([\w-]{2,}\.)*([\w-]{2,}\.)[\w-]{2,4}$/
    if(!Patron_Mail.exec(Dato)) return false
    return true
    }

//Valida Una Direccion De Correo Electronica.
function Valida_CorreoCorporativo(Dato)
    {
    Patron_Mail = /^[a-zA-Z]{3,}@colegiosantaana.edu.co/
    if(!Patron_Mail.exec(Dato)) return false
    return true
    }