<form action="baseportal.pl?htx=/gpark/gpurlsuer" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/gpark/gpurlsuer">
<select name="gpsuchkat=">
<loop db=gpkat>
<option value="$gpkkat2">$gpkkat</option>              </loop>
</select>
<input type="text" name="gpsuchukat=" size=40 value="">
<input type="text" name="gpurl=" size=40 value="">
<input type="text" name="gpbes1=" size=40 value="">
<input type=submit value="Abschicken"> <input type=reset value="Zurücksetzen">
</form>
             

<loop db=gpurl gpkat1==$gpsuchkat | gpkat2==$gpsuchkat | gpkat3==$gpsuchkat & gpukat1~=$gpsuchukat | gpukat2~=$gpsuchukat | gpukat3~=$gpsuchukat & gpurl~=$gpurl & gpbes1~=$gpbes1 sort^=gpkat1,gpkat2,gpukat1,gpukat2,gpbes1 code=perl>

$ausukat = $gpukat1." ".$gpukat2." ".$gpukat3;

$auskat
$ausukat</td>
<a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/gpurldet&cmd=all&Id==$_id">$gpbes1</a>
EOF
</loop>

<perl>
get "gpkkat2==$gpsuchkat", "gpkat";
</perl>