function limpiar_caja(caja){
	caja.value="";
}

function MailLink (usuario, dominio, tld, texto) {
 var arroba = '@'
 var punto = '.'
 var etiqueta = 'ma' + '' + 'il'
 var dospuntos = 'to:'
 var localizador = usuario
 localizador = localizador + arroba + dominio
 localizador = localizador + punto + tld
 document.write('<a href="' + etiqueta + dospuntos + localizador + '">' + texto + '</a>')
}


function depurar(tipo,caja,longitud) //funcion de depuración de caracteres en cajas de texto
{
var cadena = new String(caja.value)
var caracteres

caracteres=parseInt(longitud) 

if (cadena.length < caracteres )  //mientras que la longitud de la caja sea menor que el número de caracteres, permitimos escribir
  {
	
	if ( tipo==8){//depurarmos que no sea la comilla '	
		if ( (event.keyCode == 39)  )
			event.returnValue = false;

	}else
	
	if ( tipo==7){//depurarmos que sean numero o letras sin caracteres raros a excepcion de < > = ? @
			if ((event.keyCode > 32 && event.keyCode < 45) || (event.keyCode > 57 && event.keyCode < 61) || (event.keyCode > 90 && event.keyCode < 97)) 
				event.returnValue = false;
	}else
	
	if (tipo==1){ //depurarmos que sean dígitos numeros numericos
		if (event.keyCode < 47 || event.keyCode > 57)
			event.returnValue = false;
		
	}else 
	if (tipo==2){  //depurarmos que sean digitos o comas o negativo
				
			if ( (event.keyCode < 47 || event.keyCode > 57) || (event.keyCode == 44 ) || (event.keyCode == 45 )) //damos el rango de keyascii
				{		
				
					if ( ( event.keyCode == 44 ) || ( event.keyCode == 45 ) ){  //miramos si es la coma											 
						if ((cadena.length==0)&&(event.keyCode == 44) )			//si es la primera posición, no la escribimos
							event.returnValue = false;
						else
							if ((cadena.length>0)&&(event.keyCode == 45) )
								event.returnValue = false;
						
						if (cadena.indexOf(".")>-1 )	//si encuentra el coma en la busqueda no la volvemos a escribir
							event.returnValue = false;
					}else
						event.returnValue = false;		//no escribimos nada por que no es un caracter válido
				}
	}else  //depurarmos que sean digitos o puntos o negativo
	if (tipo==3){
			if ( (event.keyCode < 47 || event.keyCode > 57) || (event.keyCode == 46 ) || (event.keyCode == 45 )) //damos el rango de keyascii
				{		
				
					if ( ( event.keyCode == 46 ) || ( event.keyCode == 45 ) ){  //miramos si es el punto												 
						if ((cadena.length==0)&&(event.keyCode == 46) )			//si es la primera posición, no la escribimos
							event.returnValue = false;
						else
							if ((cadena.length>0)&&(event.keyCode == 45) )
								event.returnValue = false;
						
						if (cadena.indexOf(".")>-1 )	//si encuentra el punto en la busqueda no la volvemos a escribir
							event.returnValue = false;
					}else
						event.returnValue = false;		//no escribimos nada por que no es un caracter válido
				}
	}else  //depurarmos que sean numero o letras sin caracteres raros
	if (tipo==5){
			if ((event.keyCode > 32 && event.keyCode < 48) || (event.keyCode > 57 && event.keyCode < 65) || (event.keyCode > 90 && event.keyCode < 97)) 
				event.returnValue = false;
		}

  }
  else{
  	event.returnValue = false;  
  }
  

}