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 |