        <!--
	// ==============================================================================
	// FUNCIONES EXPORTADAS
	// ==============================================================================

	// function isEmailAddr(email)
	// function inValidCharSet(str,charset)
	// function EsAlfaNumerico(cadena)


        function isEmailAddr(email)
        {
                var result = false;
                var theStr = new String(email);
                var index = theStr.indexOf("@");

                if (index > 0)
                {
                    var pindex = theStr.indexOf(".",index);

                    if ((pindex > index+1) && (theStr.length > pindex+1))
	                result = true;
                }

                return result;
        }


        function inValidCharSet(str,charset)
        {
        	var result = true;

        	// Note: doesn't use regular expressions to avoid early Mac browser bugs

        	for (var i=0;i<str.length;i++)
        	        if (charset.indexOf(str.substr(i,1))<0)
        	        {
        		        result = false;
        		        break;
        	        }

        	return result;
        }


        function allDigits(str)
        {
        	return inValidCharSet(str,"0123456789");
        }


	// -----------------------------------------------------------------
	// VALIDACION SOLO CARACTERES (ACENTUADOS Y NO ACENTUADOS) Y NUMEROS
	// -----------------------------------------------------------------
	function EsAlfaNumerico(cadena, blnMensajeAlerta, strCadenaExtra){
		var cadenaAlfabeto = "ABCÇDEFGHIJKLMNÑOPQRSTUVWXYZabcçdefghijklmnñopqrstuvwxyzÁÉÍÓÚÀÈÌÒÌÙÄËÏÖÜÂÊÎÔÛáéíóúàèìòìäëïöüâêîôû1234567890";
		if (strCadenaExtra!=null && strCadenaExtra!="") cadenaAlfabeto = cadenaAlfabeto + strCadenaExtra;
		blnCorrectoEsAlfanumerico = (inValidCharSet(cadena, cadenaAlfabeto));
		if (! blnCorrectoEsAlfanumerico && blnMensajeAlerta) {
			 alert('El valor introducido: "' + cadena + '" contiene carácteres no es válidos.\nSólo se permite la entrada de carácteres alfanuméricos (A..Z, a..z, 0..9).')
		}
		return(blnCorrectoEsAlfanumerico)
	}


	//-->