#<!Suchformular ------------------------------------->
out "<font size=2 face=arial,helvetica>";
out "<form action='http://deine_domian.sa/cgi-bin/baseportal.pl?htx=$htx' method='post' enctype='multipart/form-data'>";
out "<TABLE WIDTH='800' CELLPADDING='2' CELLSPACING='2' BORDER='0' ALIGN='CENTER'>";
out "<input type='hidden' name='show=' value=''>";
out "<input type='hidden' name='uid=' value='$uid'>"; # bei passwortschutz
out "<input type='hidden' name='sid=' value='$_session'>"; # bei passwortschutz
out "<tr><td colspan='5' align='center'>Volltextsuche für mehrere Felder: Art | Titel | Beschreibung</td></tr>";
out "<tr><td align='center'><font size='2' face='arial,helvetica'>";
out "<input type='text' name='Such=' size='10' value=''> </font>";
out "<input type='submit' value='Suchen'>";
out "</td></tr></form>";
#<!Ende Suchformular----------------------------------->

$db="deine datenbank";
$link_feld="Titel bzw. feldname";

$such_feld1="Art"; # feldname 1 der db
$such_feld2="Titel"; # feldname 2 der db
$such_feld3="Beschreibung"; # feldname 3 der db
##usw.

my @Daten;
if ($Such ne "") #falls eine Suchanfrage gestartet wurde
{
out "<tr><td colspan='5' align='left'>Suchbegriff =<b>[$Such]</b><br></td></tr>";
my $i=0;

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

while(get_next($db))
{
if(
(index($$such_feld1,$Such)>=0 or ($$such_feld1 =~  /$mSuch/gim))
or (index($$such_feld2,$Such)>=0 or ($$such_feld2 =~ /$mSuch/gim))
or (index($$such_feld3,$Such)>=0 or ($$such_feld3 =~ /$mSuch/gim))
#usw

{
$i++;
$vFelder="@such_feld";
$Daten[$i]="$i.<a href='http://deine_domain.de/cgi-bin/baseportal.pl?htx=$htx&Such=$Such&mSuch=$mSuch
&ID=$_id&uid=$uid&sid=$_session'>$$link_feld</a><br>";
}
}

#
#
#
#
if($ID ne "")
{
out "<tr><td colspan='5' align='center'><hr></td></tr>";
get "Id==!$ID","$db";
# AUSGABE DER VORSCHAU
######################################
out "<tr><td colspan='5' align='left' BGCOLOR='#797951'>$pfeil_weiss Titel: <b>$$link_feld</b> | <A HREF=\"http://deine_domain.de/cgi-bin/baseportal.pl?htx=/deine_domain.de/dein_pfad/info_suchen&Id==$_id&uid=$uid&sid=$_session\" target=\"Popup\" onclick=\"javascript:popup('Popup','width=850,height=400,scrollbars=yes')\">ID: <b>$_id</b></a>";
out "<br>$pfeil_weiss Art: <b>$$such_feld1</b></td></tr>";
out "<tr><td colspan='5' align='left' BGCOLOR='#999966'><br>$$such_feld2";
### AUSGABE BESCHREIBUNG == $$SUCH_FELD3     #############################
out "<br> Beschreibung:<br>$$such_feld3" if $$such_feld3 ne "";
# treffer in rot einfärben

$$such_feld2=~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
$$such_feld3=~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
}
out "<tr><td colspan='5' align='left'></td></tr>";
out "<tr><td colspan='5' align='left'>Treffer: $i - ";
$treffer = $i > 0 ? "Wählen Sie nachfolgend aus:" : "Leider KEIN/E Treffer";
out "<b>$treffer</b><br></td></tr>";
out "<tr><td colspan='5' align='left'></td></tr>";
out "<tr><td colspan='5' align='left'>@Daten</td></tr>";
out "</table>";
}