<!-- #include file="shop$db.asp" -->
<%
'**********************************************************
' Remove an item from the cart
' VP-ASP 5.00
' Jan 5, 2003
'**********************************************************
dim removeid, arrcart,scartitem
Removeid=request("cartid")
if removeid="" then 
   response.redirect "shopaddtocart.asp"
else
   removeid=clng(removeid)
end if   
dim cartattributes, maxcartitems, i, j, newcount, newcart
cartattributes=cMaxCartAttributes
maxcartitems=getconfig("xmaxcartitems")
newcount=0
arrCart = GetSessA("CartArray")
scartItem = GetSess("CartCount")
ReDim newcart(cartAttributes,maxCartItems)
For i = 1 to scartItem
         debugwrite i & " " & removeid
 	 if i<>removeid then
	    newcount=newcount+1
            for x = 1 to cartAttributes
	        NewCart(x, newcount) = arrCart(x,i)
            next
          end if
Next
  SetSess "CartCount", newcount
  SetSessA "CartArray", Newcart
  response.redirect "shopaddtocart.asp"
	     
%>