<table align=center cellspacing=1 cellpadding=2 border=1>
<tr bgcolor=#cccccc><td>
<form action="baseportal.pl?htx=/gpark/gpurlsuer1&cmd=search&range=0,10"
method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/gpark/gpurlsuer1">
<input type=hidden name="cmd=" value="search">

<tr><td>&nbsp;</td>
<tr><td align=right><font face=verdana size=2 color=#000080>Rubrik:</td><td>
<! -- # 2 variablen definiert = gpsuchkat + gpsuchukat # ---> 
<select name="gpsuchkat=">
<loop db=gpkat sort^=gphkat,gpkhkat2,gpkkat>
<option value="$gpkkat2">$gpkkat</option>
</loop>
</select>
</td></tr>
<tr><td align=right><font face=verdana size=2
color=#000080>Stichwort:</td><td><input type="text" name="gpsuchukat=" size=40
value=""></td></tr>
<tr><td align=right><font face=verdana size=2 color=#000080>URL:</td><td><input
type="text" name="gpurlsend=" size=40 value=""></td></tr>
<tr><td align=right><font face=verdana size=2
color=#000080>Beschreibung:</td><td><input type="text" name="gpbessend=" size=40 value=""></td></tr>
<tr><td colspan=2 align=center nowrap><br><input type=submit
value="Abschicken">&nbsp;<input type=reset value="Zurücksetzen"></td></tr>
</table>
</form>
 

<table align=center cellspacing=1 cellpadding=2 width=600 border=0>
<tr bgcolor=#000080>
<td><font face="verdana" color=#FFFFFF size=1>&nbsp;Rubrik</font></td>
<td><font face="verdana" color=#FFFFFF size=1>&nbsp;Stichwort</font></td>
<td><font face="verdana" color=#FFFFFF size=1>&nbsp;Beschreibung</font></td></tr>

$append = "&gpsuchkat=".convert_url($gpsuchkat) if $gpsuchkat ne "";   #wegen eventueller & wirds urlfreundlich
$append = $append."&gpsuchukat=".convert_url($gpsuchukat) if $gpsuchukat ne "";
$append = $append."&gpurlsend=".convert_url($gpurlsend) if $gpurlsend ne "";
$append = $append."&gpbessend=".convert_url($gpbessend) if $gpbessend ne "";
</perl>
<loop range^=0,10 db=gpurl gpkat1==$gpsuchkat | gpkat2==$gpsuchkat | gpkat3==$gpsuchkat & gpukat1~=$gpsuchukat | gpukat2~=$gpsuchukat | gpukat3~=$gpsuchukat & gpurl~=$gpurlsend & gpbes1~=$gpbessend sort^=gpkat1,gpkat2,gpukat1,gpukat2,gpbes1 code=perl>
out "";
</loop>

my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.guidepark.de/graphics/prev.gif\" border=0 alt=\"zurück\"></a>" if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.guidepark.de/graphics/next.gif\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
</perl> 

$auskat = $gpkat1.", ".$gpkat2." ".$gpkat3;
$ausukat = $gpukat1." ".$gpukat2." ".$gpukat3;
out "<tr bgcolor=".($_loop %2?"a0a0a0":"e0e0e0") ."><td><font color=#000080 face=verdana size=1>&nbsp;$auskat</td><td><font color=#000080 face=verdana
size=1>&nbsp;$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>&nbsp;$gpbes1</a></td></tr>";
</loop>
</table><center>
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.guidepark.de/graphics/prev.gif\" border=0 alt=\"zurück\"></a>" if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.guidepark.de/graphics/next.gif\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
</perl> 
</center>
 

             </td></tr>
</table>