function verifie_reponses() {
	var ok = true;
	
	// vérification des réponses aux questions	
	var tabErreurs = new Array();
	var nb = 0;
	var enquete = document.getElementById("enquete");
	var gotoReponse = "";
	for ( var i = 0 ; i < enquete.length ; i++ ) {
  		if ( enquete.elements[i].name.charAt(0) == "q" ) {
			if ( document.getElementById( enquete.elements[i].name ).value == "" ) {
				ok = false;
				if ( gotoReponse == "" )
					gotoReponse = enquete.elements[i].name;
				//if ( i == 0 )
				//	tabErreurs[nb] = "  - question 1a";
				//if ( i == 1 )
				//	tabErreurs[nb] = "  - question 1b";
				//if ( i > 1 )
					tabErreurs[nb] = "  - question " + eval(i+1);
				nb++;
				};
			};
		};
	if ( ok == false ) {
		var reponses = "";
		for ( var i = 0 ; i < tabErreurs.length; i++ ) {
			reponses = reponses + "\n" + tabErreurs[i]; };
		alert("Vous n'avez pas répondu aux questions suivantes : " + reponses );
		document.getElementById(gotoReponse).focus();
		}

	if ( ok == true ) {
	// vérification des coordonnées
	//var Tabchamps   = new Array("nom","prenom","societe","profession","adresse","cp","ville","tel","adressemail");
	//var Tablibelles = new Array("nom","prénom","pharmacie","profession","adresse","code postal","ville","numéro de téléphone","adresse e-mail");
	var Tabchamps   = new Array("adressemail");
	var Tablibelles = new Array("adresse e-mail");
	if ( Tabchamps.length != Tablibelles.length )
		alert("Problème tableaux de contrôle des champs");
	for( var i = 0; i < Tabchamps.length; i++ ) {
		var champ = document.getElementById(Tabchamps[i]);
		if ( champ.value == "" || champ.value == 0) {
			alert("Merci de renseigner votre " + Tablibelles[i] + ".");
			champ.focus();
			ok = false;
			break;
			}
			else
			{
			if ( Tabchamps[i] == "adressemail" && !testAdresse(champ.value) ) {
				alert("L\'adresse e-mail est incorrecte.");
				champ.focus();
				ok = false;
				break;
				};
			};
		}
	};
	if ( ok == true )
		if (confirm('Cliquez sur OK pour valider vos réponses ou sur Annuler pour corriger.'))
			ok = true;
			else
			ok = false;
	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;
}