3) {return "false";} } ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //-----------------------Si l'email n'set pas valide, on envoie le message suivant---------------------// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// if (verifmail($Femail)=="false") { echo ""; echo ""; echo ""; echo ""; echo ""; echo "
Problème avec la syntaxe de l'adresse! "; echo "
"; echo "Salut $Fnom.
"; echo "Désolé, mais il semble y avoir un problème avec l'orthographe de ton adresse email.
"; echo "Je n'ai pu inscrire ton adresse $Femail dans le registre.
"; echo "Merci de reformuler celle-ci ou de rééssayer plus tard..."; echo "
"; echo "L'equipe de $titre"; echo "
Accueil du site
"; echo "

"; echo "Newsletter

"; echo ""; exit; } ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //---------------------------L'email est valide: On l'inscrit ds contacts.txt et on affiche le message OK-------------// //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// if($fp = fopen("admin/contacts.txt","a")){ // ouverture du fichier en écriture fputs($fp, "$Fnom|$Femail|"); // on écrit les differentes infos fputs($fp, "\n"); // on va a la ligne fclose($fp); echo ""; echo ""; echo ""; echo ""; echo ""; echo "
Merci pour ton inscription! 
"; echo "Salut $Fnom!
"; echo "Merci de t'être inscrit(e) à la newsletter de $titre!
"; echo "Tu viens de recevoir un email de confirmation à ton adresse email $Femail.
"; echo "A bientôt pour ta premiere newsletter..."; echo "
"; echo "L'equipe de $titre"; echo "
Accueil du site

"; echo "

"; echo "Newsletter

"; ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //PARTIE A SUPPRIMER SI VOTRE HEBERGEUR N'ACCEPTE PAS LA FONCTION MAIL ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $codehtml= "" . "$confirmation". ""; mail("$Femail","Salut $Fnom, te voilà inscrit à la Newsletter de $titre",$codehtml,"From: $email_admin\nReply-To: $email_admin\nContent-Type: text/html; charset=\"iso-8859-1\"\n"); exit; //////////////////////////////////////////////////////// //FIN DE LA PARTIE A SUPPRIMER ///////////////////////////////////////////////////////// } ////////fin du "if($fp = fopen("admin/......" else { //message si erreur lors de l'ouverture du fichier echo "Désolé mais il y a eu une erreur lors de l'inscription dans le registre!
"; echo "Veuillez contacter le webmaster du site pour plus de précisions.
"; } } ////////////// fin du if (!strcmp($action,"abonner")) ///////////////////////////////////////////////////////////////// //////////////DESABONNEMENT////////////////// //////////////////////////////////////////////////////////////// ///// Cas ou l'utilisateur n'a saisi ni le nom ni l'email ////////////// if ((isset($action))&&(!strcmp($action,"desabonner"))){ if ($Femail==""&&$Fnom==""){ echo ""; echo ""; echo ""; echo ""; echo ""; echo "
Problème Avec le nom et l'adresse email! "; echo "
"; echo "Vous n'avez indiqué ni votre nom ni votre email. Les 2 champs sont indispensables!
"; echo "Veuillez vous servir des flèches de votre navigateur pour revenir en arrière.
"; echo "
"; echo "L'equipe de $titre"; echo "
Accueil du site
"; echo "

"; echo "Newsletter

"; echo ""; exit; } ///// Cas ou l'utilisateur n'a pas saisi d'email ///////// if ($Femail==""){ echo ""; echo ""; echo ""; echo ""; echo ""; echo "
Problème Avec l'adresse email! "; echo "
"; echo "Vous n'avez pas indiqué votre email. Les 2 champs sont indispensables!
"; echo "Veuillez vous servir des flèches de votre navigateur pour revenir en arrière.
"; echo "
"; echo "L'equipe de $titre"; echo "
Accueil du site
"; echo "

"; echo "Newsletter

"; echo ""; exit; } ///// Cas ou l'utilisateur n'a pas saisi de nom ///////// if ($Fnom==""){ echo ""; echo ""; echo ""; echo ""; echo ""; echo "
Problème Avec Votre nom "; echo "
"; echo "Vous n'avez pas indiqué votre Nom. Les 2 champs sont indispensables!
"; echo "Veuillez vous servir des flèches de votre navigateur pour revenir en arrière.
"; echo "
"; echo "L'equipe de $titre"; echo "
Accueil du site
"; echo "

"; echo "Newsletter

"; echo ""; exit; } ///////Divers manips sur le fichier contacts.txt//////////////// $fp = fopen("admin/contacts.txt","r+"); // on ouvre le fichier txt en lecture $contenu=fread($fp,4096); //on lit tout le contenu $rien=""; //motif de remplacement de l'email et du nom $sep="|"; // definition du séparateur $nom_email=$Fnom.$sep.$Femail.$sep; //concacténation des 3 variables, c le motif à remplacer $strs=$nom_email; //chaine ds laquelle on recherche le motif à remplacer $stre=$rien; //motif à remplacer $str="$contenu"; //motif de remplacement $str1=str_replace($strs,$stre,$str); //nouveau contenu sans le motif fclose($fp); //on ferme le fichier $fp2 = fopen("admin/contacts.txt","w+"); //on le réouvre mais cette fois en écriture //et en éffaçant son contenu fputs($fp2,$str1); //on met dedans le nouveau contenu fputs($fp2,"\n"); //on vas à la ligne fclose($fp2); //on ferme le fichier ////////Message de confirmation ou d'erreur de la suppression ////////////////// if($str1!=$contenu){ //si le contenu original est différent du nouveau, //c'est que le motif a été trouvé et remplacé //donc on affiche le message ok echo ""; echo ""; echo ""; echo ""; echo ""; echo "
Vous venez de vous désinscrire de notre Newsletter!"; echo " 
"; echo "Salut $Fnom!
"; echo "Vous n'êtes maintenant plus abonné(e) à la newsletter de $titre!
"; echo "Votre adresse email $Femail et ton nom $Fnom ont été éffacés du registre.
"; echo "Si vous ne vouliez pas vous désinscrire, vous pouvez toujours vous réinscrire ICI
"; echo "Nous espérons vous revoir bientôt sur notre liste d'abonnés."; echo "
"; echo "L'equipe de $titre"; echo "
Accueil du site

"; echo "

"; echo "Newsletter

"; } if($str1==$contenu){ //si le contenu original est égal au nouveau, //c'est que le motif n'as pas été trouvé donc échec echo ""; echo ""; echo ""; echo ""; echo ""; echo "
Nous n'avons pu vous désinscrire !"; echo " 
"; echo "Bonjour $Fnom!
"; echo "Nous sommes désolés, mais nous avons pu vous identifier.
"; echo "Votre adresse email $Femail et ton nom $Fnom ne correspondent à aucune entrée.
"; echo "Veuillez vérifier les informations transmises en revenant en arriere grace aux flèches
"; echo " de votre navigateur. Merci."; echo "
"; echo "L'equipe de $titre"; echo "
Accueil du site

"; echo "

"; echo "Newsletter

"; } } //////////// fin du if (!strcmp($action,"desabonner")) else { /// cas où on a pas (encore) envoyé $action ?>

La météo
La météo du jour
 A l'Aber-Wrac'h
Accueil

Contacts
A l'Aber-Wrac'h sur votre site

Newsletter

Vous pouvez vous inscrire à la newsletter afin de recevoir périodiquement des nouvelles de l'Aber-Wrac'h, Landéda et du pays des Abers.


Nom  
Email
S'abonner Se désabonner
  

 








Copyright © 2006 by alaberwrach.free.fr  |  Construit avec Script Edit  |  Design by R Lohézic  | Mention légale