ecoglobe.org index
  • about - betrifft - concerne
  • club: Deutsch - English - Français - Nederlands
  • la croissance (économique) - (Wirtschafts)Wachstum - (economic) growth
  • scénarios de croissance - Wachstumsszenarios - growth scenarios
  • Goofy & Gallant - an optimistic cartoon
  • growth table - Wachstumstabelle - tablau de croissance
  • home - page de démarrage - Startseite
  • jobs
  • join - beitreten - rejoigner
  • New Zealand pages (archive)
  • scenarios
  • stop growth letters - halt à la croissance - lettres - Stoppt Wachstum - Briefe
  • Swiss ecoglobe Schweiz Suisse Svizzera Switzerland
  • two Frogs - Zwei Frösche - Deux grenouilles
  • your feedback - Ihre Reaktion - votre réaction
  • backback   start ecoglobe.ch a-z   topup
    ecoglobe since/depuis/seit/da 1997
    0924 Anmeldung für Newsletter"; } function check_email($email, $check_domain = false) { $regex = '/^((\"[^\"\f\n\r\t\v\b]+\")|([\w\!\#\$\%\&\'\*\+\-\~\/\^\`\|\{\}]+'. '(\.[\w\!\#\$\%\&\'\*\+\-\~\/\^\`\|\{\}]+)*))@((\[(((25[0-5])|'. '(2[0-4][0-9])|([0-1]?[0-9]?[0-9]))\.((25[0-5])|(2[0-4][0-9])|'. '([0-1]?[0-9]?[0-9]))\.((25[0-5])|(2[0-4][0-9])|([0-1]?[0-9]?[0-9]))'. '\.((25[0-5])|(2[0-4][0-9])|([0-1]?[0-9]?[0-9])))\])|(((25[0-5])|'. '(2[0-4][0-9])|([0-1]?[0-9]?[0-9]))\.((25[0-5])|(2[0-4][0-9])|'. '([0-1]?[0-9]?[0-9]))\.((25[0-5])|(2[0-4][0-9])|([0-1]?[0-9]?[0-9]))'. '\.((25[0-5])|(2[0-4][0-9])|([0-1]?[0-9]?[0-9])))|'. '((([A-Za-z0-9\-])+\.)+[A-Za-z\-]+))$/'; if (preg_match($regex, $email)) { if ($check_domain && function_exists('checkdnsrr')) { list (, $domain) = explode('@', $email); if (checkdnsrr($domain, 'MX') || checkdnsrr($domain, 'A')) { return true; } return false; } return true; } return false; } if($delete==true) { $email2=array(); $id=$email; $ligne = file_get_contents("../../newsletter/result.lst"); $emailadr = explode("|",$ligne); $cpt=0; for($x=0;$x < sizeof($emailadr)-1;$x++) { if($id == $emailadr[$x]) { $success=true; } else { $email2[$cpt] = $emailadr[$x]; $cpt++; } } $fp = fopen("../../newsletter/result.lst",'w'); if($email2[0] != "") { for($x=0;$x <= sizeof($email2)-1;$x++) { fputs($fp,$email2[$x]); fputs($fp,"|"); } } fclose($fp); } if(($email != "") && ($delete != true)) { $test = 1; if (strlen($email) >=1) { $email = str_replace("|","",$email); if (!check_email($email)) { $test = 0; $resultat = "Error: Das Format deiner Email Adresse ist falsch"; $pass2=1; } //on vérifie que l'adresse e-mail entré n'est pas déjà enregistrée dans la liste de diffusion. Man kontrolliert die Emailadresse und ob die Aadresse nicht bereits in der Verteilerliste registriert ist. $ligne = file_get_contents("../../newsletter/result.lst"); $email2 = explode("|",$ligne); for($x=0;$x <= sizeof($email2)-1;$x++) { if ($email2[$x] == $email) { $test=0; $resultat = "Error: Deine Email Adresse ist bereits registriert."; $pass2=1; } } if($test== 1 ) { $fp = fopen("../../newsletter/result.lst","a"); fputs($fp,$email . "|"); fclose($fp); $resultat = "Deine Registration war erfolgreich!"; $pass2=1; } } } ?>
    Anmeldung für Newsletter:

    Deine Email Adresse wurde geloescht