<% iCount = Session("ItemCount") abiBag = Session("Bag") sConnection = "DRIVER={MySQL};SERVER=echoingwalls.com;DATABASE=shopping;UID=webuser;PWD=webuser251" Set Conn = Server.CreateObject("ADODB.Connection") If Request.QueryString("ProductId") <> "" Then If iCount = Session("MaxItems") Then ReDim abiBag(AttributesPerProduct,iCount+2) Session("MaxItems") = iCount + 2 End if fAddProductNeeded = True For i = 1 to iCount If (abiBag(bagProductID,i) = CLng(Request.QueryString("ProductId"))) Then fAddProductNeeded = False End If Next If (True = fAddProductNeeded) Then Conn.Open(sConnection) strSQL = "SELECT * FROM products WHERE ProductID=" & CLng(Request.QueryString("ProductId")) Set RS = Conn.Execute(strSQL) If Not RS.EOF Then iCount = iCount + 1 Session("ItemCount") = iCount abiBag(bagProductID,iCount) = RS("ProductID") abiBag(bagProductName,iCount) = RS("ProductName") abiBag(bagDescription,iCount) = RS("Description") abiBag(bagPricePerUnit,iCount) = RS("PricePerUnit") abiBag(bagItemQuantity,iCount) = 1 Session("Bag") = abiBag RS.Close Conn.Close End If End If End If Select Case Request("Action") Case "Shop for More" RecalcBag abiBag, iCount Response.Redirect "products.asp" Case "Recalculate" RecalcBag abiBag, iCount Case "Cancel Order" iCount = 0 Session("ItemCount") = iCount Response.Redirect "products.asp" Case "Purchase" RecalcBag abiBag, iCount Response.Redirect "checkout.asp" End Select %> Shopping Cart

Shopping Cart

"> <% nSumSubtotals = 0 For i = 1 To iCount %> <% If (abiBag(bagPricePerUnit,i)) <> "" Then nSumSubtotals = nSumSubtotals + (abiBag(bagPricePerUnit,i) * abiBag(bagItemQuantity,i)) End If Next %>
ConfirmProduct NameDescriptionQuantity Unit PriceUnit Total
<%=abiBag(bagProductName,i)%> <%=abiBag(bagDescription,i)%> <%=FormatCurrency(abiBag(bagPricePerUnit,i))%> <%=FormatCurrency(abiBag(bagPricePerUnit,i) * abiBag(bagItemQuantity,i))%>
Subtotal: <%=FormatCurrency(nSumSubtotals)%>
<% If iCount > 0 Then %> <% End If %>