<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">

  <table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr> 
      <td> <include src=kritikenauswahl></td>
    </tr>
    <tr> 
      <td> 
        <table width="100%" border="0" cellspacing="0" cellpadding="5">
          <tr> 
            <td><b>Volltextsuche</b> </td>
          </tr>
          <tr> 
            <td><font size="2" face="arial,helvetica"> 
              <input type="text" name="Such=" size="20" value="">
              </font></td>
          </tr>
          <tr> 
            <td> 
              <input type="submit" value="Suchen" name="submit">
              <hr>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <table width="100%" border="0" cellspacing="0" cellpadding="5">
    <tr>
      <td>
   <perl>

if ($Such ne "") #---------------------falls eine Suchanfrage gestartet wurde
#---------------- und das Eingabefeld [Such] nicht leer ist
{
out "<b>Suchbegriff = [$Such]</b><br>";
my $i=0;
#--------------- Eingabe von ae, ue oder oe abfangen, z.B. "Moeglich" -----
$mSuch = $Such;
$mSuch =~ s/ä/Ä/g;
$mSuch =~ s/ö/Ö/g;
$mSuch =~ s/ü/Ü/g;
$mSuch=lc($mSuch);
$mSuch =~ s/ae/ä/g;
$mSuch =~ s/oe/ö/g;
$mSuch =~ s/ue/ü/g;
get "Id==*"; 
while(get_next)
#----------- gesucht wird in dem Feld [Kritik] ----------------------------------
{if ((index($Kritik,$Such)>= 0  or ($Kritik =~ /$mSuch/gim) )) 
{$i++;

#----------- als Link wird das Feld [Interpret, Album] ausgegeben ----------------------

}
out "<b>Treffer: $i </b><br>";
$treffer = $i > 0 ? "<br><b>Folgende Reviews wurden gefunden:</b>" : "Leider KEIN Treffer";
out "<b>$treffer</b><br>";
out "@Daten"; 
}

</perl>
   </td>
    </tr>
  </table>
</form>