Hallo Jörg
Ich habe das jetzt so gemacht, wie Du es vorgeschlagen hast. Aber die Artikel stehen immer noch ausserhalb des weissen Feldes. Mein Wunsch ist allerdings, dass sie direkt rechts, auf gleicher Höhe, neben den Rubriken stehen.
Hier noch einmal der Quellcode der Artikelseite:
<table bgcolor=#e6e6e6><tr><td align=center>
<!-- artikel in den warenkorb? -->
<perl>
if($delw eq "all")
{
get "KundenId==$kid sort=BestellungNr range=-1,1 Status==Unbestellt", "bestellungen";
del "Id==$_id", "bestellungen";
}
if($add ne "")
{
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? -->
<table><tr><td width=570>$begruessung</td></tr></table>
<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>
<!-- ab hier rubriken -->
<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 -->
<!-- ab hier datenbankausgabe -->
<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 -->
</table>
</td></tr></table>
</td>
<include src=warenkorb>
<include src=bottom>
