<% dim arrCart,scartItem dim cartid cartid=Request("cartid") 'VP-ASP 6.50 - precautionary security fix if not isnumeric(cartid) then shoperror "Cart ID must be numeric" end if dim count count=Request("count") 'VP-ASP 6.50 - precautionary security fix if not isnumeric(count) then shoperror "Count must be numeric" end if arrCart = GetSessA("CartArray") ' get shopping cart data scartItem = GetSess("CartCount") %><% %>