function veriform(form) {
	var MelRegExp = new RegExp('^[a-z0-9._-]+@[a-z0-9.-]{2,}[.][a-z]{2,4}$',"gi");
	var MdpRegExp = new RegExp('^[a-z0-9._$%-]{4,8}$',"gi");
	valide=false;
	switch (form.formulaire.value)
	{
	case 'identification':
		
		adresse_mel = (form.courriel.value != 'maboite@courriel.fr') && MelRegExp.test(form.courriel.value);
		/*
		l=form.mot_de_passe.value.length;
		mot_de_passe = (l>3 && l<9);*/
		mot_de_passe = MdpRegExp.test(form.mot_de_passe.value);
		
		valide = adresse_mel && mot_de_passe;
		
		if (!valide)
		{
			alerte = "";
			if (!mot_de_passe) alerte += "Mot de passe invalide\r\n";
			if (!adresse_mel) alerte += "Adresse mél invalide\r\n";
			alert (alerte) ;
		}
		
		break;
	case 'mot_de_passe':
		
		adresse_mel = (form.courriel.value != 'maboite@courriel.fr') && MelRegExp.test(form.courriel.value);
		if (!adresse_mel) alert("Adresse mél invalide");
		
		valide = mot_de_passe ;
		
		break;
	case 'creation':
		
		adresse_mel = (form.courriel.value != 'maboite@courriel.fr') && MelRegExp.test(form.courriel.value);
		if (!adresse_mel) alert("Adresse mél invalide");
		
		valide = adresse_mel;
		
		break;
	case 'informations' : 
		categ=form.categorie.value != 0;
		dep=form.dep_residence.value > 0;
		/*
		l=form.mot_de_passe.value.length;
		mot_de_passe=(l>3 && l<9);
		*/
		mot_de_passe = MdpRegExp.test(form.mot_de_passe.value);
		nom=(form.nom.value.length>1);
		entite=(form.entite.value.length>1);
		
		valide = mot_de_passe && dep && categ && (entite || nom);
		
		if (!valide)
		{
			alerte = "";
			if (!categ) alerte += "Choisissez une catégorie\r\n";
			if (!dep) alerte += "Choisissez un département de résidence\r\n";
			if (!(entite || nom)) alerte += "Saisissez un nom ou une organisation\r\n";
			if (!mot_de_passe) alerte += "Mot de passe invalide\r\n";
			alert (alerte) ;
		}
		break;
	case 'allopass' : 
		c_allo = (form.code_allopass1.value != '');
		if (!c_allo) alert ("Vous n'avez pas spécifié de code AlloPass");
		
		c_region = (form.region_allopass1.value != '0');
		if (!c_region) alert ("Région de consultation absente");
		
		adresse_mel = (form.email.value != 'maboite@courriel.fr') && MelRegExp.test(form.email.value);
		if (!adresse_mel) alert("Adresse Email invalide");
			
		valide = c_allo && c_region && adresse_mel ;
		break;
	}
	
	return valide ;
}