function ctrl_form(){
//=== (c) 2007 NetPhase Generator 1.0 [20070613 11495931] ===
var retour=false;

if (tst_oblig() == false) return false;//champs obligatoires
if (tst_email(retour) == false) return false;//email valide
if (tst_confirm_email() == false) return false;//confirmation email

return true;//crtl ok
}

//==============================
function tst_oblig(){
//Champs obligatoires
var chL=trim(document.formulaire.C004.value);
var msg='';
if(	document.formulaire.C013.value.length < 1 || 
	document.formulaire.C014.value.length < 1 || 
	document.formulaire.C015.value.length < 1 || 
	document.formulaire.C101.selectedIndex == 0 || 
	document.formulaire.C001.value.length < 1 || 
	document.formulaire.C002.value.length < 1 || 
	document.formulaire.C005.value.length < 1 || 
	document.formulaire.C008.value.length < 1 || 
	document.formulaire.C102.value.length < 1 || 
	(document.formulaire.C004.value.length != 5 && document.formulaire.C049.value == 'FR') ||
	document.formulaire.C049.selectedIndex == 0){
		msg='Renseigner les champs obligatoires';
		document.getElementById('msg_error').innerHTML=msg;
		document.getElementById('msg_error2').innerHTML=msg;
		return false;
	}
	return true;
}

//==============================
function tst_email(retour){
//Test de la validité de l'@ e-mail
	var msg='';
	var adrMail=document.formulaire.C015.value;
	var adrMailLength=adrMail.length;
	var caractOk='_.-0123456789abcdefghijklmnopqrstuvwxyz';
	var posArrobas=adrMail.indexOf('@',1);
	var posPoint=adrMail.lastIndexOf('.',adrMailLength);
	var posCaractFaux=adrMail.indexOf('..',posArrobas+1);
	var caract=0;
	var caractFaux=adrMail.charAt(0)+adrMail.charAt(posArrobas-1)+adrMail.charAt(posArrobas+1)+adrMail.charAt(posPoint-1);
	var posCaract=0;
	var posCaractOk=0;
	var posCaractNon=-1;
	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++;
		while (posCaract<posPoint && posCaractOk!=-1) {
			caract=adrMail.charAt(posCaract);
			posCaractOk=caractOk.indexOf(caract,1);
			posCaract++;
		}
		posCaract++;
		while (posCaract<adrMailLength && posCaractOk!=-1) {
			caract=adrMail.charAt(posCaract);
			posCaractOk=caractOk.indexOf(caract,13);
			posCaract++;
		}
		if (posCaractOk!=-1) {
			retour=true;
		}
		return retour;
	}
	if(retour==false){
		msg='Adresse email incorrecte';
		document.getElementById('msg_error').innerHTML=msg;
		document.getElementById('msg_error2').innerHTML=msg;
	}
	else	{
		retour = true;
	}
	return retour;
}	

//==============================
function tst_confirm_email(){
//Confirmation email
	var msg='';
	if(document.formulaire.C015.value != document.formulaire.C015b.value){
		msg='La confirmation de l\'email est différente de l\'originale';
		document.getElementById('msg_error').innerHTML=msg;
		document.getElementById('msg_error2').innerHTML=msg;
		return false;
	}
	else
	{
		return true;
	}
}

//==============================
function trim(s) {
	return s.replace(/^\s+/, '').replace(/\s+$/, '');
}