<center>
<table border="0" width="630" hight="500" cellspacing="4" cellpadding="3" bgcolor="#FFFFFF">
<tr>
<td width="100%" align="center">
<font face=arial,helvetica>
<font size=1></font>
<h3>News von blablabla...</h3>
</td>
</tr>
</table>
<hr color="#000080" width="630">
<table border="0" width="630" cellspacing="4" cellpadding="3" bgcolor="#FFFFFF">
<tr>
<td align="center" width="100%">
<font color="#000000" size="2" face="Arial">Als Admin kann man sich hier einloggen:
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/DEINACCOUNT/newsadmin" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/DEINACCOUNT/newsadmin">
<table>
<tr><td>Name:</td><td><input type="text" name="namerein="></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form></font>
</td>
</tr>
<html><head><title>NEWS der blablabla</title></head>
<body bgcolor="#FFFFFF">
<font face=arial,helvetica>
<font size=1></font>
<h3>NEWS der blablabla...</h3>
<p>
<font face=arial size=3>Hallo,</font><br><br><font face=arial size=2> hier können neue NEWS eingegeben und vorhandene NEWS geändert oder gelöscht werden.<br><br>Aber Achtung: Löschungen können nicht mehr rückgängig gemacht werden.<br><br></font>
<perl>
if($namerein ne "")
{
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
do_all "db=news listfields=Datum,Titel,Autor", "namerein", "pwrein";
} else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
