<? // règles de validation
$Asc = "[[:graph:]]"; //Tout caractère représentable sauf espace et diacritiques
$Chain = "^$Asc*$"; //0 ou plus caractères  
$Admis = '[^]()<>@,;:\.["]'; //Tout caractère sauf ceux qui suivent ^
$Atome = "$Admis+"; //Au moins 1 caractère $Admis
$Nom = "$Atome(\\.$Atome)*"; //1 Atome avec éventuellement d'autres séparés par un point
$Domaine = "$Atome(\\.$Atome)+"; //1 Atome avec au moins un autre séparé par un point
$Adresse = "^$Nom@$Domaine$"; //Une Adresse est un Nom et un Domaine séparés par @ 
if (empty($Rep1))  {$f="EMail.php"; $v="Valide=Vide";}
elseif (!ereg($Chain, $Rep1)) {$f="EMail.php"; $v="Valide=Non1";}
elseif (!ereg($Adresse, $Rep1)) {$f="EMail.php"; $v="Valide=Non2";}
else {$f="EMailb.php"; $v="Rep1=".$Rep1;}
header("Location: ".$f."?".$v);
?>