<table align=center cellspacing=1 cellpadding=2 border=1>
              <tr bgcolor=#cccccc><td>

              <form action="baseportal.pl?htx=/gpark/gpurlsuer"

                    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>&nbsp;</td>
                 <tr><td align=right><font face=verdana size=2 color=#000080>Rubrik:</td><td>

                 <select name="gpsuchkat=">
                 <loop db=gpkat>
                 <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="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 colspan=2 align=center nowrap><br><input type=submit value="Abschicken">&nbsp;<input type=reset value="Zurücksetzen"></td></tr>
                 </table>
              </form>

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

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

          <tr><td colspan=3 align=center><img src=http://www.guidepark.de/bilder/$gpkbild border="1"></td></tr>
          <tr><td colspan=3 align=center><font face="verdana" color=#FFFFFF size=1>&nbsp;Suche nach:&nbsp;$gpsuchkat</font></td></tr>

          <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>
      
          <perl>
          $i=0;
          </perl>

          <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>
          $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>