<perl>

{
get "Name==!$namerein", "nutzer";

{
do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Vorname range^=0,20 pagebrowse=no buttonbrowse=top,bottom indexfield=Vorname listtype=list listfields=Vorname,Name,Geburtstag,Strasse,PLZ,Ort input=link", "namerein", "pwrein", "Schreiben";
}elsif($Passwort ne "" && $Passwort eq $pwrein && $Schreiben ne "ja")
{
do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Vorname range^=0,20 pagebrowse=top,bottom buttonbrowse=top,bottom selectbrowse=no indexfield=Vorname listtype^=list listfields=-Aktion,Id,Telefon,Fax,Handy,EMail,Homepage,Anrede,Kommentar allfields=-Aktion,Id input=link", "namerein", "pwrein";

<SCRIPT language=JavaScript>  // Zugriffsverweigerung
 function click()
   { 
   if (event.button==2)
     { 
     alert('GESPERRT!! Redet mit Marco Weber um Rechts-Klick Rechte zu bekommen... :-)');
     } 
   if (event.button==3)
     { 
     alert('GESPERRT!! Redet mit Marco Weber um Rechts-Klick Rechte zu bekommen... :-)');
     } 
   }
 document.onmousedown=click
</SCRIPT>

<a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/marcoweber/adresses/adressen&namerein=$namerein&pwrein=$pwrein&cmd=do_search target=main onmouseover="window.status='http://www.qxs.ch/adresses.htm'; return true" onmouseout="window.status=''"><font color=00CCFF><b>SUCHEN</b></font></a>&nbsp;</td>

<a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/marcoweber/adresses/adressen&namerein=$namerein&pwrein=$pwrein target=main onmouseover="window.status='http://www.qxs.ch/adresses.htm'; return true" onmouseout="window.status=''"><font color=00CCFF><b>ALLES</b></font></a>&nbsp;</td>

<a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/marcoweber/adresses/adressen&namerein=$namerein&pwrein=$pwrein&htx=/marcoweber/adresses/adressen&cmd=list&Id=$Numma&cmd=do_mod target=main onmouseover="window.status='http://www.qxs.ch/adresses.htm'; return true" onmouseout="window.status=''"><font color=00CCFF><b>PROFIL $namerein &Auml;ndern</b></font></a>&nbsp;</td></tr>
<tr><td></td><td colspan=5 bgcolor=404040><table border=0 cellpadding=0 cellspacing=0><tr><td height=1></td></tr></table></td></tr>
</table>
EOF

}
else
{
out "<font color=FFFFFF><b>Bitte g&uuml;ltige Anmeldedaten benutzen... :-)</b></font>";
$namerein="";
}

{
out <<EOF;
<h2>Anmeldung</h2>Bitte melden Sie sich an:
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Name:</td><td><input type="text" name="namerein=" style="border-color:#303030; background-color:#202020; color:#FFFFFF; font-family:arial, helvetica; font-size:12px; font-weight:bold;"></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein=" style="border-color:#303030; background-color:#202020; color:#FFFFFF; font-family:arial, helvetica; font-size:12px; font-weight:bold;"></td></tr>
<tr><td></td><td><input type=submit value="Anmelden" style="border-color:#303030; background-color:#202020; color:#FFFFFF; font-family:arial, helvetica; font-size:12px; font-weight:bold;"></td></tr>
</table></form>
EOF
}
</perl>