<% '//Remove a product to the cart. Dim Basket set Basket = new cBasket Basket.setup Basket.Load Dim PID PID = int(request.QueryString("ID")) If PID = "" then '//Redirect to the cart 'Response.Redirect("Basket.asp") else 'Response.Write("Max: " & Basket.ReturnMax & "
") Basket.RemoveProduct PID Basket.SaveBasket 'Response.Write("Max: " & Basket.ReturnMax & "
") 'Response.Write("pr: " & Basket.ReturnProducts) set Basket = nothing Response.Redirect("Basket.asp") end if %>