Hallo Leute!
ich habe folgendes Problem, vielleicht kann mir ja jemand helfen.
Es geht um ein Warenkorb. In einer Session("ShoppingCart") sind mehrere Artikel enthalten, die mit ";" getrennt sind. Die Artikel selber sind in drei Werte unterteilt Artikel Nr, Anzahl, Zubehör. Bsp: 12345,5,0;53421,4,1;
Und hier der Code:
<table summary="Warenkorb" align="center" cellpadding="0" cellspacing="2" border="0" width="100%">
<tr bgcolor="#EFEFEF">
<th align="center">Artikel</th>
<th align="center">Anzahl </th>
<th align="center">Eizelpreis* </th>
<th align="center">Gesamtpreis*</th>
</tr>
<%
'split shoppingcart
Dim arrShoppingcart, SplitCart, SplitItem, arrItems, ItemCount, ItemQuantity, ItemTopic, ItemPPT
arrShoppingcart = Split(Left(Session("Shoppingcart"), Len(Session("Shoppingcart")) - 1), ";", -1, 0)
Dim Row, Color(1)
Color(0) = "#cccccc"
Color(1) = "#efefef"
Row = 0
For SplitCart = LBound(arrShoppingcart) To UBound(arrShoppingcart)
Row = Row + 1
Response.Write "<tr bgcolor=" & Color(Row mod 2) & ">"
arrItems = arrShoppingcart(SplitCart)
SplitItem = Split(arrItems, ",", -1, 0)
For ItemCount = LBound(SplitItem) To LBound(SplitItem)
Response.Write "<td>"
ItemTopic = SplitItem(0)
Response.Write (ItemTopic) & "<br>"
Response.Write "Artikel"
If CLng(SplitItem(2)) = 1 Then
Response.Write "<br>"
Response.Write "Zubehöhr"
End If
Response.Write "</td>"
Response.Write "<td align='center'>"
ItemQuantity = SplitItem(1)
Response.Write "<br>"
Response.Write (ItemQuantity)
If CLng(SplitItem(2)) = 1 Then
Response.Write "<br>"
Response.Write "1"
End If
Response.Write "</td>"
Next
Response.Write "</tr>"
Next
%>
<tr bgcolor="#EFEFEF">
<td><strong>Zwischensumme:</strong></td>
<td align="right" colspan="3"><%=(strFormatEuro(dblTotalItemCost))%></td>
</tr>
</table>
Das Auslesen funktioniert ja auch soweit, aber ich möchte noch weitere Daten ausgeben, wie Artikel-Titel und Preis. Diese Werte sind in einer DB gespeichert, Wie kann ich das ganze miteinander verbinden? Oder gibts es eine andere Lösung?
PS: Bin noch Anfänger und hoffe auf Eure Hilfe!
ich habe folgendes Problem, vielleicht kann mir ja jemand helfen.
Es geht um ein Warenkorb. In einer Session("ShoppingCart") sind mehrere Artikel enthalten, die mit ";" getrennt sind. Die Artikel selber sind in drei Werte unterteilt Artikel Nr, Anzahl, Zubehör. Bsp: 12345,5,0;53421,4,1;
Und hier der Code:
<table summary="Warenkorb" align="center" cellpadding="0" cellspacing="2" border="0" width="100%">
<tr bgcolor="#EFEFEF">
<th align="center">Artikel</th>
<th align="center">Anzahl </th>
<th align="center">Eizelpreis* </th>
<th align="center">Gesamtpreis*</th>
</tr>
<%
'split shoppingcart
Dim arrShoppingcart, SplitCart, SplitItem, arrItems, ItemCount, ItemQuantity, ItemTopic, ItemPPT
arrShoppingcart = Split(Left(Session("Shoppingcart"), Len(Session("Shoppingcart")) - 1), ";", -1, 0)
Dim Row, Color(1)
Color(0) = "#cccccc"
Color(1) = "#efefef"
Row = 0
For SplitCart = LBound(arrShoppingcart) To UBound(arrShoppingcart)
Row = Row + 1
Response.Write "<tr bgcolor=" & Color(Row mod 2) & ">"
arrItems = arrShoppingcart(SplitCart)
SplitItem = Split(arrItems, ",", -1, 0)
For ItemCount = LBound(SplitItem) To LBound(SplitItem)
Response.Write "<td>"
ItemTopic = SplitItem(0)
Response.Write (ItemTopic) & "<br>"
Response.Write "Artikel"
If CLng(SplitItem(2)) = 1 Then
Response.Write "<br>"
Response.Write "Zubehöhr"
End If
Response.Write "</td>"
Response.Write "<td align='center'>"
ItemQuantity = SplitItem(1)
Response.Write "<br>"
Response.Write (ItemQuantity)
If CLng(SplitItem(2)) = 1 Then
Response.Write "<br>"
Response.Write "1"
End If
Response.Write "</td>"
Next
Response.Write "</tr>"
Next
%>
<tr bgcolor="#EFEFEF">
<td><strong>Zwischensumme:</strong></td>
<td align="right" colspan="3"><%=(strFormatEuro(dblTotalItemCost))%></td>
</tr>
</table>
Das Auslesen funktioniert ja auch soweit, aber ich möchte noch weitere Daten ausgeben, wie Artikel-Titel und Preis. Diese Werte sind in einer DB gespeichert, Wie kann ich das ganze miteinander verbinden? Oder gibts es eine andere Lösung?
PS: Bin noch Anfänger und hoffe auf Eure Hilfe!