<!-- ab hier datenbankausgabe -->
<perl>$ic=0;</perl>

<loop Rubrik==$Rubrik code=perl Name==* sort=Preis range=$range1,$range2>
############### BEREINIGUNG NACH WARENGRUPPE 
if ($Rubrik eq "Hosenrohre")

$name_2=~s/,/,<br>/g; # nach Leerzeichen im Namen suchen und wandeln in +

########################################################################################

out '<td><a href="'.$link.'&htx=/'.$user.'/detail&Rubrik=='.convert_html($Rubrik).'&Id=='.$_id.'">';
########################################

$x=get "http://www.lambdasondenshop.de/baseportal/shop/$Bild.gif";

out "Keine Abbildung<br>vorhanden.<br><br>"; 
}
else {

}
#########################################
out '<br><font size=2><b><str>'.$Name.'</font></b></str><br><font size=1>'.$name_2.'</font><br><b><str>'.$Preis.'</b></str>  Euro</a></td>';
out "</tr>" unless ++$ic%4;
</loop>
<perl>out "</tr>" if $ic%4;</perl>
<!-- datenbankausgabe ende -->

</td></tr></table>

</center>
<BR> 
 <P ALIGN="CENTER"><B><ST><FONT FACE="Verdana" SIZE="1"
  COLOR="#808080"><STRONG>ES WERDEN IMMER MAX. 12 PRODUKTE ANGEZEIGT.<BR><BR> BITTE
  BL&Auml;TTERN SIE MIT "WEITER / ZURÜCK" ODER MIT "ANFANG" ZUR ERSTEN ÜBERSICHT.</STRONG></FONT><BR><BR><BR> <FONT FACE="Verdana" SIZE="1">
  
  <A HREF="$link&htx=$htx&Rubrik==$Rubrik&range2=<perl>out $range1+$range2</perl>">A N F A N G
  </A>&nbsp;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;
    
  <A HREF="$link&htx=$htx&Rubrik==$Rubrik&range1=<perl>out $range1+$range2</perl>">W E I T E R</A> &nbsp;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;
  
  <A HREF="$link&htx=$htx&Rubrik==$Rubrik&range1=<perl>out $range1-$range2</perl>">Z U R Ü C K  </A>			
  <BR><BR></FONT>

<td valign=top>