baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl> if (%_put && $cmd eq "add") {
$err.=" -> Name" if $_put{Name} eq ""; $err.=" -> Email" if(index($Email, "@")<0 || index($Email, ".")<0); if ($err ne ""){
out "Ihre Mail wurde nicht gesendet."; undef %_put, "db"; } else { ##########hier kommt der put rein put ["Name", "$_put{Name}", "Email", "$Email"], "db"; $senddat=datum('jetzt', 'intern'); ################hier kommt der get rein, um genau diesen letzten DS zu holen:
##############jetzt mal testen, ob $Id oder $_id befüllt sind: out"ID: $Id, $_id<br>"; mail "$Email", "Kontakt", "
##############wenn Du mit <do action=all arbeitest, dann hier folgendes schreiben, da sonst der DS 2x in der DB steht!!!!!:
out<<EOF; EOF } } else { out<<EOF;
<input type="hidden" name="cmd=" value="add"> ... </form> EOF } </perl>
|
Alle Einträge zum Thema: | Zur Liste |
$Id oder $_id gehen nicht.
<perl> if (%_put && $cmd eq "add") {
$err.=" -> Name" if $_put{Name} eq ""; $err.=" -> Email" if(index($Email, "@")<0 || index($Email, ".")<0); if ($err ne ""){ out "Ihre Mail wurde nicht gesendet."; undef %_put, "db"; } else { $senddat=datum('jetzt', 'intern'); mail "$Email", "Kontakt", "
out<<EOF; EOF } } else {
<form ...> <input type="hidden" name="cmd=" value="add"> ... </form> EOF } </perl>
if (%_put && $cmd eq "add") { get "Id==!$Id", "db";
<perl> if (%_put && $cmd eq "add") {
$err.=" -> Name" if $_put{Name} eq ""; $err.=" -> Email" if(index($Email, "@")<0 || index($Email, ".")<0); if ($err ne ""){
out "Ihre Mail wurde nicht gesendet."; undef %_put, "db"; } else { ##########hier kommt der put rein put ["Name", "$_put{Name}", "Email", "$Email"], "db"; $senddat=datum('jetzt', 'intern'); ################hier kommt der get rein, um genau diesen letzten DS zu holen:
##############jetzt mal testen, ob $Id oder $_id befüllt sind: out"ID: $Id, $_id<br>"; mail "$Email", "Kontakt", "
##############wenn Du mit <do action=all arbeitest, dann hier folgendes schreiben, da sonst der DS 2x in der DB steht!!!!!:
out<<EOF; EOF } } else { out<<EOF;
<input type="hidden" name="cmd=" value="add"> ... </form> EOF } </perl>
get "Id==*", "kunden"; while(get_next("kunden")) { out "Kunde: $Name<br>"; get "Name==$Auto", "autos"; out "Auto: $Name<br>"; out "Beschreibung: $Beschreibung<p>"; }
get "Name==$_put{Name} sort=-", "db";
Liste der Einträge von 3450 bis 3600: | 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 |