Datenbank-Fehler

#!perl use Win32::ODBC; use CGI qw(:standard); $db=new Win32::ODBC("letterservice"); print"Content-type:text/html\n\n"; #*********Überprüfung, ob eine Verbindung zur DB möglich ist********* #---------Ende Überprüfung DB-Verbimdung----------------------------- if(!$db) { print< Datenbank-Fehler
Zur Zeit gibt es technische Probleme.
Die Liste kann leider nicht angezeigt werden...

Besuche uns bitte später wieder!!!!
Schreib uns doch kurz eine Mail! aaa die ("ODBC-Fehler bei db"); } #---------Einlesen----------------------------- $gaeste = param('gaeste'); $wunschliste = param('wunschliste'); $zusage = param('zusage.y'); $name = param('name'); $zugesagt = param('zugesagt.y'); $mitbringsel = param('mitbringsel'); #$essen = param('essen'); $notiz = param('notiz'); #$code = param('code'); $id= param('id'); ######## Hauptprogramm ######################## if ($gaeste ne "") { gaeste(); } if ($wunschliste ne "") { wunschliste(); } if ($zusage ne "") { zusage(); } if($zugesagt ne "") { zugesagt(); } ############################################## sub zusage { $schalter=0; if ($name eq "") { $fehler = "Du hast deinen Namen nicht angegeben!"; $schalter=1; } # Partycode prüfen! #if ($code ne "mitternacht") #{ # $fehler .="Der Partycode ist falsch!
Entweder bist du nicht eingeladen oder ein Dussel!"; # $schalter=1; #} # if($name=~/[^a-zA-ZäöüÄÖÜéèáà_]/) # { # $fehler .="Dein Name ist ungültig! Bitte verwende keine Sonderzeichen.
Gib nur einen Namen pro Zusage ein!
Verwende am besten den Namen, mit dem wir dich in unserer Email angesprochen haben. "; # $schalter=1; # } $check; if ($schalter ==0) { $db -> Sql("SELECT name, zusage, id FROM gaeste WHERE (name ='$name');"); if ($db -> error() ne "") { print"SQL-Fehler"; print$db -> error(); print"Sorry, es kann z.Zt. leider keine Datenbankanfrage bearbeitet werden"; die ("Selektion der Namen, nicht zugesagt"); } #if(!$db) # { ## $schalter=1; # $fehler .="Unter diesem Namen haben wir keine Einladung versandt!
Verwende bitte unbedingt den Namen, mit dem wir dich in unserer Email oder SMS angesprochen haben."; # } #$db -> FetchRow(); # @datenzeile = $db -> Data; # $id=$datenzeile[2]; # if($id eq "" && $schalter ==0) # { # $db -> Sql("SELECT name, zusage, id FROM gaeste WHERE (name ='$name' and zusage=Yes);"); # if ($db -> error() ne "") # { # print"SQL-Fehler"; # print$db -> error(); # print"Sorry, es kann z.Zt. leider keine Datenbankanfrage bearbeitet werden"; # die ("Selektion der Namen, zugesagt"); # } # if($datenzeile[0] eq "") # { # $schalter=1; # $fehler="Unter diesem Namen haben wir keine Einladung versandt!
Verwende bitte unbedingt den Namen, mit dem wir dich in unserer Email oder SMS angesprochen haben"; # } $db -> FetchRow(); @datenzeile = $db -> Data; if($datenzeile[0] ne "") { $schalter=1; $fehler="Du hast bereits zugesagt! Oder ein anderer Gast hat unter diesem Namen zugesagt!
Verwende bitte einen anderen Namen!"; } } if($schalter ==1) { print< zusagen

zurück

FEHLER

$fehler

Wenn das auch nicht klappt, dann schick eine Mail an Birgit oder Astrid AAA } else { #ersetzen #$name =~ s/Bellos Gast //g; print< zusagen

zurück

AAA } } sub gaeste { print< gaesteliste

zurück

GÄSTELISTE

Diese lieben Freunde haben bereits zugesagt:
Vermisst du jemanden, dann schick doch einfach den Link zur Tanzsensation per Email weiter!

AAA #*********dynamischer Aufbau der Wunschliste******************** $db -> Sql("SELECT name, notiz FROM gaeste WHERE zusage=YES ORDER BY name;"); if ($db -> error() ne "") { print"SQL-Fehler"; print$db -> error(); print"Sorry, es kann z.Zt. leider keine Datenbankanfrage bearbeitet werden"; die ("Selektion der Gaesteliste"); } while( $db -> FetchRow() ) { @datenzeile = $db -> Data; print "$datenzeile[0]
"; if ($datenzeile[1]ne"") { print " $datenzeile[1]
"; } } print<

AAA # Ende Gaesteliste } sub wunschliste { print< wunschliste

zurück

Hitparade

Diese Tanzsensationen wurden von den Gästen bisher gewünscht.

SQL-Fehler

$datenzeile[0]

AAA # Ende Wunschliste } sub zugesagt { if ($name != /^Bellos Gast/) { $db -> Sql("UPDATE gaeste SET name='$name', mitbringsel='$mitbringsel',notiz='$notiz', zusage=Yes WHERE id=$id;"); } else { $db -> Sql("INSERT INTO gaeste (name, mitbringsel, notiz, zusage) VALUES ('$name','$mitbringsel','$notiz', Yes);"); } if ($db -> error() ne "") { print"SQL-Fehler"; print$db -> error(); print"Zur Zeit ist leider keine Datenbankanfrage möglich! Deine Zusage ist nicht angekommen! Bitte versuche es unbedingt noch einmal, aber später"; $db->Close(); die ("Update gaeste schlug fehl!!"); } #$db -> Sql("UPDATE wunschliste SET wunschliste.auswahl = Yes, wer='$name' WHERE #wunschliste.id=$mitbringsel;"); #$db -> Sql("UPDATE essen SET essen.auswahl = Yes, essen.wer='$name' WHERE #essen.id=$essen;"); print< zusage

zurück

ZUSAGE

Ok $name!

Cool, du bist dabei!

Bitte besuche unbedingt unsere Homepage kurz vor dem Partytermin noch mal.

Es könnte sein, dass sich die Partyadresse noch ändert!!! Aber auch andere wichtige Neuigkeiten erhältst du auf unserer Seite. Z. B. kannst du regelmäßig die Gästeliste oder Musikwunschliste ansehen...

Bis denn,
Astrid, Nina und Birgit

AAA if ($mitbringsel ne "") { print "PS: Und nicht vergessen - bei $mitbringsel wird getanzt!!!"; } print "

"; } ###############Ende