baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<FORM NAME="form" ENCTYPE="multipart/form-data" ACTION="$link&cmd=$do" METHOD=POST><INPUT TYPE=HIDDEN NAME="htx="VALUE="$htx"><INPUT TYPE=HIDDEN NAME="cmd=" VALUE="$do"><INPUT TYPE=HIDDEN NAME="Id=" VALUE="$Id"><TABLE ID="Tabelle1" BORDER=1 CELLSPACING=3 CELLPADDING=1 WIDTH="100%" ><TR><TD WIDTH=120><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"><INPUT ID="Eingabefeld1" TYPE=TEXT NAME="Testfeld1=" VALUE="$Testfeld1" SIZE=15 MAXLENGTH=15> </FONT></TD><TD WIDTH=94><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"> </FONT></P></TD><TD WIDTH=94><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"> </FONT></P></TD></TR><TR><TD WIDTH=120><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"><INPUT ID="Eingabefeld2" TYPE=TEXT NAME="Testfeld2=" VALUE="$Testfeld2" SIZE=15 MAXLENGTH=15> </FONT></TD><TD><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"> </FONT></P></TD><TD><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"> </FONT></P></TD></TR><TR><TD WIDTH=120><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"><INPUT ID="Eingabefeld3" TYPE=TEXT NAME="Testfeld3=" VALUE="$Testfeld3" SIZE=15 MAXLENGTH=15> </FONT></TD><TD><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"> </FONT></P></TD><TD WIDTH=94><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"><INPUT TYPE=SUBMIT NAME="senden" VALUE="Ändern"></FONT></TD></TR></TABLE></FORM>
Alle Einträge zum Thema: | Zur Liste |
<perl> get "Verein_ID==!$namerein", "nutzer"; if($emsg eq "" && $Verein_PW ne "" && $Verein_PW eq $pwrein) { # --- Link und DB holen ---
$link="baseportal.pl?htx=$htx"; get "Id==$Id","testdb"; if ($cmd eq "del") # --- Eintrag löschen --- { del "Id==$Id","testdb"; $msg="Eintrag gelöscht"; }elsif ($cmd eq "mod") # --- Einträge holen --- { get "Id==$Id","testdb"; $do="do_mod"; &Formular; }elsif ($cmd eq "do_mod") # --- Einträge modifizieren { mod "Id==$_get{Id}",
$msg="Eintrag geändert"; } if ($msg eq "") { out "Einträge<br>"; }else { out "$msg<p>"; } # --- Eintäge Listen --- get "Verein_ID==$namerein sort=-","testdb"; while (get_next("testdb")) { out "$Testfeld1, $Testfeld2, $Testfeld3 <a href='$link&cmd=del&Id=$_id'><H3>löschen</a> <a
}
{ out <<EOF;
EOF }
{ out "Zugang verboten!"; } </perl>
<FORM NAME="form" ENCTYPE="multipart/form-data" ACTION="$link&cmd=$do" METHOD=POST><INPUT TYPE=HIDDEN NAME="htx="VALUE="$htx"><INPUT TYPE=HIDDEN NAME="cmd=" VALUE="$do"><INPUT TYPE=HIDDEN NAME="Id=" VALUE="$Id"><TABLE ID="Tabelle1" BORDER=1 CELLSPACING=3 CELLPADDING=1 WIDTH="100%" ><TR><TD WIDTH=120><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"><INPUT ID="Eingabefeld1" TYPE=TEXT NAME="Testfeld1=" VALUE="$Testfeld1" SIZE=15 MAXLENGTH=15> </FONT></TD><TD WIDTH=94><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"> </FONT></P></TD><TD WIDTH=94><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"> </FONT></P></TD></TR><TR><TD WIDTH=120><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"><INPUT ID="Eingabefeld2" TYPE=TEXT NAME="Testfeld2=" VALUE="$Testfeld2" SIZE=15 MAXLENGTH=15> </FONT></TD><TD><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"> </FONT></P></TD><TD><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"> </FONT></P></TD></TR><TR><TD WIDTH=120><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"><INPUT ID="Eingabefeld3" TYPE=TEXT NAME="Testfeld3=" VALUE="$Testfeld3" SIZE=15 MAXLENGTH=15> </FONT></TD><TD><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"> </FONT></P></TD><TD WIDTH=94><P><FONT FACE="Arial,Helvetica,Geneva,Sans-serif,sans-serif"><INPUT TYPE=SUBMIT NAME="senden" VALUE="Ändern"></FONT></TD></TR></TABLE></FORM>
EOF #------------ Von wählen out "<select name=\"_Terminvon_Tag=\"> "; foreach $option ("1","2","3","4","5","6","7","8","9","10","11","12",
{ if ($_Terminvon_Tag eq $option) { out " <option selected>$option\n "; } else { out " <option>$option\n "; } } out "</select>";
out "<select name=\"_Terminvon_Tag=\"> "; $day=datum($Terminvon,"Tag"); foreach $option (1..31) { if ($day eq $option) { out " <option selected>$option\n "; } else { out " <option>$option\n "; } } out "</select>";
Liste der Einträge von 40800 bis 40950: | 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 |