baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<include src=top> <TABLE width=100%>
<TD align=middle> <!-- 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? --> <TABLE>
<TD width=570>$begruessung</TD></TR></TABLE> <br> <TABLE cellSpacing=0 cellPadding=0 width=544 border=0>
<TD bgColor=#ffffff><!-- ab hier rubriken --> <TABLE cellSpacing=0 cellPadding=4 bgColor=#F4F6F8>
<perl> $Rubrik||="Zimmerbrunnen"; foreach $rubrik ("Angebote", "Zimmerbrunnen", "Aussenbrunnen", "Luftbefeuchter", "Dekoartikel", "Rucksäcke", "ComputerSpiele", "Spielwaren", "Sport", "Freizeit") { out ($Rubrik eq $rubrik?"<td bgcolor=#e6e6e6 width=100> <b>$rubrik</b> </td>":"<td bgcolor=#F4F6F8 width=100> <a href=\"$link&htx=$htx&Rubrik==$rubrik\">$rubrik</a> </td>"); out "<td width=1 bgcolor=#ffffff></td>"; } </perl></TR></TABLE></TD></TR> <TR>
<TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#E0E7EC border=0>
<TD vAlign=top> <include src=warenkorb></TD> </TR><TR> <TD> <TABLE cellPadding=20><!-- ab hier datenbankausgabe --> <perl>$ic=0;</perl> <loop Rubrik==$Rubrik code=perl> out "<tr valign=top align=middle>" unless $ic%5; 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=77><br><font size=1>'.$Name.'</font><br>'.$Preis.' Euro</a></td>'; out "</tr>" unless ++$ic%5; </loop> <perl>out "</tr>" if $ic%5;</perl><!-- datenbankausgabe ende --> </TABLE></TD></TR></TABLE></TD></TR></TABLE> <CENTER></CENTER></TD>
<include src=bottom>
|
Alle Einträge zum Thema: | Zur Liste |
<perl> $Rubrik||="Zimmerbrunnen"; foreach $rubrik ("Angebote", "Zimmerbrunnen", "Aussenbrunnen", "Luftbefeuchter", "Dekoartikel", "Rucksäcke", "ComputerSpiele", "Spielwaren", "Sport", "Freizeit") { out ($Rubrik eq $rubrik?"<td bgcolor=#e6e6e6 width=100> <b>$rubrik</b> </td>":"<td bgcolor=#f6f6f6 width=100> <a href=\"$link&htx=$htx&Rubrik==$rubrik\">$rubrik</a> </td>"); out "<td width=1 bgcolor=#ffffff></td>"; } </perl>
> ich weiß, dass man es eignetlich selber finden sollte, aber hänge wirklcih fest...
> Kann auch gerne einen Hinweis in den Seiten auf dich machen ggf. mit Url??
<include src=top> <TABLE width=100%>
<TD align=middle> <!-- 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? --> <TABLE>
<TD width=570>$begruessung</TD></TR></TABLE> <br> <TABLE cellSpacing=0 cellPadding=0 width=544 border=0>
<TD bgColor=#ffffff><!-- ab hier rubriken --> <TABLE cellSpacing=0 cellPadding=4 bgColor=#F4F6F8>
<perl> $Rubrik||="Zimmerbrunnen"; foreach $rubrik ("Angebote", "Zimmerbrunnen", "Aussenbrunnen", "Luftbefeuchter", "Dekoartikel", "Rucksäcke", "ComputerSpiele", "Spielwaren", "Sport", "Freizeit") { out ($Rubrik eq $rubrik?"<td bgcolor=#e6e6e6 width=100> <b>$rubrik</b> </td>":"<td bgcolor=#F4F6F8 width=100> <a href=\"$link&htx=$htx&Rubrik==$rubrik\">$rubrik</a> </td>"); out "<td width=1 bgcolor=#ffffff></td>"; } </perl></TR></TABLE></TD></TR> <TR>
<TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#E0E7EC border=0>
<TD vAlign=top> <include src=warenkorb></TD> </TR><TR> <TD> <TABLE cellPadding=20><!-- ab hier datenbankausgabe --> <perl>$ic=0;</perl> <loop Rubrik==$Rubrik code=perl> out "<tr valign=top align=middle>" unless $ic%5; 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=77><br><font size=1>'.$Name.'</font><br>'.$Preis.' Euro</a></td>'; out "</tr>" unless ++$ic%5; </loop> <perl>out "</tr>" if $ic%5;</perl><!-- datenbankausgabe ende --> </TABLE></TD></TR></TABLE></TD></TR></TABLE> <CENTER></CENTER></TD>
<include src=bottom>
> Das "$" vor Rubrik habe ich wider entfernt
> aber ich kann das "get" nicht im Zusammenhang mit der DB finden *schäm*
$Rubrik||="Zimmerbrunnen";
$xxRubrik=$Rubrik;
<loop Rubrik==$Rubrik code=perl>
<loop Rubrik==$xxRubrik code=perl>
<include src=top> <TABLE width=100%>
<TD align=middle> <!-- 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? --> <TABLE>
<TD width=570>$begruessung</TD></TR></TABLE> <br> <TABLE cellSpacing=0 cellPadding=0 width=544 border=0>
<TD bgColor=#ffffff><!-- ab hier rubriken --> <TABLE cellSpacing=0 cellPadding=4 bgColor=#F4F6F8>
<perl> $Rubrik||="Zimmerbrunnen"; $xxRubrik=$Rubrik; foreach $rubrik ("Angebote", "Zimmerbrunnen", "Aussenbrunnen", "Luftbefeuchter", "Dekoartikel", "Rucksäcke", "ComputerSpiele", "Spielwaren", "Sport", "Freizeit") { out ($Rubrik eq $rubrik?"<td bgcolor=#e6e6e6 width=100> <b>$rubrik</b> </td>":"<td bgcolor=#F4F6F8 width=100> <a href=\"$link&htx=$htx&Rubrik==$rubrik\">$rubrik</a> </td>"); out "<td width=1 bgcolor=#ffffff></td>"; } </perl></TR></TABLE></TD></TR> <TR>
<TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#E0E7EC border=0>
<TD vAlign=top> <include src=warenkorb></TD> </TR><TR> <TD> <TABLE cellPadding=20><!-- ab hier datenbankausgabe --> <perl>$ic=0;</perl> <loop Rubrik==$xxRubrik code=perl> out "<tr valign=top align=middle>" unless $ic%5; 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=77><br><font size=1>'.$Name.'</font><br>'.$Preis.' Euro</a></td>'; out "</tr>" unless ++$ic%5; </loop> <perl>out "</tr>" if $ic%5;</perl><!-- datenbankausgabe ende --> </TABLE></TD></TR></TABLE></TD></TR></TABLE> <CENTER></CENTER></TD>
<include src=bottom>
<br> <perl>
if($_amount>0) { out <<EOF; <table style="border:1px solid #c0c0c0;padding:8px;"><tr><td valign=top align=center> <b>Ihr Warenkorb</b><br><br> EOF
out "<table width=100%>"; &berech(2); $ges=sprintf("%.2f",$ges); $ges=~ s/\./,/; out "<tr><td colspan=3><hr size=1></td></tr>"; 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><font size=1><a href=\"$link&htx=/$user/artikel&Rubrik=".convert_html($Rubrik)."&delw=all\" onclick=\"return confirm('Wollen Sie wirklich alle Artikel aus dem Warenkorb entfernen?')\"> Warenkorb leeren</a></font><hr size=1 color=#d5d5d5>";
get "KundenId==$kid sort=BestellungNr range=-1,1 Status<>Unbestellt", "bestellungen"; 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>"; }
out "#$xxRubrik#";
Liste der ersten 150 Einträge: | Einklappen | Zur Eingabe |
Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |