<p>Sie möchten suchen?</p>
<form method="post" action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx&status=gesucht" name="suche" id="suche" target="_self" dir="ltr" lang="de" enctype="multipart/form-data">
<table width="100%">
<tr>
<input type="text" name="input=" id="input=" size="20" >
<td><input type="submit" name="submit" value="Suchen"></td>
</tr>
</table>
</form>

# definition--------------------------------
$tabelle=0;
if ($status ne ""){
 $von=0;
 $bis=0;
}else{
 $input='@@%%';
 $von=1;
 $bis=1;
 $f=0;
}
$counter=0;							
$dbname="DB_NAME";	
# Vorbereitung der Daten--------
$input=~s/-/\ /g;		
$input=lc($input);		
@suchworte=split(" ",$input);	
</perl>		
    
<!-- Ende  //-->

<loop db=$dbname range=$von,$bis code=perl>		
$db_feld=lc($TEXT).lc($NAME);		        
$s,$i=0;					
foreach $s (@suchworte){			
 if ($db_feld=~/$s/){			
  $i++;				
 }					
}						

 $f=1, $counter++;
 if ($tabelle==0){	
  out '<table width="100%">';
  out '<tr><td bgcolor="00cc66" colspan=2><br></td></tr>';
  $tabelle++;
 }	
 out "<tr><td bgcolor=".($farbe % 2?"ffffcc":"ffffff")."> <font face=Arial><small>$TEXT</small></td><td bgcolor=".($farbe % 2?"ffffcc":"ffffff")."><font face=Arial><small>$NAME</small></td>";
$farbe++;
}												
</loop>									
<!-- Ende Abfrage //-->

if ($tabelle==1){
 out "<p>Sie haben unter <b>$_amount_all</b> Datensätzen nach <b>$input</b> gesucht. Es wurden <b>$counter</b> TEXTE gefunden.</p>";
 out "<tr><td colspan=2>&nbsp;</td></tr>";
 out "</table>";
 $tabelle--;
}
if ($status eq "gesucht" & $f==0){
out "<p><b><p>Sie haben unter <b>$_amount_all</b> Datensätzen nach <b>$input</b> gesucht. Leider erbrachte Ihre Suche kein Ergebnis.</b></p>";
}
</perl>	
</small>