[! sub title { 'Beratungsgutschein einlösen'} !] [- $MailTo = 'beratungsgutschein@blumen-schwarz.de' ; $ENV{EMBPERL_MAILFROM} = "$fdat{email}"; $ENV{EMBPERL_MAILHELO} = "narnia.blumen-schwarz.de"; $ENV{EMBPERL_MAILHOST} = "narnia.blumen-schwarz.de"; @errors = () ; if (defined($fdat{check}) || defined($fdat{send})) { push @errors, "**Bitte Namen eingeben" if (!$fdat{name}) ; push @errors, "**Bitte Adresse eingeben" if (!$fdat{adresse}); push @errors, "**Bitte Telefonnummerangeben" if (!$fdat{telefon}); push @errors, "**Bitte E-Mail Adresse eingeben" if (!$fdat{email}) ; push @errors, "**Bitte Wunschtermin eingeben" if (!$fdat{termin}); push @errors, "**Bitte kurze Problembeschreibung eingeben" if (!$fdat{problem}) ; } -] [$if (defined($fdat{check}) and $#errors == -1)$] [- delete $fdat{input} ; delete $fdat{check} ; delete $fdat{send} -]

Sie haben folgende Daten eingegeben:

Name[+$fdat{name}+]
Adresse[+$fdat{adresse}+]
Telefon[+$fdat{telefon}+]
E-Mail[+$fdat{email}+]
Wunschtermin[+$fdat{termin}+]
Problembeschreibung[+$fdat{problem}+]
Sonstiges[+$fdat{sonstiges}+]
[$hidden$]

Bitte haben Sie beim Senden der Daten einen Augenblick Geduld!

[$elsif defined($fdat{send}) and $#errors == -1$] [- MailFormTo ($MailTo,'Beratungstermin','Email') -]

Ihre Nachricht wurde abgeschickt. Wir setzen uns in Kürze mit Ihnen in Verbindung.

[$else$]

Beratungsgutschein einlösen

Wir wollen, dass Sie mit Ihren Pflanzen Freude haben!
Damit Sie bei auftretenden Problemen nicht "im Regen stehen" bieten wir unseren Beratungsservice an.
Hier können Sie unseren vor-Ort-Beratungsservice anfordern. Bitte beachten Sie bitte folgende Punkte:

Bitte geben Sie Ihre Daten ein

[$if $#errors != -1 $] [$endif$]
[+$errors[$row]+]
Name
Adresse
Telefon (tagsüber erreichbar, ansonsten bitte Uhrzeit angeben)
Emailadresse
Wunschtermin (wenn möglich Zeitspanne angeben, z.B. Mo.,15.07. 9 - 12 Uhr)
kurze Beschreibung des Problems
Sonstiges (optional)
[$endif$]