%@LANGUAGE="VBSCRIPT"%> <% ' Define Constants CONST CARTPID = 0 CONST CARTPNAME = 1 CONST CARTPPRICE = 2 CONST CARTPQUANTITY = 3 ' Get The Shopping Cart IF NOT isArray( Session( "cart" ) ) THEN DIM localCart( 4, 20 ) ELSE localCart = Session( "cart" ) END IF ' Get Product Information productID = TRIM( Request( "pid" ) ) productName = TRIM( Request( "productName" ) ) productPrice = TRIM( Request( "productPrice" ) ) ' Add Item to cart IF productID <> "" THEN foundIT = FALSE FOR i = 0 TO UBOUND( localCart ) IF localCart( CARTPID, i ) = productID THEN localCart( CARTPQUANTITY, i ) = localCart( CARTPQUANTITY, i ) + 1 foundIT = TRUE EXIT FOR END IF NEXT IF foundIT = FALSE THEN FOR i = 0 TO UBOUND( localCart, 2 ) IF localCart( CARTPID, i ) = "" THEN localCart( CARTPID, i ) = productID localCart( CARTPNAME, i ) = productName localCart( CARTPPRICE, i ) = productPrice localCart( CARTPQUANTITY, i ) = 1 EXIT FOR END IF NEXT END IF END IF ' Update Shopping Cart Quantities IF Request( "updateQ" ) <> "" THEN FOR i = 0 TO UBOUND( localCart, 2 ) newQ = TRIM( Request( "pq" & localCart( CARTPID, i ) ) ) deleteProduct = TRIM( Request( "pd" & localCart (CARTPID, i ) ) ) IF newQ = "0" or deleteProduct <> "" THEN localCart( CARTPID, i ) = "" ELSE IF isNumeric( newQ ) THEN localCart( CARTPQUANTITY, i ) = newQ END IF END IF NEXT END IF ' Update Session variable with Array Session( "cart" ) = localCart %>
Your shopping cart: <% orderTotal = 0 %>