<!--
// isEmail()
// fonction qui verifie qu'une adresse eMail est valide
// parametre : la chaine de caracteres contenant l'adresse eMail
function isEmail(ps_src)
{
	var vt_txt = new Array(2);	// tableau qui va contenir les chaines avant et apres l'arobase
	var vi_arobase;				// va contenir l'index de l'arobase dans la chaine
	var vc_tmp;					// caractere temporaire
	
	vi_arobase = ps_src.indexOf("@");
	if (vi_arobase > 0 &&							// l'arobase ne doit pas etre en premier...
		vi_arobase != (ps_src.length - 1) &&		// ... ni en dernier...
		vi_arobase == ps_src.lastIndexOf("@") &&	// ... et il ne peut en rester qu'un
		ps_src.indexOf("..") < 0)					// il ne peut y avoir ".."
	{
		vt_txt[0] = ps_src.substring(0,vi_arobase);					// prend la chaine avant l'arobase <=> nom
		vt_txt[1] = ps_src.substring(vi_arobase + 1,ps_src.length);	// prend la chaine apres l'arobase <=> adresse
		
		if ((vt_txt[0].length == 0) || (vt_txt[1].length < 5))    //Si la premiere chaine est vide ou si le nomde domaine est inferieur a 2 lettres
			{return false;
			}
		
		if ((vt_txt[0].indexOf(".") != 0) &&							// pas de point en debut de chaine
			(vt_txt[1].indexOf(".") > 0) &&								// idem
			(vt_txt[0].lastIndexOf(".") < (vt_txt[0].length - 1)) &&	// ni en fin de chaine
			(vt_txt[1].lastIndexOf(".") < (vt_txt[1].length - 2)))		// pas un des 2 derniers caracteres
		{
			for (var vi_char_nbr = 0;vi_char_nbr < vt_txt[0].length;vi_char_nbr++)
			{
				vc_tmp = vt_txt[0].charAt(vi_char_nbr);// si le caractere recupere
				
				if ((vc_tmp < '0' || vc_tmp > '9') &&		// n'est pas un chiffre
					(vc_tmp < 'a' || vc_tmp > 'z') &&		// n'est pas une minuscule
					(vc_tmp < 'A' || vc_tmp > 'Z') &&		// n'est pas une majuscule
					(vc_tmp != '.') && (vc_tmp != '_') &&		// ni un autre caractere
					(vc_tmp != '-'))							// autorise...
						return false;						// alors l'adresse est invalide
			}
			
			
			//Pour la seconde partie de l'e-mail no ne doit aps avoir de '_'
			for (var vi_char_nbr = 0;vi_char_nbr < vt_txt[1].length;vi_char_nbr++)
			{
				vc_tmp = vt_txt[1].charAt(vi_char_nbr);// si le caractere recupere
				
				if ((vc_tmp < '0' || vc_tmp > '9') &&		// n'est pas un chiffre
					(vc_tmp < 'a' || vc_tmp > 'z') &&		// n'est pas une minuscule
					(vc_tmp < 'A' || vc_tmp > 'Z') &&		// n'est pas une majuscule
					(vc_tmp != '.') &&						// ni un autre caractere
					(vc_tmp != '-'))							// autorise...
						return false;						// alors l'adresse est invalide
			}
			
			
			return true;
		}
	}
	return false;
}
//-->