// Procédures globales du projet
function _SAE(c,o){var d=0;c += "";var f=c.length-1;if(o&1)while(c.charAt(d)==" ")d++;if(o&2)while(c.charAt(f)==" ")f--;if (f < d) f= d;return c.substring(d,f+1)}
function _EC(c,p,s,n){if (!(n == 1)){var d=-s.length;for(var i=0;i<p-1;i++){d=c.indexOf(s,d+s.length);if(d==-1)return(p==1?c:"\b")}var f=c.indexOf(s,d+s.length);if(f==-1)f=c.length;return c.substring(d+s.length,f)}else{var d = c.length
for(var i=0;i<p-1;i++){d = c.lastIndexOf(s, d - 1);if (d == -1)	return (p==1?c:"\b")}var f = c.lastIndexOf(s, d - 1);if (f == -1)return c.substr(0, d);return c.substr(f + 1, d - f - 1)}}
function PROCEDURESGLOBALESDEDSMWEBNAVIGATEUR_GBEMAILVALIDE(VCADREMAIL ){{var VCEMAIL="";VCEMAIL=_SAE(VCADREMAIL,3);VCEMAIL=VCADREMAIL.toLowerCase();if((VCEMAIL.length<6)){return(false)}var VEPOS=0;VEPOS=(VCEMAIL.indexOf("@",1-1)+1)
if((((VEPOS==0)||(VEPOS==1))||(VEPOS==VCEMAIL.length))){return(false)}if(((VCEMAIL.indexOf("@",(VEPOS+1)-1)+1)!=0)){return(false)}var VCTEMP="";VCTEMP=_EC(VCEMAIL,1,"@",0);if((!PROCEDURESGLOBALESDEDSMWEBNAVIGATEUR_GBESTCHAINEALPHANUM(VCTEMP))){
return(false)}VCTEMP=_EC(VCEMAIL,2,"@",0);if((!PROCEDURESGLOBALESDEDSMWEBNAVIGATEUR_GBESTCHAINEALPHANUM(VCTEMP))){return(false)}if((VCTEMP.length<4)){return(false)}VEPOS=(VCEMAIL.indexOf(".")+1)
if(((((VEPOS==0)||(VEPOS==1))||(VEPOS==VCEMAIL.length))||(VEPOS==(VCEMAIL.length-1)))){return(false)}return(true)}}
function PROCEDURESGLOBALESDEDSMWEBNAVIGATEUR_GBESTCHAINEALPHANUM(VCCHAINE ){{var VETAILLE=0;VETAILLE=VCCHAINE.length;if((VETAILLE==0)){return(false)}var VCCARACT="";var VI=0;var VBOK=false;for(VI=1;VI<=VETAILLE;VI++){
VCCARACT=(VCCHAINE + "").substr(VI-1, 1);VBOK=false;if(((VCCARACT>="A")&&(VCCARACT<="Z"))){VBOK=true}if(((VCCARACT>="a")&&(VCCARACT<="z"))){VBOK=true}if(((VCCARACT>="0")&&(VCCARACT<="9"))){VBOK=true}if((VCCARACT==".")){VBOK=true}if((VCCARACT=="-")){
VBOK=true}if((VCCARACT=="_")){VBOK=true}if((VBOK==false)){break}}return(VBOK)}}