<BR>
<perl>

$bSparte=$Sparte;

{

if($_amount>0)
{
################ Anzeige Warenkorb wenn Artikel drinnen
  out <<EOF;
<table style="border:1px solid #c0c0c0;padding:8px;"><tr><td valign=top align=center>
<b>Warenkorb - $namerein</b><br><br>
EOF

  out "<table width=100%>";
  &berech(2);
  $ges=sprintf("%.2f",$ges);
  $ges=~ s/\./,/;
###
###
############  in der nächsten Zeile muss die Ausgabe erfolgen
  out "<tr><th colspan=3><hr size=1></td></tr>";
############ hir ist nach Ausgabe- hab ich mit out "test"; probiert- aber wie ist eine Ausgabe möglich wenn nicht einmal eine Variable vorhanden ist???????
###
###

  out "<tr><td colspan=2>Gesamt:</td><td align=right><b>$ges Euro</b></td></tr></table>";
  out "<br><a href=\"$link&htx=/$user/best\"><b>Bestellen</b></a>" unless $nobest;
  out "</td></tr></table>";
  out "<br><center><font size=1><a href=\"$link&htx=/$user/artikel&Rubrik==".convert_html($bRubrik)."&Sparte=".convert_html($bSparte)."&delw=all\" onclick=\"return confirm('Wollen Sie wirklich alle Artikel aus dem Warenkorb entfernen?')\">Warenkorb leeren</a></font></center>";
}

if($_amount_query>0)
{

  out "<br><center><hr size=1 color=#c0c0c0><font size=1>Bestellungen bisher:<br><font color=#FF8000>$_amount_query</font><br>";
  out "Letzte Bestellung:<br><font color=#FF8000>".datum($Datum)."</font><br>";
  out "Status:<br><font color=#FF8000>$Status</font></font></center><br>";

}