function mail(cadena)
{
	var resultado, narroba, parroba, npunto, ppunto, compro
	compro = ""
	resultado = true
	narroba = 0
	npunto = 0
	if(cadena.length<5)
	{
		resultado = false
		return resultado
	}
	else
	{
		for(i=0;i<cadena.length;i++)
		{
			if(cadena.charCodeAt(i)==32)
			{
				resultado = false
				return resultado
			}
			if(cadena.charCodeAt(i)==64)
			{
				if(i == 1)
				{
					resultado = false
					return resultado
					
				}
				else
				{
					narroba = narroba + 1
					parroba = parseInt(i)	
				}
			}
			else
			{
				compro = compro + cadena.charAt(i)
			
			}
			if(cadena.charCodeAt(i)==46)
			{
				if((i > parroba + 1)&&(i < cadena.length - 1))
				{
					npunto = npunto + 1
					ppunto = parseInt(i)	
				}
				
			}
			if(i > ppunto)
			{
				if((cadena.charCodeAt(i) > 48) && (cadena.charCodeAt(i) < 57))	
				{
					resultado = false
					return resultado
				}
			}
		}
		mailok = true
		mailok = alfanumerica(compro,"usu")
		if(mailok == false)	
		{
			resultado = false
			return resultado
		}
		if((narroba == 1)&&(npunto == 1))
		{
			resultado = true
			return resultado
		}
		else
		{
			resultado = false
			return resultado
		}
	}
}
function recomendar()
{
url='recomendar.htm';
Ventan = window.open(url,"Recomendar","width=420,height=350");
}

function addBookmark(bookmarkurl, bookmarktitle)
{
	if ((navigator.appName == "Microsoft Internet Explorer") && (parseInt(navigator.appVersion) >= 4)){
	  window.external.AddFavorite(bookmarkurl,bookmarktitle);
	}
	else{
		alert("Su Navegador no permite agregar automáticamente a favoritos.\n  Si tiene Netscape tiene que presionar <Ctrl-D> dentro de la sección.");
	}
}

function enviarcuento()
{
  mail_str = "mailto:participa@cuentaconlaciencia.es?subject=I Concurso de Relatos Científicos 'Cuenta con la Ciencia' ";
  mail_str += "&body= ";
  location.href = mail_str;
}