<%@ Language=VBScript %>
<%Option Explicit%>
<%
dim B2BProdID, splitsession, i, j
dim oRs, oConn, SQL, TempData
dim TableName, ColName1, ColName2, ColName3, Value1


B2BProdID 	= Request.Form("B2BProdID")	
splitsession= split(B2BProdID, "_")


set oConn 	=	Server.CreateObject("ADODB.Connection")	
oConn.open Application("ConStr")						
set oRs 	=	Server.CreateObject("ADODB.Recordset")	


	if session("UserID") & "" = "" AND session("RandomID") & "" <> "" then	' DEN EXEI KANEI LOGIN.AGNWSTOS XRHSTHS
		TableName 	= "OrderTemp"		

		ColName1 	= "TempUserSession"	
		ColName2 	= "TempItemID"		
		ColName3 	= "TempItemQuantity"
		
		Value1		= session("RandomID")
	elseif session("UserID") & "" <> ""  then
		TableName 	= "[Order]"			
		ColName1 	= "UserID"			
		ColName2 	= "ItemID"			
		ColName3 	= "ItemQuantity"	
		
		Value1		= session("UserID")	
	end if

if TableName & "" <> "" then
		SQL = "Select "& ColName2 &" from "& TableName &" where "& ColName1 &"=" & Value1
		oRs.open SQL, oConn, 3,1,1
		if oRs.EOF = false then
			TempData = oRs.GetRows
			
			for i=0 to ubound(TempData,2)
				for j=0 to ubound(splitsession)
					if Cstr(TempData(0,i)) = Cstr(splitsession(j)) then splitsession(j) = splitsession(j) &"-1"		' YPARXEI HDH TO ITEM STON ORDERTEMP
				next
			next
		end if
		oRs.close

		for j=0 to ubound(splitsession)
			if splitsession(j) <> left(splitsession(j),len(splitsession(j))-2) &"-1" then
				SQL = "Insert into " & TableName& " (" & ColName1 & ", " & ColName2 & ", " & ColName3 & ") values (" & Value1 & ", " & splitsession(j)& ", 1)"
				oConn.execute SQL
			else
				SQL = "update "& TableName &" set "& ColName3 &" = "& ColName3 &" + 1 where " & ColName1 & "=" & Value1 & " AND "& ColName2 &"="& left( splitsession(j),len(splitsession(j))-2)
				oConn.execute SQL
			end if
		next
end if
if  instr(Request.ServerVariables("HTTP_REFERER"),"create") then session("GiftProdID") = ""
if instr(Request.ServerVariables("HTTP_REFERER"),"product")OR instr(Request.ServerVariables("HTTP_REFERER"),"create") then response.redirect "basket.asp"

/////////////////////////// periptosi pou einai b2b oste na deixnei tropo pliromis mono pistosi kai na mi deixnei peritiligmata/////////////////////
session("b2b")=1

response.redirect "b2b.asp"
%>