<%@ LANGUAGE = "VBScript" %>
<!-- #include file="db.asp" -->
<!-- #include file="config.asp" -->
<!-- #include file="functions.asp" -->
<%
db.close
set db=nothing

if request.querystring("redir")="payment" then
	redir="payment.asp"
else
	redir="review.asp"
end if


item=request.querystring("item")
action=request.querystring("action")

if item<0 or item>19 then
	response.redirect(redir)
end if

if action="delete"  then

   	If IsArray(Session("cart")) = false Then
		Dim acart(19,1)
		Session("cart") = acart
	else
		acart=session("cart")
		acart(item,0)=""
		acart(item,1)=""
		session("cart")=acart
	end if
end if

if action="clear" then
	Session("cart")=null
end if

response.redirect(redir)
%>