| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
| 
 | 
| Ausgewählter Eintrag: | Zur Liste | 
<INPUT TYPE=HIDDEN NAME="KdNr:=" VALUE="$KdNr">
| 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 |