<%@ Language=VBScript %>
<%Option Explicit%>
<%
dim GiftProdID, ItemsRemove, splitsession, splitvalues, i, j
GiftProdID 	= Request.Form("GiftProdID")	
ItemsRemove = Request.Form("ItemsRemove")	


if GiftProdID & "" <> "" OR ItemsRemove & "" <> "" then
	if len(session("GiftProdID"))=0 then 
		session("GiftProdID") = GiftProdID  
	else 

		'==== remove pids from session variable ===
		if ItemsRemove & "" <> "" then
			splitsession 	= split(session("GiftProdID"), "_")
			splitvalues		= split(ItemsRemove,"_")

			' if values r maching, set session array value = -1
			for i=0 to ubound(splitsession)
				for j=0 to ubound(splitvalues)
					if splitsession(i) = splitvalues(j)  then splitsession(i) = -1 
				next
			next

			session("GiftProdID") = ""
			
			'=== recreate session ====
			for j=0 to ubound(splitsession)
				if splitsession(j) <> -1 then session("GiftProdID") = session("GiftProdID")  & splitsession(j) & "_"
			next
			if len(trim(session("GiftProdID")))>0 then session("GiftProdID") = left(session("GiftProdID"),len(session("GiftProdID"))-1)
			
		end if
		


		'===== Check if pid already exists in session - just in case sth goes wrong - ====
		splitsession 	= split(session("GiftProdID"), "_")
		splitvalues		= split(GiftProdID,"_")

		for i=0 to ubound(splitsession)
			for j=0 to ubound(splitvalues)
				if splitsession(i) = splitvalues(j)  then splitvalues(j) = -1
			next
		next
		



		'===== add pid to session variable =======
		for j=0 to ubound(splitvalues)
			if splitvalues(j) <> -1 then session("GiftProdID") = session("GiftProdID") & "_" & splitvalues(j)
		next
	
	

		
	end if
	

end if
Response.redirect "create.asp"
%>