| 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 |
<html><head> <title>KL-City.de - Homepageverzeichnis</title> </head><body bgcolor=ffffff> <br><ul>
put if %_put;
{
get "Id==$Id";
if($xEmail)
{ if($Passwort eq $xPasswort)
{
mod "Id==$Id", ["Email",$xEmail,"URL",$xURL];
} else
{
out "<b>Passwort falsch!</b>";
}
} else
{
out <<EOF;
<h3>src="http://www.onlinechance.de/bilder/buttons/privat/%E4nderneintr%E4ge.gif" width="226" height="36"> </h3>
<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><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></td>
<td>
<input type="text" name="xEmail=" value="$Email">
</td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">URL:</font></td>
<td>
<input type="text" name="xURL=" value="$URL">
</td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Passwort:</font></td>
<td>
<input type="password" name="xPasswort=">
</td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td>
<input type=submit value="Abschicken">
</td>
</tr>
</form>
</table>
EOF } out "
<p><a href=\"$_link\">Neuer Eintrag</a>"; } else { out "
<h3>Neuer Eintrag</h3>
"; out "Mit dem Passwort können Sie den Eintrag später bearbeiten."; init; get;
list "add"; } get; out "
<h3>Liste aller Einträge</h3>
"; out "
<table>
<tr>
<td>Name</td>
<td>Telefon</td>
</tr>
"; while(get_next) { out "
<tr>
<td><a href=\"$_link&Id=$_id\">$Name</a></td>
<td>$Telefon</td>
</tr>
"; } out "
</table>
"; </perl> </body></html> powered by baseportal.de
| Alle Einträge zum Thema: | Zur Liste |
<html><head> <title>KL-City.de - Homepageverzeichnis</title> </head><body bgcolor=ffffff> <br><ul>
put if %_put;
{
get "Id==$Id";
if($xEmail)
{ if($Passwort eq $xPasswort)
{
mod "Id==$Id", ["Email",$xEmail,"URL",$xURL];
} else
{
out "<b>Passwort falsch!</b>";
}
} else
{
out <<EOF;
<h3>src="http://www.onlinechance.de/bilder/buttons/privat/%E4nderneintr%E4ge.gif" width="226" height="36"> </h3>
<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><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></td>
<td>
<input type="text" name="xEmail=" value="$Email">
</td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">URL:</font></td>
<td>
<input type="text" name="xURL=" value="$URL">
</td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Passwort:</font></td>
<td>
<input type="password" name="xPasswort=">
</td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td>
<input type=submit value="Abschicken">
</td>
</tr>
</form>
</table>
EOF } out "
<p><a href=\"$_link\">Neuer Eintrag</a>"; } else { out "
<h3>Neuer Eintrag</h3>
"; out "Mit dem Passwort können Sie den Eintrag später bearbeiten."; init; get;
list "add"; } get; out "
<h3>Liste aller Einträge</h3>
"; out "
<table>
<tr>
<td>Name</td>
<td>Telefon</td>
</tr>
"; while(get_next) { out "
<tr>
<td><a href=\"$_link&Id=$_id\">$Name</a></td>
<td>$Telefon</td>
</tr>
"; } out "
</table>
"; </perl> </body></html> powered by baseportal.de
</table> EOF } out " <p><a href
| Liste der Einträge von 62625 bis 62700: | 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 |