<form action="baseportal.pl?htx=/gpark/gpurlsuer" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/gpark/gpurlsuer">
<table width=50% align=center cellspacing=1 cellpadding=2 border=0>
<tr><td> </td>
<tr><td align=right><font face=verdana size=2 color=#000080>Rubrik:</td><td>
<select name="gpsuchkat1=">
<tr><td align=right><font face=verdana size=2 color=#000080>Stichwort:</td><td><input type="text" name="gpukat1=" size=40 value=""></td></tr>
<tr><td align=right><font face=verdana size=2 color=#000080>URL:</td><td><input type="text" name="gpurl=" size=40 value=""></td></tr>
<tr><td align=right><font face=verdana size=2 color=#000080>Beschreibung:</td><td><input type="text" name="gpbes1=" size=40 value=""></td></tr>
<tr><td> </td>
<td nowrap><br><input type=submit value="Eingabe senden"> <input type=reset value="Eingabe löschen"></td></tr>
</form></table>
<table>
<loop gpkat1==$gpsuchkat1 | gpkat2==$gpsuchkat1 & gpukat1~=$gpukat1 & gpurl~=$gpurl & gpbes1~=$gpbes1 sort^=gpkat1,gpkat2,gpukat1,gpbes1 code=perl db=gpurl>
$auskat = $gpkat1.", ".$gpkat2." ".$gpkat3;
$ausukat = $gpukat1." ".$gpukat2." ".$gpukat3;
out <<EOF;
<TR bgcolor=#cccccc>
<td><font color=#000080 face="verdana" size=1> $auskat</td>
<td><font color=#000080 face="verdana" size=1> $ausukat</td>
<td><a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/gpurldet&cmd=all&Id==$_id"><font color=#000080 face="verdana" size=1> $gpbes1</a></td>
</tr>