nicht angemeldet
Hi,
hier das Stück was als HTML Text ausgegeben wird.
sub PrintResponse {
print "Content-type: text/html\n\n";
print "<html><head><title>Danke!</title></head>\n";
print "<body BACKGROUND="../../background.JPG">\n";
print "<div align="center"><table bgcolor="#F2F2F2" width="500" cellspacing="4" cellpadding="4"><tr><td>\n";
print "<font size="2" face="verdana, Arial"><b>Vielen Dank!</b><br>\n";
print "Vielen Dank Herr/Frau $name, für Ihre Bestelllung.<br><br>\n";
print "Hier sehen Sie noch einmal ihre abgesendeten Daten:<br><br>\n";
print "Bestellte Menge und Preis:<br>\n";
print "==================================<br>\n";
print "Bestellte Menge: $units<br>\n";
print "Betrag in Euro: $respons<br>\n";
print "Zuzüglich Nachnahmegebühr von: 10,20 Euro<br>\n";
print "Gesamtsumme:$gesamts Euro<br>\n";
print "Auftragsnummer: $number<br>\n";
print "==================================<br>\n";
print "Ihre abgesendeten Kundendaten:<br>\n";
print "Name: $name <br>\n";
print "Strasse: $strasse<br>\n";
print "PLZ: $plz<br>\n";
print "Ort: $ort<br>\n";
print "E-Mail: $mailadresse<br>\n";
print "Tel: $tel<br>\n";
print "AGB: $AGB<br><br>\n";
print "<a href="$returnurl">Zurück zur Hauptseite</a></font></p>\n";
print "</td></tr></table></div></body></html>\n";
}
Das kommt danach und klappt einwandfrei:
sub missing {
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>Fehler aufgetreten</title>\n";
print "</head>\n";
print "<body bgcolor="#FFFFFF" BACKGROUND="../../background.JPG" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000">\n";
print "<div align="center">\n";
print "<table bgcolor="#800000" width="500" cellspacing="1" cellpadding="0" border="0">\n";
print "<tr><td>\n";
print "<table bgcolor="#F1F1F1" width="500" cellspacing="0" cellpadding="4" border="0">\n";
print "<tr>\n";
print "<td><font face="Verdana, Arial" size="2">\n";
print "Beim ausfüllen haben Sie folgendes vergessen:<ol> <b>$message</b>\n";
print "</ol><br>\n";
print "Bitte gehen Sie zurück und versuchen es erneut!<br><br>\n";
print "</font></td></tr></table></td></tr></table></div></body></html>\n";
exit;
}
Ich hab das Ding schon rauf und runter angeschaut... Ich bin ja noch nicht so bewandert in CGI/Perl, aber das ist doch eigentlich 'ne Browsermacke - oder irre ich da?
Cu Helmut