function affiche(msg){
window.status=msg;
return true;
}

function efface(){
window.status="";
return true;
}

function testemail(a){
var long=a.length;
// espaces interdits
var esp=a.indexOf(" ");
if (esp>-1){
alert("Aucun espace dans une adresse Email");
return 0;
}
// arobase dans l'adresse
var z=0;
for (var i=0;i<long;i++){if (a.charAt(i)=="@"){z=z+1;}}
if (z>1){alert("Vous avez écrit "+z+" arobases. Un seul autorisé !!!");return 0;}
if (z==0){alert("Il manque un caractère Arobase dans l'adresse Email");return 0;}
// posa=position de l'@ (on sait qu'il est unique)
var posa=a.indexOf("@");
// gestion de la position de l'arobase (position 1 ou en dernier caractère)
if ((posa==0)||(posa==long-1)){alert("Caractère Arobase mal placé dans l'adresse Email");return 0;}
// posp=position d'un éventuel point avant l'arobase
var posp=a.indexOf(".");
if (posp==0){alert("Caractère POINT mal placé dans l'adresse Email");return 0;}
posp=a.charAt(posa-1);
if (posp=="."){alert("Caractère POINT placé juste avant l'Arobase dans l'adresse Email");return 0;}
// posp=position d'un éventuel point après l'arobase
y=0
for (i=posa;i<long;i++){if (a.charAt(i)=="."){y=y+1;posp=i}}
// nombre de points APRES l'arobase = 0
if (y==0){alert("Il manque un point après l'arobase !!!");return 0;}
// point APRES l'arobase placé à coté arobase ou en dernier caractère
if ((posp==long)||(posp==posa+1)){alert("Caractère POINT, situé après l'Arobase, mal placé dans l'adresse Email");return 0;}
// gestion de plus de 4 caractères après le point
if ((posp<long-5)||(posp==long-2)){alert("Entre 2 et 3 caractères après le point, SVP !!!");return 0;}
// on termine en éliminant les petits malins qui ont saisi des chiffres
// que des chiffres avant l'arobase
y=0
cmp="0123456789"
for (i=0;i<posa;i++){
 tst=a.substring(i,i+1)
if (cmp.indexOf(tst)>-1){y++;}
}
if (y==i){alert("Vous n'avez tapé que des chiffres avant l'arobase.\nAdresse invalide !!!");return 0;}
// que des chiffres entre l'arobase et le point
x=0;
y=0;
for (i=posa+1;i<posp;i++){
tst=a.substring(i,i+1)
x++;
if (cmp.indexOf(tst)>-1){y++;}
}
if (y==x){alert("Vous n'avez tapé que des chiffres entre l'arobase et le point.\nAdresse invalide !!!");return 0;}
// que des chiffres après le point qui suit l'arobase
x=0;
y=0;
for (i=posp+1;i<long;i++){
 tst=a.substring(i,i+1)
x++;
if (cmp.indexOf(tst)>-1){y++;}
}
if (y==x){alert("Vous n'avez tapé que des chiffres après le point qui suit l'arobase.\nAdresse invalide !!!");return 0;}
if (y>0){alert("Le suffixe du provider d\'une adresse Email ne doit pas comporter de chiffres.\nAdresse invalide !!!");return 0;}
}