<html><head><title>Frachtenbörse</title></head>
<body bgcolor=000060 text=ffffff link=ff0000>
<font face="verdana">
<center><font size=2 color=ff0000>Mit Neu geben Sie Ihre Ladungen ein.
Mit suchen können Sie gezielt Datensätze suchen</font></center>
<h2 align=center>Frachtenbörse</h2>
<table cellpadding=5><tr><td valign=top>
<perl>
{
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
if ($cmd eq "do_all" $cmd eq "all"
do_all "datacolor=ffffff databack=000080 headback=000000 headhold=1 headcolor=ff0000 gridcolor=ffffff listtype=list sort^=- range^=0,10 pagebrowse=top buttonbrowse=top listfields=-id,Abholzeit,Anlieferzeit,Bemerkungen,Frachtpreis,Aktion allfields=-id,Aktion", "namerein", "pwrein";
out<<EOF;
<table id=nutzerdaten>
<tr><td colspan=2>Eingabe Frachtdaten von $firma</td></tr>
<tr><td colspan=2>$strasse</td></tr>
<tr><td>$plz</td><td>$ort></td></tr>
<tr><td colspan=2>$telefon</td></tr>
</table>
EOF
}
} else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
<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="></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>
EOF
