<%
dim thedict
set thedict=session("dict")
i=0
for each key in thedict    
thedict.item(key)=clng(request.form("N"&i))
	i=i+1
next
for each key in thedict    
if thedict.item(key)<1 then
	thedict.remove(key)
end if	
next

response.redirect("showcart.asp") 
%>