baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
Alle Einträge zum Thema: | Zur Liste |
<form action="http://domain.de/baseportal?htx=/domain.de/test/login2" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="/domain.de/test/login2"> <table> <tr><td>Hotel:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td></td><td><input type=submit value="Anmelden"></td></tr> </table></form>
<perl> if($namerein ne "") { get "Benutzer==!$namerein", "db_nutzer";
if($Passwort ne "" && $Passwort eq $pwrein) { do_all "Benutzer==!$namerein action=all db=db_daten databack=FFFFFF headback=D9D9D9 headbold=1 headalign=left border=D9D9D9 spacing=1 padding=2 gridcolor=0C2545 datasize=-1 dataface=arial,helvetica sort^=Hotel range^=0,5 pagebrowse=top buttonbrowse=no listtype=list searchfields=Programm,Zeitraum formfields=-EMail allfields=-EMail listfields=Titel,Kategorie,Zeitraum input=link" , "namerein", "pwrein"; } else { out "<b>Anmeldung fehlgeschlagen!</b>"; $namerein=""; }
</perl>
<perl> if($namerein ne "") { get "Benutzer==!$namerein", "db_nutzer";
if($Passwort ne "" && $Passwort eq $pwrein){ ## Beginn Ergänzung f. Land des Nutzers if ($cmd eq "add" || $cmd eq "mod") { #wenn neuer DS oder DS ändern
$t_land = $Land; #Land Zwischenspeichern out "Ihr Land: $t_Land<br>"; if (%_put){ # Land mit abspeichern (Relationsfeld zw. Nutzer- und Daten-DB) $_put{Land_d}=$t_land; } } # Ende Zweig if cmd ## Ende für Land aus DB Nutzer do_all "Benutzer==!$namerein action=all db=db_daten databack=FFFFFF headback=D9D9D9 headbold=1 headalign=left border=D9D9D9 spacing=1 padding=2 gridcolor=0C2545 datasize=-1 dataface=arial,helvetica sort^=Hotel range^=0,5 pagebrowse=top buttonbrowse=no listtype=list searchfields=Programm,Zeitraum formfields=-EMail allfields=-EMail listfields=Titel,Kategorie,Zeitraum input=link" , "namerein", "pwrein"; } else { out "<b>Anmeldung fehlgeschlagen!</b>"; $namerein=""; }
</perl>
Liste der Einträge von 37200 bis 37350: | 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 |