<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Evans Bros Estate Agents - West Wales Estate Agents
<%
' Define Constants
CONST CARTPID = 0
CONST CARTPNAME = 1
CONST CARTPPRICE = 2
CONST CARTPQUANTITY = 3
CONST CARTPC = 4
'------------------------------------------------
' GET THE SHOPPING CART
IF NOT isArray( Session( "cart" ) ) THEN
DIM localCart( 5, 20 )
ELSE
localCart = Session( "cart" )
END IF
'------------------------------------------------
' GET THE PRODUCT INFORMATION
productID = TRIM( Request( "pid" ) )
productName = TRIM( Request( "productName" ) )
productPrice = TRIM( Request( "productPrice" ) )
productImage = TRIM( Request("pc"))
'---------------------------------------------------
' ADD ITEM TO SHOPPING 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 NOT foundIT 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( CARTPC, i ) = productImage
localCart( CARTPQUANTITY, i ) = 1
EXIT FOR
END IF
NEXT
END IF
END IF
'------------------------------------------------
' UPDATE THE QUANTITIES IN THE SHOPPING CART
IF Request( "updateQ" ) <> "" THEN
FOR i = 0 TO UBOUND( localCart, 2 )
newQ = TRIM( Request( "pq" & localCart( CARTPID, i ) ) )
IF newQ = "" or newQ = "0" 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
'-------------------------------------------------------
%>
