function crearAjax()
{ 
	var xmlhttp=false;
	try
	{
		xmlhttp=new ActiveXObject("Msxml2.XMLHTTP");
	}
	catch(e)
	{
		try
		{
			xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
		}
		catch(E)
		{
			if (!xmlhttp && typeof XMLHttpRequest!='undefined') xmlhttp=new XMLHttpRequest();
		}
	}
	return xmlhttp; 
}

function recuperaAcentos(entrada)
{
while (entrada.indexOf("@|#a")!=-1) {entrada=entrada.replace("@|#a","á");};
while (entrada.indexOf("@|#A")!=-1) {entrada=entrada.replace("@|#A","Á");};
while (entrada.indexOf("@|#e")!=-1) {entrada=entrada.replace("@|#e","é");};
while (entrada.indexOf("@|#E")!=-1) {entrada=entrada.replace("@|#E","É");};
while (entrada.indexOf("@|#i")!=-1) {entrada=entrada.replace("@|#i","í");};
while (entrada.indexOf("@|#I")!=-1) {entrada=entrada.replace("@|#I","Í");};
while (entrada.indexOf("@|#o")!=-1) {entrada=entrada.replace("@|#o","ó");};
while (entrada.indexOf("@|#O")!=-1) {entrada=entrada.replace("@|#O","Ó");};
while (entrada.indexOf("@|#u")!=-1) {entrada=entrada.replace("@|#u","ú");};
while (entrada.indexOf("@|#U")!=-1) {entrada=entrada.replace("@|#U","Ú");};
while (entrada.indexOf("@|#n")!=-1) {entrada=entrada.replace("@|#n","ñ");};
while (entrada.indexOf("@|#N")!=-1) {entrada=entrada.replace("@|#N","Ñ");};
while (entrada.indexOf("@|#v")!=-1) {entrada=entrada.replace("@|#v","ü");};
while (entrada.indexOf("@|#V")!=-1) {entrada=entrada.replace("@|#V","Ü");};
while (entrada.indexOf("@|#z")!=-1) {entrada=entrada.replace("@|#z","€");};
return entrada;
}


function mail(texto){ 
	var mailres = true;
	var cadena = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890@._-"; 
	var arroba = texto.indexOf("@",0);
	if ((texto.lastIndexOf("@")) != arroba) arroba = -1; 
	var punto = texto.lastIndexOf("."); 
	for (var contador = 0 ; contador < texto.length ; contador++){ 
		if (cadena.indexOf(texto.substr(contador, 1),0) == -1){ 
			mailres = false; 
			break; 
		}
	}
	if ((arroba > 1) && (arroba + 1 < punto) && (punto + 1 < (texto.length)) && (mailres == true) && (texto.indexOf("..",0) == -1)) 
		mailres = true; 
	else 
		mailres = false; 

	return mailres; 
}

function ValidarFecha(caja)
{ 
   if (caja)
   {  
      borrar = caja;
      if ((caja.substr(2,1) == "/") && (caja.substr(5,1) == "/"))
      {      
         for (i=0; i<10; i++)
	     {	
            if (((caja.substr(i,1)<"0") || (caja.substr(i,1)>"9")) && (i != 2) && (i != 5))
			{
               borrar = '';
               break;  
			}  
         }
	     if (borrar)
	     { 
	        a = caja.substr(6,4);
		    m = caja.substr(3,2);
		    d = caja.substr(0,2);
		    if((a < 1900) || (a > 2050) || (m < 1) || (m > 12) || (d < 1) || (d > 31))
		       borrar = '';
		    else
		    {
		       if((a%4 != 0) && (m == 2) && (d > 28))	   
		          borrar = ''; 
			   else	
			   {
		          if ((((m == 4) || (m == 6) || (m == 9) || (m==11)) && (d>30)) || ((m==2) && (d>29)))
			         borrar = '';	      				  	 
			   }  
		    } 
         } 
      } 
	  else
	  {
	     borrar = '';
	  }
	  if (borrar == '')
		{
	    return false;
	    }
	  else
		{
		return true;
		}
   } 
   else
   {
   return false;
   }
}