<perl>

out "<font size=2 face=arial,helvetica>";
out "<form action='http://deine_domain.de/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'>";
out "<input type='hidden' name='sid=' value='$_session'>";
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"; #der inhalt dieses datenfeldes wird als vorschau des suchergebnisses verwendet

$such_feld1="Art";
$such_feld2="Titel";
$such_feld3="Beschreibung";

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

{
$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";

######################################
# ich gebe hier dann den eigentlichen datensatz in einem neuen extra fenster bekannt, kannst du machen wie du willst

<A HREF=\"http://deine-domain.de/cgi-bin/baseportal.pl?htx=/deine-domain.de/pfad/zu-deinem-dokument&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>";

### AUSGABE BESCHREIBUNG == $$SUCH_FELD3     #############################
out "<br>$pfeil_weiss Beschreibung:<br>$$such_feld3" if $$such_feld3 ne "";

$$such_feld1=~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
$$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 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>";
}
</perl>