<!--#include file="shop$db.asp"-->
<%
'************************************************************************
' remove item from comparison array
' VP-ASP 6.50
' December 14, 2006 - CB
'***********************************************************************
dim rs, dbc, catalogid

catalogid = request("catalogid")
if not isnumeric(catalogid) then
	catalogid=""
end if
if catalogid = "" then
	shoperror getlang("langnocatalogid")
end if

'Remove catalogid to comparison list
dim comparelist
comparelist = "," & getsess("compareproducts") & ","

if instr(comparelist, "," & catalogid & ",") > 0 then
	comparelist = replace(comparelist, "," & catalogid, "")
	
	if comparelist = "," then
		setsess "compareproducts", ""
		shoperror getlang("langcompareempty")
	end if
	
	if (len(comparelist) > 0) then
		comparelist = left(comparelist, len(comparelist) - 1)
		comparelist = right(comparelist, len(comparelist) - 1)
	end if
	setsess "compareproducts", comparelist
end if

responseredirect "shopcomparison.asp"
%>