<% ' Get Product ID productID = TRIM( Request( "pid" ) ) ' Add Item to cart IF productID <> "" THEN sqlString = "SELECT cart_id FROM cart " &_ "WHERE cart_userID=" & userID & " " &_ "AND cart_productID=" & productID SET RS = Con.Execute( sqlString ) IF RS.EOF THEN sqlString = "INSERT INTO cart ( " &_ "cart_userID, " &_ "cart_productID, " &_ "cart_quantity " &_ ") VALUES ( " &_ userID & ", " &_ productID & ", 1 )" ELSE sqlString = "UPDATE cart SET " &_ "cart_quantity=cart_quantity+1 " &_ "WHERE cart_id=" & RS( "cart_id" ) END IF RS.Close SET RS = Nothing Con.Execute sqlString END IF ' Update Shopping Cart Quantities IF Request( "updateQ" ) <> "" THEN SET RS = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = Con RS.CursorType = adOpenDynamic RS.LockType = adLockOptimistic sqlString = "SELECT cart_id, cart_quantity FROM cart " &_ "WHERE cart_userID=" & userID RS.Open sqlString WHILE NOT RS.EOF newQ = TRIM( Request( "pq" & RS( "cart_id" ) ) ) IF newQ = "" OR newQ = "0" THEN RS.Delete ELSE IF isNumeric( newQ ) THEN RS( "cart_quantity" ) = newQ END IF END IF RS.MoveNext WEND RS.Close SET RS = Nothing END IF %> Shopping Cart
<%=username%>'s shopping cart: <% ' Get the shopping cart sqlString = "SELECT cart_id, product_name, " &_ "product_price, cart_quantity " &_ "FROM cart, products " &_ "WHERE cart_userID=" & userID & " " &_ "AND cart_productID = product_id " &_ "ORDER BY cart_id DESC" SET RS = Con.Execute( sqlString ) IF RS.EOF THEN %>

You do not have any items in your shopping cart

<% ELSE orderTotal = 0 %>
<% WHILE NOT RS.EOF orderTotal = orderTotal + ( RS( "product_price" ) * RS( "cart_quantity" ) ) %> <% RS.MoveNext WEND %>
Product Price Quantity
<%=Server.HTMLEncode( RS( "product_name" ) )%> <%=formatCurrency( RS( "product_price" ) )%> " type="text" size=4 value="<%=RS( "cart_quantity" )%>">
Order Total: <%=formatCurrency( orderTotal )%>
<% END IF %>