function verifie_reponses() {
	var ok = true;

	// vérification des réponses aux questions
	var tabErreurs = new Array();
	var nb = 0;
	var form_enquete = document.getElementById("enquete");
	if ( !form_enquete.name ) {
		alert("Formulaire enquête non trouvé !");
		ok = false;
		};
	if ( ok == true ) {
		var gotoReponse = "";
		for ( var i = 0 ; i < form_enquete.length ; i++ ) {	
			if ( form_enquete.elements[i].name.charAt(0) == "q" && form_enquete.elements[i].type == "text" && i != 10) {
				var question = form_enquete.elements[i].id;
				if ( document.getElementById( question ).value == "" ) {
					ok = false;
					document.getElementById( question ).style.borderColor="red";
					if ( gotoReponse == "" )
						gotoReponse = form_enquete.elements[i].name;
					tabErreurs[nb] = "  - question " + eval(i+1) + form_enquete.elements[i].type+" = "+document.getElementById( question ).value;
					nb++;
					} else document.getElementById( question ).style.borderColor="#44581B";
				};
			};
		};
	if ( ok != true ) {
		var reponses = "";
		for ( var i = 0 ; i < tabErreurs.length; i++ ) {
			reponses = reponses + "\n" + tabErreurs[i];
			};
		alert("Merci de répondre à toutes les questions.");
		document.getElementById(gotoReponse).focus();
		};

	return ok;
	};

function testAdresse(adrMail) {
adrMailLength=adrMail.length; // longueur de la chaîne adrMail
caractOk="_.-0123456789abcdefghijklmnopqrstuvwxyz"; // caratères corect d'une adresse mail
var posArrobas=adrMail.indexOf('@',1); // position du premier Arrobas
var posPoint=adrMail.lastIndexOf('.',adrMailLength); // position du dernier point
var posCaractFaux=adrMail.indexOf('..',posArrobas+1); // position d'un caractère faux ('..' ou ' ')
var caract=0; // caractère extrait de la chaîne adrMail (utilisée par les boucles while)
var caractFaux=adrMail.charAt(0)+adrMail.charAt(posArrobas-1)+adrMail.charAt(posArrobas+1)+adrMail.charAt(posPoint-1);
var posCaract=0; // position du caractère à extraire de la chaîne adrMail
var posCaractOk=0; // position du caractère extrait de la chaîne adrMail
var posCaractNon=-1;
var retour = false;

if (posCaractFaux!=-1 || adrMail.indexOf(' ',0)!=-1 || adrMail.indexOf('--',0)!=-1 || adrMail.indexOf('__',0)!=-1) {
   posCaractFaux=0;
}

for (posCaract;posCaract<4;posCaract++) {
    caract=caractFaux.charAt(posCaract);
    posCaractNon=caractOk.lastIndexOf(caract,2);
    if (posCaractNon!=-1) {
       posCaractFaux=0;
       break;
    }
}
if (adrMailLength>0 && posArrobas!=-1 && posPoint!=-1 && posArrobas<posPoint && posCaractFaux==-1 && adrMailLength-posPoint-1>=2 && adrMailLength-posPoint-1<=4) {
   adrMail=adrMail.toLowerCase();
   posCaract=0;
   while (posCaract<posArrobas && posCaractOk!=-1) {
         caract=adrMail.charAt(posCaract);
         posCaractOk=caractOk.indexOf(caract,0);
         posCaract++;
   }
   posCaract++; // on passe l'arobase
   while (posCaract<posPoint && posCaractOk!=-1) {
         caract=adrMail.charAt(posCaract);
         posCaractOk=caractOk.indexOf(caract,1);
         posCaract++;
   }
   posCaract++; // on passe le point
   while (posCaract<adrMailLength && posCaractOk!=-1) {
         caract=adrMail.charAt(posCaract);
         posCaractOk=caractOk.indexOf(caract,13);
         posCaract++;
   } // fin de la boucle while
  
   if (posCaractOk!=-1) {
      retour=true;
   }
}
return retour;
}