<!--
var caracs = new Array();
function ValidaMail(cadena){
var i, j, dsd, prm,cont;

llenarArray();

cad = cadena;

cad = '' + cad;
cade = cad.split(" ");
if (cade.length > 1){
	return false;
	}

for (i=0;i< cadena.length; i++){
  for (j=0; j< caracs.length; j++){
   	 if (cadena.indexOf(caracs[j]) != -1){
	 	    return false;
	  }
	}
  } 
prm = cadena.charAt(0) + cadena.charAt(1) + cadena.charAt(2) + cadena.charAt(3);
if (prm == "www.") {
 return false;
}

dsd = cadena.split("@");
 if (dsd[1] == null){ 
       return false;
 	  }
     else{
     if ((dsd[0].lenght < 3) || (dsd[1] == "")){   
          return false;
     }
 }

prm = cadena.charAt(0)
if ((prm == ".") || (prm == "_") || (prm == "-") || (prm == "@")){
 return false;
}
prm = cadena.charAt(cadena.length - 2);
if ((prm == ".") || (prm == "_") || (prm == "-") || (prm == "@")){
   return false;
}
prm = cadena.charAt(cadena.length - 1);
if ((prm == ".") || (prm == "_") || (prm == "-") || (prm == "@")){
   return false;
}
for (i=1;i <= cadena.length; i++)
{
  prm = cadena.charAt(i);
  if ((prm == ".") || (prm == "-") || (prm == "_")){
    prm = cadena.charAt(i+1);	
	  if ((prm == ".") || (prm == "-") || (prm == "_")){
 	    return false;
 	  }
   } 
}
cont = 0;
prm = "@"
for (i=1;i <= cadena.length; i++){
  if (cadena.charAt(i) == prm) {
   cont = cont +1;}
   if (cont >1) {
     return false;
   }
}

if ((cadena.charAt(cadena.length-5)) == "."){
 var cad;
  cad = cadena.split(".")
     if (cad[0] == "www"){
		 return false;
		 }
 
     if ((cad[cad.length -1] != "info") && (cad[cad.length -1] != "name")) { 
	    return false; 
      }
  }
if ((cadena.charAt(cadena.length -3)) != "." && (cadena.charAt(cadena.length -4) != ".") && (cadena.charAt(cadena.length -5) != ".")){
   return false;
}
return true;

}

function llenarArray(){
    caracs[0] = "\\";  caracs[1] = "/";  caracs[2] = "º";  caracs[3] = "ª";  caracs[4] = "!";  caracs[5] = "|";
    caracs[6] = "#";   caracs[7] = "$";  caracs[8] = "%";  caracs[9] = "&";  caracs[10] = "("; caracs[11] = ")";
    caracs[12] = "=";  caracs[13] = "?"; caracs[14] = "¿"; caracs[15] = "'"; caracs[16] = "^"; caracs[17] = "*";
    caracs[18] = "¨";  caracs[19] = "Ç"; caracs[20] = "ç"; caracs[21] = "}"; caracs[22] = "{"; caracs[23] = ";";
    caracs[24] = ",";  caracs[25] = "€"; caracs[26] = "<"; caracs[27] = ">"; caracs[28] = "¬"; caracs[29] = "+";
    caracs[30] = "´";  caracs[31] = ":"; caracs[32] = " ";   
}

function maximaLongitud(texto,maxlong) {
var tecla, in_value, out_value;

if (texto.value.length > maxlong) {
in_value = texto.value;
out_value = in_value.substring(0,maxlong);
texto.value = out_value;
return false;
}
return true;
}
/*OK
Cambia los espacios en blanco por la marca &nbsp;
cadena - cadena de caracteres
Devuelve la cadena con las marca de espacio blanco.
*/
function cambia_blancos(cadena)
	{
	Count=0;
	stotal="";
	for (Count=0; Count < cadena.length; Count++)
		{
		Char = cadena.substring(Count, Count+1);
		if (Char != " ")
			stotal+=Char;
		else
			stotal+="%20";
		}
	return(stotal);
    }

/*OK
Comprueba si el numero esta formado unicamente por caracteres numericos
numero - cadena a comprobar
Devuelve True si la cadena esta formada solo por numeros, False e.o.c.
*/
function es_numero(numero)
	{
	var checkOK = "0123456789";
	var checkStr = numero;
	var allValid = true;
	var allNum = "";
	var X = "";
    if (numero=="")
    {
		return(false);
    }
	for (i = 0;  i < checkStr.length;  i++)
		{
		ch = checkStr.charAt(i);
		for (j = 0;  j < checkOK.length;  j++)
		if (ch == checkOK.charAt(j))
		break;
		if (j == checkOK.length)
			{
			allValid = false;
			break;
			}
		allNum += ch;
		}

	if (!allValid)
		{
		return (false);
		}
	return(true);
	}

/*OK
Comprueba que una fecha se introduzca en el formato dd/mm/aa o dd/mm/aaaa
fecha - cadena de caracteres (fecha a comprobar)
Devuelve True si el formato de la fecha es correcto y False e.c.c.
Necesita la funcion: es_numero(x)
*/
function valida_fecha(fecha)
	{
	if (fecha != "")
		{
		if (fecha.length < 8)
			{
			alert("Introduzca la fecha con formato: DD/MM/AAAA.");
			return(false);
			}
		var part1=fecha.substring(0,2);
		if (!es_numero(part1))
			{
			alert("Las fechas deben tener formato numérico.");
			return(false);
			}
		if (fecha.substring(2,3) != "/")
			{
			alert("Introduzca la fecha con formato: DD/MM/AAAA.");
			return(false);
			}

		var part2=fecha.substring(3,5);
		if (!es_numero(part2))
			{
			alert("Las fechas deben tener formato numérico.");
			return(false);
			}
		if(part2 < 10)
			{
			part2 = "0" + part2;
			}
		if (fecha.substring(5,6) != "/")
			{
			alert("Introduzca la fecha con formato: DD/MM/AAAA.");
			return(false);
			}
		var part3=fecha.substring(6,10);
		if (!es_numero(part3))
			{
			alert("Las fechas deben tener formato numérico.");
			return(false);
			}
		return (true);
		}
	else
		{
			alert("Introduzca la fecha con formato: DD/MM/AAAA.");
			return(false);
		}
	}

-->