function RemDevis(f) {
		var Doc, S, Dev, i;
		Doc = document.f		
    	S = Doc.Objet.value
    	Dev = S.indexOf("devis")
    	if (Dev>-1) {Doc.Rem.value = "Exemple de devis : 3h le lundi et le jeudi + 24h/24 le week-end"} else {Doc.Rem.value = ""};
}
function Envoyer(f) {
		var Doc, S, I, J, Ins, Dev;
		Doc = document.f
		if (Doc.Nom.value   <= " ") 	{alert("Merci d\'indiquer votre nom"); 		Doc.Nom.focus();    return}
    	S = Doc.Email.value;
    	if (S <= " ")					{alert("Merci d\'indiquer votre email"); 	Doc.Email.focus(); 	return}
    	I = S.indexOf("@")
    	J = S.indexOf(".", I)
    	if (I<0 | J<0)					{alert("Veuillez v" + KEA + "rifier votre email"); 	Doc.Email.focus(); 	return}
  		if (Doc.Telephone.value <= " ")	{alert("Merci d\'indiquer votre n" + KNum + " de t" + KEA + "l" + KEA + "phone"); 	Doc.Telephone.focus(); return}
    	if (Doc.Adresse.value <= " ")	{alert("Merci d\'indiquer votre Adresse"); 	Doc.Adresse.focus(); return}
    	S = Doc.CP.value ;
    	for (I=0; I<5; I++) 			{if (S.substring(I,I+1) < "0" | S.substring(I,I+1) > "9") {S = ""}};
    	if (S.substring(0,2) <= "00") 	{S = ""};
    	if (S <= "") 					{alert("Merci d\'indiquer les 5 chiffres de votre code postal"); 	Doc.CP.focus(); return}
    	if (Doc.Commune.value <= " ") 	{alert("Merci d\'indiquer la Commune"); 			Doc.Commune.focus(); 	return}
    	S = Doc.Objet.value
    	Ins = S.indexOf("inscription")    	
    	Dev = S.indexOf("devis")
    	if (Doc.Texte.value <= " ") 	{
    	   if (Ins==-1 && Dev==-1) {alert("Veuillez préciser votre demande"); Doc.Texte.focus(); 	return}
    	   if (Dev>-1) {
    	      alert("Veuillez indiquer :\n\n- le nombre d\'heures par jour et \n- les jours de semaine concern" + KEA + "s par le devis");
    	      Doc.Texte.focus();
    	      return}
    	 }
    	  		
//  	alert(Doc.Nom.value + "\n" + Doc.Adresse.value + "\n" + Doc.Commune.value + "\n" + Doc.Texte.value + "\n\n" + Accent(Doc.Nom.value) + "\n" + Accent(Doc.Adresse.value) + "\n" + Accent(Doc.Commune.value) + "\n" + Accent(Doc.Texte.value));
    	
    	Doc.Nom_sans_accent.value = Accent(Doc.Nom.value, 1); 		
    	Doc.Adresse_sans_accent.value = Accent(Doc.Adresse.value, 1);		
    	Doc.Commune_sans_accent.value = Accent(Doc.Commune.value, 1);	
    	Doc.Texte_sans_accent.value = Accent(Doc.Texte.value, 1);		
    	
//  	alert(Doc.Nom_sans_accent.value + "\n" + Doc.Adr_sans_accent.value + "\n" + Doc.Com_sans_accent.value + "\n" + Doc.Txt_sans_accent.value );
//   	return;
		
    	Doc.Rem.value = "";
    	Doc.subject.value = Doc.Objet.value;
		Doc.ATTENTION.value = "REMPLACER adresse du DESTINATAIRE par :  "  + Doc.Email.value + "  AVANT DE REPONDRE";
		DestAS(f);
}