% 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 %>