<include src=top>

<!-- artikel in den warenkorb? -->
<perl>
if($delw eq "all")
{
  get "KundenId==$kid sort=BestellungNr range=-1,1 Status==Unbestellt", "bestellungen";
  del "Id==$_id", "bestellungen";
}

{
  get "KundenId==$kid sort=BestellungNr range=-1,1 Status==Unbestellt", "bestellungen";

  if($_amount>0 && $Status eq "Unbestellt")
  {
    my $nArtikel=""; chop $Artikel;
    foreach $artikel (split /#/,$Artikel)
    {
      my($a,$r)=split /\:/,$artikel;
      if($r==$add) { next if $amount==0; $a=$amount; $amount=-1; }
      $nArtikel.="$a:$r#";
    }
    $nArtikel.="$amount:$add#" if $amount>0;
    if($nArtikel ne "")
    {
      mod "Id==$_id", ["Artikel", $nArtikel], "bestellungen";
    } else
    {

    }
  } else
  {
    $mArtikel="$Artikel$amount:$add#";
    get "KundenId==$kid sort=BestellungNr range=-1,1", "bestellungen"; # höchste bestellnr. holen
    put ["Artikel", $mArtikel, "KundenId", $kid, "BestellungNr", $BestellungNr+1, "Status", "Unbestellt"], "bestellungen";
  }
}
</perl>
<!-- ende artikel in den warenkorb? -->

<font color=#FF8000 size=1>Für mehr Informationen über einen Ring bitte Bild anklicken</font>
<br><br><br><table cellpadding=0 cellspacing=0 width=544 border=0><tr><td bgcolor=#ffffff>

<table>
<perl>
$Rubrik||="mit Stein";
foreach $rubrik ("mit Stein", "ohne Stein", "Edelsteine", "Herrenringe")
{
out "<tr>";
out ($Rubrik eq $rubrik?"<td bgcolor=#e6e6e6 width=80> <b>$rubrik</b> </td>":"<td bgcolor=#f6f6f6 width=80> <a href=\"$link&htx=$htx&Rubrik==$rubrik\">$rubrik</a> </td>");
out "</tr>";
}
</perl>
</table>
<!-- rubriken ende -->

<perl>$ic=0;</perl>
<loop Rubrik==$Rubrik code=perl>
out "<tr valign=top align=middle><td valign=top>" unless $ic%4;
out '<td><a href="'.$link.'&htx=/'.$user.'/detail&Rubrik=='.convert_html($Rubrik).'&Id=='.$_id.'"><img src="'."$images/$Bild".'.gif" style="border:solid 1px #808080" width=96 height=72><br><font size=1>'.$Name.'</font><br>'.$Preis.' Euro</a></td>';
out "</tr>" unless ++$ic%4;
</loop>
<perl>out "</tr>" if $ic%4;</perl>
<!-- datenbankausgabe ende -->

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

</center>

<td valign=top>

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