// FICHIER DE VERIFICATION


function verifMail(theForm,theMail){
	theObject=eval("document."+theForm+"."+theMail+"");
	longueur = theObject.value.length;
	position = theObject.value.indexOf("@");
	left_str = theObject.value.substring(0,position);
	right_str = theObject.value.substring(position+1,longueur);
	left_len = left_str.length;
	right_len = right_str.length;
	
	right_longueur = right_str.length;
	right_position = right_str.lastIndexOf(".");
	l_right_str = right_str.substring(0,right_position);
	r_right_str = right_str.substring(right_position+1,right_longueur);
	l_right_len = l_right_str.length;
	r_right_len = r_right_str.length;	
	
	var Mod1 = /[#|,\/'éèà`~&"{(\[\\ç^)\]=}¨^$£¤%ù*µ!§:;?<> ]/i;
	var Mod2 = /[#|,\/'éèà`~&"{(\[\\ç^)\]=}¨^$£¤%ù*µ!§:;?<> ]/g;
	//var Mod3 = /[#|,\/'éèà`~&"{(\[\\ç^)\]=}¨^$£¤%ù*µ!§:;?<> ]/m; le multi critère sous NS4 ne fonctionne pas ainsi que l'argument /m(multiligne)

	if (Mod1.test(theObject.value) == true){

		theObject.focus();
		return false;

	}	
	
	if (Mod2.test(theObject.value) == true){

		theObject.focus();
		return false;
	}	
	
	if (theObject.value.indexOf("@")==-1){
		theObject.focus();
		return false;
		
	}
	<!--- si la valeur gauche ou droite du @ est vide --->
	if ((left_len==0) || (right_len==0)){
		theObject.focus();
		return false;
	}
	<!--- s'il n'y a pas de point --->
	if (right_str.indexOf(".")==-1){
		theObject.focus();
		return false;
	}
	<!--- s'il y a au moins 2 lettres après le point --->
	if ((r_right_len < 2)||(r_right_len > 4)){
		theObject.focus();
		return false;
	}
	<!--- s'il y a au moins 1 lettre après le point --->
	if (l_right_len==0){
		theObject.focus();
		return false;
	}
	return true;
}