<form action="http://baseportal.de/cgi-bin/baseportal.pl?

<input type=hidden name="htx=" value="/aberschon0/Modelle/Datenbank">
<table>
<tr><td>Nutzer:</td><td><input type="text" 
login="$Loginrein="></td></tr>
<tr><td>Passwort:</td><td><input type="Password" 
name="$Passwortrein="></td></tr>
<tr><td></td><td><input type=submit 
value="Anmeldung"></td></tr>
</table></form>

  <perl>
  if($Loginrein ne "")
  {

 if($Passwortrein ne "" && $Passwort eq $Passwortrein)
 {
  do_all "Benutzer==!$Loginrein action_all db=Datenbank action=all range^=0,20 listfields=Firmenbezeichnung,Baureihenbezeichnung,Artikelnummer,Automarke,Typenbezeichnung,Fahrername,Baujahr,Maßstab,Modellart,Modellstatus,Stückzahl,Bauzeit,Beschreibung,Fotolink,Werbelink allfields=Firmenbezeichnung,Baureihenbezeichnung,Artikelnummer,Automarke,Typenbezeichnung,Fahrername,Baujahr,Maßstab,Modellart,Modellstatus,Stückzahl,Bauzeit,Beschreibung,Fotolink,Werbelink formfields=Firmenbezeichnung,Baureihenbezeichnung,Artikelnummer,Automarke,Typenbezeichnung,Fahrername,Baujahr,Maßstab,Modellart,Modellstatus,Stückzahl,Bauzeit,Beschreibung,Fotolink,Werbelink showamount=all,sel selectbrowse=top buttonbrowse=top pagebrowse=top indexbrowse=top listtype=list language=de detail=link search=link input=link",
"Loginrein", "Passwortrein";
 }else
 {
  out "<b>Anmeldung fehlgeschlagen!</b>";
  $Passwortrein="";
 }
 </perl>