// Comprobación de correo electrónico
function isEmail(str) {
  // ¿Soporta expresiones regulares el navegador?
  var supported = 0;
  if (window.RegExp) 
  {
    var tempStr = "a";
    var tempReg = new RegExp(tempStr);
    if (tempReg.test(tempStr)) 
		supported = 1;
  }
  if (!supported) 
    return isEmailNoRegExp(str);
  var r1 = new RegExp("(@.*@)|(\\.\\.)|(@\\.)|(^\\.)");
  var r2 = new RegExp("^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$");
  return (!r1.test(str) && r2.test(str));
}

//Control de email sin expresiones regulares
var	charValido = "0123456789abcdefghijklmnopqrstuvwxyz_-@.";
function isEmailNoRegExp(str)
{
	var correcto = true;
	var numArrobas = 0;
	var posicionUltimoPunto = -1;
	for (i = 0; i < str.length; i++)
	{
		var ok = false;
		var caracter = str.charAt(i).toLowerCase();
		if (charValido.indexOf(caracter) != -1)
		{
			ok = true;
			if (caracter == "@") numArrobas++
			else if (caracter == ".") posicionUltimoPunto = i;
			if (numArrobas > 1) ok = false;
		}
		if (!ok) return correcto;
	}
	correcto = ok;
	if (posicionUltimoPunto == -1) correcto = false;
	else if (str.indexOf("@") > posicionUltimoPunto) correcto = false;
	else if ((posicionUltimoPunto > str.length-3) || (posicionUltimoPunto < str.length-4)) correcto = false;
	return correcto;
}

//Comprueba si el texto contiene exclusivamente letras
var caracter = "abcdefghijklmnñopqrstuvwxyz áéíóúü";
function isLetras(str)
{
	/*
	str = str.toLowerCase();
	for (i = 0; i < str.length; i++)
		if (caracter.indexOf(str.charAt(i)) == -1) return false;
		*/
	return true;

}