<perl>
#---------------- Ausgabe Datei-Links------------------------------------------#
out " [<a href='http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx'>Alle</a>] " if $view eq "on";
get "Id==* sort=Titel", "Auto"; 

while(get_next("Auto"))
{out " [<a href='http://baseportal.de/cgi-bin/baseportal.pl?view=on&htx=$htx&Id==$_id'>$Titel</a>] ";}

</perl>        

<!----------------------------------------------------------------------------->
<table border="0"  cellspacing="1" width="100%">
<tr>
<td>

#------------------------------------------
if ($Such eq "" or $view eq "on")
{
#- anzeigen, wenn KEINE Suche oder Einzelansicht-
# auch die Ausgabe mußt Du natürlich selber anpassen.
out <<Ausgabe;
<table width=90% align=center bgcolor=ffffff>
<tr><td bgcolor=#B5D0E3><b>$Titel</b></td></tr>
<tr><td>$Text</td></tr>
<tr><td bgcolor=#B5D0E3>$Author</td></tr>
</table><hr>

</loop>
<perl>

#--------------- 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==*" ,"Auto"; 
while(get_next("Auto")) .....

{if (  (index($Modell,$Such)>= 0 or ($Modell =~ /$mSuch/gim)) or (index($EZ,$Such)>= 0 or ($EZ =~ /$mSuch/gim)) or (index($Preis,$Such)>= 0 or ($Preis =~ /$mSuch/gim)) or (index($Km,$Such)>= 0  or ($Km =~ /$mSuch/gim))  ) 
#---------------
#Daraus ergibt sich dann logischer Weise, daß auch die rote Markierung der Treffer auf die jeweiligen Felder anzupassen ist, also:...
$Modell =~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
$EZ =~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
$Preis =~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
$Km =~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;

$Daten[$i]="<..usw ... wie Du es halt haben willst...