baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
Alle Einträge zum Thema: | Zur Liste |
<BODY LINK="#4B4A4A" VLINK="#4B4A4A" ALINK="#4B4A4A">
<TABLE CELLPADDING="0" CELLSPACING="1" BORDER="0" BGCOLOR="#949494"> <TR> <TD> <TABLE WIDTH="100%" CELLSPACING="1" BORDER="0" BGCOLOR="#ffffff"> <TR BGCOLOR="#ffffff"> <TD> <TABLE WIDTH="694"> <TR> <TD> <TABLE WIDTH="100%"> <TR> <TD WIDTH="50%" VALIGN="TOP">
<ul>
<p>Mit dem Passwort kann der Eintrag anschließend bearbeitet werden.<br></p> </font> <do action=input> <do action=list listtype=add db=termine > <br><br>
<table>
<loop db=termine sort=- range=0,5> <TR> <TD VALIGN="TOP" ALIGN="right" > $Wann Uhr </TD> <TD VALIGN="TOP" ALIGN="left"> <FONT SIZE="-1" COLOR="#394287"> <b>$Rubrik <a href="http://engelmann-service.de/baseportal/lohnelinks/Zeitung_nutzereintrag_termine&Id=$_id">$Was</a></b><br>$Wo</font></TD> </TR>
</table>
</TD> </TR> </TABLE> </TD> </TR> </TABLE></TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </BODY>
<html><head> <title>baseportal Datenbank</title> </head><body bgcolor=ffffff > <br><ul>
put if %_put;
{ get "Id==$Id";
if($xWas) { if($Passwort eq $xPasswort) { mod "Id==$Id", ["Wann",$xWann,"Was",$xWas,"Wo",$xWo,"Rubrik",$xRubrik]; out "<b>Eintrag geändert...</b>"; } else { out "<b>Passwort falsch!</b>"; } } else { out <<EOF; <h3>Eintrag ändern</h3> <table> <form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <input type=hidden name="Id=" value="$Id"> <tr><td>Was:</td><td><input type="text" name="xWas=" value="$Was"></td></tr> <tr><td><b>Paßwort:</td><td><input type="password" name="xPasswort="></b></td></tr> </table> <hr><br><br> <table> <tr><td>Wann:</td><td><input type="text" name="xWann=" value="$Wann"></td></tr> <tr><td>Was:</td><td><textarea name="xWas=" rows=2 cols=60>$Was</textarea></td></tr> <tr><td>Wo:</td><td><textarea name="xWo=" rows=3 cols=60>$Wo</textarea></td></tr> <tr><td><br>Rubrik:</td><td><input type="text" name="xRubrik=" value="$Rubrik"></td></tr> <tr><td></td><td><input type=submit value="Abschicken"> </td></tr> </form></table> EOF
} out "<p>";
{ out "<h3>Eintrag</h3>"; out "Mit dem Passwort können Sie den Eintrag später bearbeiten.";
init; get; list "add";
</perl>
get "Id==$Id","termine"; ## wenn sich die db im gleichen Verzeichnis befindet
<perl db=/engelmann-service.de/lohne_links/termine> oder <perl db=/termine>
Liste der Einträge von 46950 bis 47100: | 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 |