<table width="620" border="0" cellspacing="0" cellpadding="0"><tr>
<td valign="top">
<form action="baseportal.pl?htx=/fv_schank/mitglieder&db=mitglieder&cmd=search&range=0,200" method="post" enctype="multipart/form-data">
<input type=hidden name="db=" value="mitglieder">
<input type=hidden name="htx=" value="/fv_schank/mitglieder">
<input type=hidden name="cmd=" value="search">
<input type=hidden name="range=" value="0,200">
<select name="Leistungen==" size="1" style="font-family: verdana; font-size: 11px;"> 
<option>Bitte wählen Sie
<option>Schankanlagenreinigung
<option>Schankanlagenbau
<option>Kälte- und Klimatechnik
<option>Kompl. Gaststätteneinrichtung
<option>Kohlensäure
<option>Sachkundiger
<option>Getränkefachwirt
<option>Sachkundiger für Wiederkehrende Prüfung
<option>Armaturenhersteller
<option>Reinigungsmittel
<option>Zertifiziert nach DIN EN ISO 9002
<option>Sonstiges
</select>

</form>
</td>
<td>
<form action="baseportal.pl?htx=/fv_schank/mitglieder" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="/fv_schank/mitglieder">
Text-Suche: <input type="text" name="_fullsearch~~" value="$_fullsearch">
<INPUT TYPE="image" SRC="http://vbs-internetservice.de/pictures_fv/suchen.gif" value="submit">
</form>

return if $_fullsearch eq "";

while(get_next)
{
$out= <<EOF;
<b>$Titel</b><br>$Beschreibung - $Kommentar<p>
EOF
$out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
out $out;
}

my $txt;

{
    $txt="Suche nach weiteren Treffern";
    $newrange=$_fullsearch_match_pos;
} else
{
    out "<b>Kein Treffer.</b><p>" if $_fullsearch_amount<1;
    $txt="Suche in weiteren Datensätzen";
}

{
    out "Es wurde noch nicht in allen Datensätzen gesucht: ";
    out "<a href=\"baseportal.pl?htx=/fv_schank/mitglieder&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
} else
{
    out "Die Datenbank wurde komplett durchsucht.";
}
</perl>
</td>
</tr></table>
<perl>
if (%_sel)
{
$_sel{Leistungen}=~s/ /\\ /g; #ersetzung der leerzeichen mit \
}
</perl>
 
<loop sort=Firmenname code=perl>
out "<br><br>
<a href='http://vbs-internetservice.de/cgi-local/baseportal.pl?htx=/fv_schank/detail&db=mitglieder&cmd=list&Id==$_id'>
<b>$Firmenname</b></a>  $Firmenbezeichnung<br>
$Strasse, $PLZ $Ort<br>
Telefon: $Telefon   Fax: $Fax  <br> ";
if ($EMail ne "")
{
out "eMail: <a href='mailto:$EMail'>$EMail</a> ";
}
if ($Homepage ne "")
{
out "Internet: <a href='$Url'>$Homepage</a> ";
}
</loop>