<do action=input>
<loop db=fusspflegen sort^=Ort range^=0,20 code=perl>
$tdbg ="";
if($Premium eq "Ja") {
$tdbg = "bgredlight";
}
$bild ="";
if($Hausbesuche eq "Ja") {
$bild = "<img src='http://www.suche-fusspflege.de/Images/hausbesuch.gif' alt=Hausbesuche width='25'>";
}
$bild1 ="";
if($Onlineshop eq "Ja") {
$bild1 = "<img src='http://www.suche-fusspflege.de/Images/shop.gif' alt=Onlineshop width='25'>";
}
$bild2 ="";
if($Diabetiker eq "Ja") {
$bild2 = "<img src='http://www.suche-fusspflege.de/Images/diabetiker.gif' alt=Diabetikerbehandlung width='25'>";
}
$bild3 ="";
if($Fussreflexzonenmassage eq "Ja") {
$bild3 = "<img src='http://www.suche-fusspflege.de/Images/fussreflexzonenmassage.gif' alt=Fussreflexzonenmassage width='25'>";
}
out <<EOF;
<table width="100%" border="0" cellspacing="0" class="$tdbg">
  <tr> 
    <td width="2%"><img src="http://www.suche-fusspflege.de/Images/data.gif"> $tbg</td>
    <td width="98%"><b>$Firma, $Ort</b></td>
  </tr>
  <tr> 
    <td width="2%"> </td>
    <td width="98%">$Beschreibung</td>
  </tr>
  <tr> 
    <td width="2%"> </td>
    <td width="98%">Tel.:$Telefon Kontakt:$Homepage, $EMail</td>
  </tr>
  <tr> 
    <td width="2%"> </td>
    <td width="98%">$bild $bild1 $bild2 $bild3</td>
  </tr>
  </table><br>

</loop>
<perl>

<perl>

$append ="&Bundesland~=$_sel{Bundesland}" if $_sel{Bundesland};
$append .="&Ort~=$_sel{Ort}" if $_sel{Ort};
$append .="&PLZ~=$_sel{PLZ}" if $_sel{PLZ};
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

out "<< <a href=\"$_link&range=$oldrange,$_range_length$append\">Zurück</a> " if $oldrange>=0;
if ($_amount != 0)
 
{
$bis = $_range + $_range_length;
    $von = $_range + 1;
    out " [ Einträge $von bis \n";
    if ($bis < $_amount_query)
       {
        out "$bis von $_amount_query\n  ";
       }
    else
       {
        out " $_amount_query von $_amount_query ]";
       }
  }
out "<a href=\"$_link&range=$newrange,$_range_length$append\">Weiter</a> >>" if $newrange<$_amount_query;