function CheckCustomerForm(form)
{	var error=false;
	if (!error) error=CheckEmpty(form.Code,form.Code.value,"Indiquez votre code d'accès.");
	if (!error) error=CheckInSet(form.Code,"\:/&,;@éèàç","Certains caractères saisis dans le code sont invalides.");

	if (!error) error=CheckEmpty(form.Password,form.Password.value,"Indiquez votre mot de passe.");
	if (!error) error=CheckInSet(form.Password,"\:/&,;@éèàç","Certains caractères saisis dans le mot de passe sont invalides.");
	if (!error) error=CheckMinLength(form.Password,4,"Votre mot de passe est trop court (4 car. min.).");
	
	if (!error) error=CheckEmpty(form.LastName,form.LastName.value,"Indiquez votre nom.");
	
	/*if  ((CheckLivraison(form.LabelShip,form.LabelShip.value))&&(CheckLivraison(form.StreetShip,form.StreetShip.value))&&(CheckLivraison(form.ZIPShip,form.ZIPShip.value))&&(CheckLivraison(form.CityShip,form.CityShip.value)))
	{
	if (!error) error=CheckEmpty(form.LabelShip,form.LabelShip.value,"Indiquez votre nom.");
	if (!error) error=CheckEmpty(form.StreetShip,form.StreetShip.value,"Indiquez votre Adresse de livraison.");
	if (!error) error=CheckEmpty(form.ZIPShip,form.ZIPShip.value,"Indiquez votre Code postal.");
	if (!error) error=CheckEmpty(form.CityShip,form.CityShip.value,"Indiquez votre Ville.");
	};
	*/	
	if (!error) error=CheckEmpty(form.FirstName,form.FirstName.value,"Indiquez votre prénom.");
	
	if (!error) error=CheckEmpty(form.Email,form.Email.value,"Indiquez votre email.");
	if (!error) error=CheckBadEMail(form.Email,"Cette adresse email est invalide.");
	
	if (!error) error=CheckEmpty(form.Phone,form.Phone.value,"Indiquez votre numéro de téléphone.");
	if (!error) error=CheckMinLength(form.Phone,10,"Votre numéro de téléphone est invalide (10 car. min.).");
	if (!error) error=CheckNotInSet(form.Phone,"0123456789() ","Ce champ est obligatoire.");
	
	if (!error) error=CheckEmpty(form.StreetMain,form.StreetMain.value,"Indiquez votre adresse principale.");
	
	if (!error) error=CheckEmpty(form.ZIPMain,form.ZIPMain.value,"Indiquez le code postal de votre adresse principale.");
	
	if (!error) error=CheckEmpty(form.CityMain,form.CityMain.value,"Indiquez la ville de votre adresse principale.");
			
	//if (!error) error=CheckEmptyMenuItem(form.CountryMain,"Indiquez le pays de votre adresse principale.");
	//if (!error) { if(form.CountryMain.value=="UNITED+STATES+OF+AMERICA") error=CheckEmpty(form.StateMain,form.StateMain.value,"Ce champ est obligatoire.")};
			
	return(!error);
}

function WriteCustomerForm(form)
	{	
	var cmd;
		cmd="4DBKExecute:";
		cmd=cmd+"4DBKStoreSet/DEBX;";
		cmd=cmd+"4DBKFieldSet/CusCode="+form.Code.value+";";
		cmd=cmd+"4DBKFieldSet/CusPassword="+form.Password.value+";";
		//cmd=cmd+"4DBKFieldSet/CusPasswordInfo="+form.PasswordInfo.value+";";
		
		cmd=cmd+"4DBKFieldSet/CusFirstName="+ToCaps(form.FirstName.value)+";";
		cmd=cmd+"4DBKFieldSet/CusLastName="+ToCaps(form.LastName.value)+";";
		cmd=cmd+"4DBKFieldSet/CusPhone="+form.Phone.value+";";
		cmd=cmd+"4DBKFieldSet/CusEmail="+ToLowerCase(form.Email.value)+";";
		//cmd=cmd+"4DBKFieldSet/CusBirthDate="+form.BirthDate.value+";";
		//cmd=cmd+"4DBKFieldSet/CusPersoA1="+form.CusPersoA1.value+";";
		//cmd=cmd+"4DBKFieldSet/CusPersoA4="+form.CusPersoA4.value+";";
		
		// Adresse principale
		cmd=cmd+"4DBKFieldSet/CusStreetMain="+form.StreetMain.value+";";
		cmd=cmd+"4DBKFieldSet/CusZIPMain="+ToCaps(form.ZIPMain.value)+";";
		cmd=cmd+"4DBKFieldSet/CusCityMain="+ToCaps(form.CityMain.value)+";";
		//cmd=cmd+"4DBKFieldSet/CusStateMain="+ToCaps(form.StateMain.value)+";";
		cmd=cmd+"4DBKFieldSet/CusCountryMain='FRANCE';";
		
		//adresse de livraison
		cmd=cmd+"4DBKFieldSet/CusLabelShip="+ToCaps(form.LabelShip.value)+";";
		cmd=cmd+"4DBKFieldSet/CusStreetShip="+form.StreetShip.value+";";
		cmd=cmd+"4DBKFieldSet/CusZIPShip="+ToCaps(form.ZIPShip.value)+";";
		cmd=cmd+"4DBKFieldSet/CusCityShip="+ToCaps(form.CityShip.value)+";";
		//cmd=cmd+"4DBKFieldSet/CusStateShip="+ToCaps(form.StateShip.value)+";";
		cmd=cmd+"4DBKFieldSet/CusCountryShip='FRANCE';";
		
		// adresse de facturation
		cmd=cmd+"4DBKFieldSet/CusLabelInvo="+ToCaps(form.FirstName.value)+" "+ToCaps(form.LastName.value)+";";
		cmd=cmd+"4DBKFieldSet/CusStreetInvo="+form.StreetMain.value+";";
		cmd=cmd+"4DBKFieldSet/CusZIPInvo="+ToCaps(form.ZIPMain.value)+";";
		cmd=cmd+"4DBKFieldSet/CusCityInvo="+ToCaps(form.CityMain.value)+";";
		//cmd=cmd+"4DBKFieldSet/CusStateInvo="+ToCaps(form.StateMain.value)+";";
		cmd=cmd+"4DBKFieldSet/CusCountryInvo='FRANCE';";
			
		cmd=cmd+"4DBKGo/validation.htm";
		window.location=EncodeURL(cmd);
	}