<do action=input range^=0,20 pagebrowse=no buttonbrowse=bottom >
<perl>
$tabelle=0;
if ($status ne ""){
$von=0;
$bis=0;
}else{
$input='@@%%';
$von=1;
$bis=1;
$f=0;
}
$dbname="suche";
if ($input ne '@@%%'){out "<p>Sie haben nach <b>$input</b> gesucht:</p>";}
$input=~s/-/\ /g;
$input=lc($input);
@suchworte=split(" ",$input);
</perl>
<loop db=$dbname range=$von,$bis code=perl>
$db_feld=lc($Beschreibung).lc($keyword).lc($Name);
$s,$i=0;
foreach $s (@suchworte){
if ($db_feld=~/$s/){
$i++;
}
}
if ($i==@suchworte){
$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>";
}
</perl>
