| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| 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 ersten 150 Einträge: | Einklappen | Zur Eingabe |
| Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |