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
back
start
ecoglobe.ch a-z
top
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:
echo($resultat) ?>
Deine Email Adresse wurde geloescht