<loop code=perl db=Suchwort sort=Suchwort_e>
push (@suchwoerter,$Suchwort_e); #Alle Suchwörter in einer Liste speichern, um keinen 2ten loop zu machen
</loop>

$ende=$_amount/4;
$i=0;
foreach (@suchwoerter)
{
 
$i++;
        out "<td width='25%' valign='top'>" if $i==1;
 $Laenge = length($_);
 $suche=$_;

out "<li><strong><font face='Arial' size='4' color='#000000'><strong>$suche</font></strong></li>" if $Laenge==1;

get "_fullsearch~~$suche fullsearch_match=300 range=0,1", "links" if $Laenge>1;

get "_fullsearch~~$suche fullsearch_match=300 range=0,1", "links" if $Laenge>1;
out "<a href='http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/brueckenbau/linkliste&cmd=all&_fullsearch~~$suche&fullsearch_match=300
&db=links' 
target='_self'><font color='#FF00FF'> -$_amount_query-</a></strong></font></li>" if $Laenge>1 & $_amount_query>0;