<do action=input range^=0,20 pagebrowse=no buttonbrowse=bottom >
<perl>

if ($status ne ""){
        $von=0;
        $bis=0;
}else{
        $input='@@%%';
        $von=1;
        $bis=1;
        $f=0;
}

if ($input ne '@@%%'){out "<p>Sie haben nach <b>$input</b> gesucht:</p>";}                
$input=~s/-/\ /g;                                                                                
$input=lc($input);                                                                                
@suchworte=split(" ",$input);                                                        
</perl>

$db_feld=lc($Beschreibung).lc($keyword).lc($Name);                                                        
$s,$i=0;                                                                                                      
foreach $s (@suchworte){                                                                    
        if ($db_feld=~/$s/){                                                
                $i++;                                                                                        
        }                                                                                                
}                                                                                                                

        $f=1;
        if ($tabelle==0){
                out '<table width="640">';
                out '<tr><td bgcolor="#00e0FF" colspan=2><b>Suchergebnisse:</b></td></tr>';
                $tabelle++;
        }
        out "<tr><td><a href='$URL'>$Name</a></td><tr><td bgcolor='ffffff'>$Beschreibung<p></td></tr>";
}                                                                                                                
</loop>
<perl>
if ($tabelle==1){
        out "<tr><td colspan=2> </td></tr>";
        out "</table>";
        $tabelle--;
}
if ($status eq "gesucht" & $f==0){
out "<p><br><b>Die Suche erbrachte leider kein Ergebnis</b></p>";
}