baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl> if($pwrein ne "") { get "Passwort==!$pwrein","nutzer";
{ get "Id==*","news"; while (get_next("news"))
$termin=datum($Termin, "Tag.Monat.Jahr"); out <<EOF;
Alle Einträge zum Thema: | Zur Liste |
<perl> get "Id==*","nutzer";
out <<EOF; <h3>Eintrag ändern</h3> <table> <form action='http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx' method='post' enctype='multipart/form-data'> <input type=hidden name='htx=' value='$htx'> <input type=hidden name='cmd=' value='add'> <tr><td colspan='2'>Ihre Nutzerdaten:</td></tr> <tr><td align=right>Name:</td><td> <input type='text' name='Name:=' size=25 value='$Name'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>Vorname:</td><td> <input type='text' name='Vorname:=' size=25 value='$Vorname'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>Strasse:</td><td> <input type='text' name='Strasse:=' size=30 value='$Strasse'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>PLZ:</td><td> <input type='text' name='PLZ:=' size=10 value='$PLZ'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>Ort:</td><td> <input type='text' name='Ort:=' size=30 value='$Ort'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>Telefon:</td><td> <input type='text' name='Telefon:=' size=20 value='$Telefon'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>EMail:</td><td> <input type='text' name='EMail:=' size=30 value='$EMail'></td></tr> <tr><td align=right>Passwort:</td><td> <input type='passwort' name='Passwort:=' size=25 value='$Passwort'><font color='#CC3333'>*</font></td></tr> <tr><td align=right> </td> <td><font color='#CC3333'><br>*Eingabe wird benötigt. Bitte korrekt ausfüllen! </font></td> </tr> <tr><td></td><td nowrap> <input type=submit value='Ändern'> <input type=reset value='Zurücksetzen'></td></tr> </form> </table>
}
mod "Id==$Id", ["Name",$Name,"Vorname",$Vorname,"Strasse",$Strasse,"PLZ",$PLZ,"Ort",$Ort,"Telefon",$Telefon,"EMail",$EMail,"Passwort",$Passwort];
<input type=hidden name="Id:=" value="$Id">
get "Id==*","nutzer";
<perl> if ($cmd eq "") { get "Id==*","nutzer"; ## hier ist noch ein Fehler, weil er alle DS holt out <<EOF; <h3>Eintrag ändern</h3> <table> <form action='http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx' method='post' enctype='multipart/form-data'> <input type=hidden name='htx=' value='$htx'> <input type=hidden name='cmd=' value='add'> <tr><td colspan='2'>Ihre Nutzerdaten:</td></tr> <tr><td align=right>Name:</td><td> <input type='text' name='Name:=' size=25 value='$Name'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>Vorname:</td><td> <input type='text' name='Vorname:=' size=25 value='$Vorname'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>Strasse:</td><td> <input type='text' name='Strasse:=' size=30 value='$Strasse'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>PLZ:</td><td> <input type='text' name='PLZ:=' size=10 value='$PLZ'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>Ort:</td><td> <input type='text' name='Ort:=' size=30 value='$Ort'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>Telefon:</td><td> <input type='text' name='Telefon:=' size=20 value='$Telefon'><font color='#CC3333'>*</font></td></tr> <tr><td align=right>EMail:</td><td> <input type='text' name='EMail:=' size=30 value='$EMail'></td></tr> <tr><td align=right>Passwort:</td><td> <input type='passwort' name='Passwort:=' size=25 value='$Passwort'><font color='#CC3333'>*</font></td></tr> <tr><td align=right> </td> <td><font color='#CC3333'><br>*Eingabe wird benötigt. Bitte korrekt ausfüllen! </font></td> </tr> <tr><td></td><td nowrap> <input type=submit value='Ändern'> <input type=reset value='Zurücksetzen'></td></tr> </form> </table> EOF }elsif ($cmd eq "add") { mod "Id==$Id", undef,"nutzer"; out "Eintrag hinzugefügt..."; }
if ($cmd eq "") { get "Id==*","nutzer"; out <<EOF;
if ($cmd eq "") { get "Id==$Id","nutzer"; out <<EOF;
<perl> if($pwrein ne "") { get "Passwort==!$pwrein","nutzer";
{ get "Id==*","news"; while (get_next("news"))
$termin=datum($Termin, "Tag.Monat.Jahr"); out <<EOF;
<perl> if($pwrein ne "") { get "Passwort==!$pwrein","nutzer"; if($Name ne "" && $Name eq $namerein) { $nutzerId=$_id; get "Id==*","news"; while (get_next("news")) { $termin=datum($Termin, "Tag.Monat.Jahr"); out <<EOF; <a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=MYACCOUNT/nutzerdaten&db=nutzer&Id=$nutzerId> Nutzerdaten (Adressdaten, Passwort)</a>
<perl> if ($cmd eq "") { get "Id==$Id","nutzer";
$_put{Feldname} .....?????
Liste der Einträge von 47250 bis 47400: | 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 |