baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<FORM ACTION="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/blablabla/address_stamm&cmd=add" METHOD=POST ENCTYPE="multipart/form-data" >
<HTML> <HEAD> <TITLE>Bestätigung</TITLE> </HEAD> <Body> <perl>
if(%_put) { $emsg.="Firma, " if $_put{Firmenname} eq ""; $emsg.="Straße / Nr., " if $_put{Firmenstrasse} eq ""; $emsg.="Postleitzahl, " if $_put{FirmenPLZ} eq ""; $emsg.="Ort, " if $_put{Firmenort} eq ""; $emsg.="Firmentelefon, " if $_put{Firmentelefon} eq ""; $emsg.="Firmen E-Mail, " if $_put{FirmenEmail} eq ""; $emsg.="Internet-Adresse, " if $_put{InternetAdresse} eq ""; $emsg.="Beschreibung, " if $_put{Beschreibung} eq ""; $emsg.="Branche, " if $_put{Branche} eq ""; $emsg.="Produkte, " if $_put{Produkte} eq ""; $emsg.="Ansprechpartner: Name, " if $_put{Name} eq ""; $emsg.="Ansprechpartner: Vorname, " if $_put{Vorname} eq ""; $emsg.="Ansprechpartner: Telefon, " if $_put{Telefon} eq ""; $emsg.="Ansprechpartner: Funktion, " if $_put{Funktion} eq ""; $emsg.="Ansprechpartner: E-Mail , " if $_put{Email} eq "";
if($emsg eq "") { put; out "<P>Ihr Eintrag wurde aufgenommen...</P>"; } else { out '<table width=90%><tr><td><br><P>'; out "Folgende Felder wurden nicht ausgefüllt:"; out "<H4>$emsg"; out "<br><P>Bitte benutzen Sie den Zurücklink, Danke."; out "</td></tr></table>"; }
</perl> <center><b><a href="javascript:history.back()">Zurück</a></center>
</HTML>
<perl> get "KdNr==#", "address_stamm"; ## letzte Nummer aus DB holen $KdNr++; ## diese Nummer um eins erhöhen </perl>
<INPUT TYPE=HIDDEN NAME="KdNr:=" VALUE="">,
Alle Einträge zum Thema: | Zur Liste |
<FORM ACTION="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/blablabla/address_stamm&cmd=add" METHOD=POST ENCTYPE="multipart/form-data" >
<HTML> <HEAD> <TITLE>Bestätigung</TITLE> </HEAD> <Body> <perl>
if(%_put) { $emsg.="Firma, " if $_put{Firmenname} eq ""; $emsg.="Straße / Nr., " if $_put{Firmenstrasse} eq ""; $emsg.="Postleitzahl, " if $_put{FirmenPLZ} eq ""; $emsg.="Ort, " if $_put{Firmenort} eq ""; $emsg.="Firmentelefon, " if $_put{Firmentelefon} eq ""; $emsg.="Firmen E-Mail, " if $_put{FirmenEmail} eq ""; $emsg.="Internet-Adresse, " if $_put{InternetAdresse} eq ""; $emsg.="Beschreibung, " if $_put{Beschreibung} eq ""; $emsg.="Branche, " if $_put{Branche} eq ""; $emsg.="Produkte, " if $_put{Produkte} eq ""; $emsg.="Ansprechpartner: Name, " if $_put{Name} eq ""; $emsg.="Ansprechpartner: Vorname, " if $_put{Vorname} eq ""; $emsg.="Ansprechpartner: Telefon, " if $_put{Telefon} eq ""; $emsg.="Ansprechpartner: Funktion, " if $_put{Funktion} eq ""; $emsg.="Ansprechpartner: E-Mail , " if $_put{Email} eq "";
if($emsg eq "") { put; out "<P>Ihr Eintrag wurde aufgenommen...</P>"; } else { out '<table width=90%><tr><td><br><P>'; out "Folgende Felder wurden nicht ausgefüllt:"; out "<H4>$emsg"; out "<br><P>Bitte benutzen Sie den Zurücklink, Danke."; out "</td></tr></table>"; }
</perl> <center><b><a href="javascript:history.back()">Zurück</a></center>
</HTML>
<perl> get "KdNr==#", "address_stamm"; ## letzte Nummer aus DB holen $KdNr++; ## diese Nummer um eins erhöhen </perl>
<INPUT TYPE=HIDDEN NAME="KdNr:=" VALUE="">,
<INPUT TYPE=HIDDEN NAME="KdNr:=" VALUE="">
<INPUT TYPE=HIDDEN NAME="KdNr:=" VALUE="$KdNr">
<perl>
if(%_put) { $emsg.="Firma, " if $_put{Firmenname} eq ""; $emsg.="Straße / Nr., " if $_put{Firmenstrasse} eq ""; $emsg.="Postleitzahl, " if $_put{FirmenPLZ} eq ""; $emsg.="Ort, " if $_put{Firmenort} eq ""; $emsg.="Firmentelefon, " if $_put{Firmentelefon} eq ""; $emsg.="Firmen E-Mail, " if $_put{FirmenEmail} eq ""; $emsg.="Internet-Adresse, " if $_put{InternetAdresse} eq ""; $emsg.="Beschreibung, " if $_put{Beschreibung} eq ""; $emsg.="Branche, " if $_put{Branche} eq ""; $emsg.="Produkte, " if $_put{Produkte} eq ""; $emsg.="Ansprechpartner: Name, " if $_put{Name} eq ""; $emsg.="Ansprechpartner: Vorname, " if $_put{Vorname} eq ""; $emsg.="Ansprechpartner: Telefon, " if $_put{Telefon} eq ""; $emsg.="Ansprechpartner: Funktion, " if $_put{Funktion} eq ""; $emsg.="Ansprechpartner: E-Mail , " if $_put{Email} eq "";
if($emsg eq "") {
$_put{KdNr}=++$KdNr; ## diese Nummer um eins erhöhen
put; out "<P>Ihr Eintrag wurde aufgenommen...</P>"; } else { out '<table width=90%><tr><td><br><P>'; out "Folgende Felder wurden nicht ausgefüllt:"; out "<H4>$emsg"; out "<br><P>Bitte benutzen Sie den Zurücklink, Danke."; out "</td></tr></table>"; }
Liste der Einträge von 53250 bis 53400: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |