<% ' SHOPPING CART COOKIE LIBRARY ' BRANDON McLAMB ' IDESIGNS (c) 2000 dim ID ID = Request.QueryString("ID") ' Declare the variables dim item, newcart ' Loop through all of the items in the cart For Each Item In Split(Request.Cookies("CART")("ITEMS"),",") ' If the item does not equal the ID to remove, keep it if cInt(Item)<>cInt(ID) Then newcart = newcart & Item & "," End If Next If Right(newcart,1)="," Then newcart = Left(newcart,len(newcart)-1) Response.Cookies("CART")("ITEMS") = newcart response.redirect("./default.asp") %>