<%
'==== REQUESTING COOKIES - IF EXISTS GIVE COOKIEID TO SESSION ELSE GENERATE NEW SESSION ID

if Session("UserID")="" AND Session("RandomID")="" then			'Den exei session

	if request.Cookies("degustibus")("UserID")="" then			'Den exei cookie me to id tou (isws den ekane pote login, isws den dexetai cookies)

'		if request.Cookies("degustibus")("RandomID")="" then	'Den exei kanei pote login 'h den dexetai cookies
			dim temp1, temp2, temp3
			Randomize
			temp1 = Int((9999 * Rnd) + 1)
			temp2 = Int((9999 * Rnd) + 1)
			temp3 = Int((9999 * Rnd) + 1)
			
			response.Cookies("degustibus").expires=#12/12/2030#
			response.Cookies("degustibus")("RandomID") = temp1 & temp2 & temp3
			session("RandomID") = temp1 & temp2 & temp3
'		else
'			session("RandomID") = request.Cookies("degustibus")("RandomID")
'		end if

	else
		session("UserID") = request.Cookies("degustibus")("UserID")
		session("RandomID") = request.Cookies("degustibus")("RandomID")

		'==== Rebuild session values =============================================
		dim oRs1, oConn1, SQL1
		set oConn1 = Server.CreateObject("ADODB.Connection")
		oConn1.open Application("ConStr")
		set oRs1 = Server.CreateObject("ADODB.Recordset")
		
		SQL1 = "Select ItemID from [Order] where UserID = " & session("UserID")
		oRs1.open SQL1, oConn1, 3,1,1
		
		if oRs1.EOF = false then
			session("BasketItemsCounter") = oRs1.RecordCount
			session("BasketItems") = oRs1.getRows()
		else
			session("BasketItemsCounter") = 0
			session("BasketItems") = ""
		end if
		
		oRs1.close
		set oRs1 = nothing
		oConn1.close
		set oConn1 = nothing
		'==== Rebuild session values =============================================

	end if

else

			response.Cookies("degustibus").expires=#12/12/2030#
			response.Cookies("degustibus")("RandomID") = session("RandomID")
			response.Cookies("degustibus")("UserID") = session("UserID")
end if




Session.Timeout = 30
%>