| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
  | 
| Ausgewählter Eintrag: | Zur Liste | 
<perl> my $emsg="";
{
  $emsg.="Produkte, " if $_put{Produkte_Offline} eq "";
  $emsg.="AGB's, " if $_put{AGB} eq "";
  if($emsg eq "")
  {
    get "KdNr==#", "meine DB"; ## letzte Nummer aus DB holen
    $_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>";
  }
</perl>
| 
 | 
| Alle Einträge zum Thema: | Zur Liste | 
<perl> my $emsg="";
{
  $emsg.="Produkte, " if $_put{Produkte_Offline} eq "";
  $emsg.="AGB's, " if $_put{AGB} eq "";
  if($emsg eq "")
  {
    get "KdNr==#", "meine DB"; ## letzte Nummer aus DB holen
    $_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>";
  }
</perl>
  if($emsg eq "")
  {
    get "KdNr==#", "meine DB"; ## letzte Nummer aus DB holen
    $_put{KdNr}=++$KdNr; ## diese Nummer um eins erhöhen
    put;
    out <<EOF;
<!--hier ganz nocrmal dein html rein-->
<P>Ihr Eintrag wurde aufgenommen...</P>
EOF
} else
| Liste der ersten 150 Einträge: | Einklappen | Zur Eingabe | 
| Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge | 
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |