// Procédures globales du projet
function _CAR(n){return String.fromCharCode(n)}
function PROCEDURESGLOBALESDELORIENTAMERICALATINANAVIGATEUR_GPROCVALIDERADRESSEEMAIL(VSADRESSEEMAIL){{var VNARROBAS=0;var VNPOINT=0;var VSCARACT="";var VN = 0;for(VN=48;VN<=57;VN++){VSCARACT=VSCARACT+_CAR(VN)}var VN = 0;for(VN=65;VN<=90;VN++){
VSCARACT=VSCARACT+_CAR(VN)}var VN = 0;for(VN=97;VN<=122;VN++){VSCARACT=VSCARACT+_CAR(VN)}if((Position(VSADRESSEEMAIL," ",null)>0)){alert("Adresse email invalide (avec un espace ou plus).");return(false)}VNARROBAS=Position(VSADRESSEEMAIL,"@",null)
if((VNARROBAS==0)){alert(clWDEncode.sEncodeCharset(unescape("Adresse email invalide (sans caract%E8re \"@\").")));return(false)}if((VNARROBAS==1)){
alert(clWDEncode.sEncodeCharset(unescape("Adresse email invalide (rien avant le caract%E8re \"@\").")));return(false)}if((VNARROBAS==VSADRESSEEMAIL.length)){
alert(clWDEncode.sEncodeCharset(unescape("Adresse email invalide (se terminant le caract%E8re \"@\").")));return(false)}VNPOINT=Position(VSADRESSEEMAIL,".",(VNARROBAS+1));if((VNPOINT==0)){
alert(clWDEncode.sEncodeCharset(unescape("Adresse email invalide (sans \".\" apr%E8s le caract%E8re \"@\").")));return(false)}if((VNPOINT==(VNARROBAS+1))){
alert(clWDEncode.sEncodeCharset(unescape("Adresse email invalide (\".\" imm%E9diatement plac%E9 apr%E8s le caract%E8re \"@\").")));return(false)}if((VNPOINT==VSADRESSEEMAIL.length)){
alert(clWDEncode.sEncodeCharset(unescape("Adresse email invalide (se terminant par \".\").")));return(false)}if(((VSADRESSEEMAIL + "").substr((VNPOINT+1)-1, 1)==".")){
alert(clWDEncode.sEncodeCharset(unescape("Adresse email invalide (plusieurs \".\" contigus apr%E8s le caract%E8re \"@\").")));return(false)}if((Position(VSCARACT,(VSADRESSEEMAIL + "").substr(VSADRESSEEMAIL.length-1, 1),null)==0)){
alert(clWDEncode.sEncodeCharset(unescape("Adresse email invalide (se terminant par un caract%E8re invalide).")));return(false)}return(true)}}