// Procédures globales du projet
function _DRO(c,n){	return c.substring(c.length-n,c.length);}
function PROCEDURESGLOBALESDECRMNAVIGATEUR_PROCVERIFIEMAIL(VVMAIL){{var VVNBERREUR=0;if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%E9")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %E9 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%E8")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %E8 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%E7")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %E7 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%E0")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %E0 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%F9")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %F9 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"{",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' { \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"}",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' } \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"(",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' ( \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,")",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' ) \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"[",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' [ \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"]",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' ] \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"|",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' | \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("\\")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' \\ \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"/",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' / \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"<",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' < \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,">",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' > \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"+",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' + \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"=",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' = \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"&",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' & \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"~",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' ~ \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"#",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' # \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("\'")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' \' \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"`",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' ` \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"^",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' ^ \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%B0")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %B0 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%A8")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %A8 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"$",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' $ \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%A3")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %A3 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%A4")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %A4 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"%",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' % \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"*",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' * \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%B5")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %B5 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"?",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' ? \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"!",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' ! \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,clWDEncode.sEncodeCharset(unescape("%A7")),0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' %A7 \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,",",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' , \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,";",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' ; \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,":",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir le caract%E8re \'\' : \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"..",0)>0)){
alert(clWDEncode.sEncodeCharset(unescape("Il ne peut y avoir deux \'\' .. \'\' de suite dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}else if((_DRO(VVMAIL,1)==".")){alert("Une adresse mail ne peut se terminer par un point...")
VVNBERREUR=VVNBERREUR+1}else if((ChaineOccurrence(VVMAIL,"@",0)==0)){alert(clWDEncode.sEncodeCharset(unescape("Il y a obligatoirement un \'\' @ \'\' dans une adresse mail...")));VVNBERREUR=VVNBERREUR+1}return(VVNBERREUR)}}