function verif_email(objForm,objChamp,objChampValeur)
// -------------------------------------------------------------------------------------------------
// verif_email.js v. 1.1 version 1.1
// Auteur : CyberOuest (Samuel) pompé sur Justin Wui Ken Thoo (Allaire)
// -------------------------------------------------------------------------------------------------
{
var s = objChampValeur;
var ok = 1;
// Un email comporte plus de 7 caractères
if ((s.length < 7)){
ok = 0;
}
// Un @ et au moins un caractere devant
var at = s.indexOf('@');
if (at < 1){
ok = 0;
}
// Pas plus d'un @
if (at != s.lastIndexOf('@')){
ok = 0;
}
// Un . apres le @ ; au moins un caractere entre le @ et le . ; 2 à 5 caracteres apres le .
if ((s.lastIndexOf('.') < (at+2)) || (s.lastIndexOf('.') > (s.length-3)) || (s.lastIndexOf('.') < (s.length-6))){
ok = 0;
}
// Vérification pas de caracteres bizarres sauf '
if ((s.indexOf(',') != -1) || 
(s.indexOf(' ') != -1) || 
(s.indexOf(';') != -1) || 
(s.indexOf(':') != -1) || 
(s.indexOf('?') != -1) || 
(s.indexOf('/') != -1)  || 
(s.indexOf('\\') != -1) || 
(s.indexOf('"') != -1)  || 
(s.indexOf("'") != -1)  || 
(s.indexOf('[') != -1) || 
(s.indexOf(']') != -1) ||
(s.indexOf('`') != -1) ||
(s.indexOf('!') != -1) ||
(s.indexOf('#') != -1) ||
(s.indexOf('$') != -1) ||
(s.indexOf('%') != -1) ||
(s.indexOf('^') != -1) ||
(s.indexOf('&') != -1) ||
(s.indexOf('*') != -1) ||
(s.indexOf('(') != -1) ||
(s.indexOf(')') != -1) ||
(s.indexOf('=') != -1) ||
(s.indexOf('+') != -1) ||
(s.indexOf('}') != -1) ||
(s.indexOf('{') != -1) ||
(s.indexOf('|') != -1) ||
(s.indexOf('<') != -1) ||
(s.indexOf('>') != -1)  )
{
ok = 0;
}
if (ok == 1){
return true;}
else
{
return false;}
}