<% 
'kontrola nákupního košíku
if session("kosik") <> "" and request.cookies("kosik_" & session("server")) = "" then
	'uložení session do cookies
	'Response.Cookies("kosik_" & session("server"))("kosik") = session("kosik")
	'Response.Cookies("kosik_" & session("server"))("kosik_ks_celkem") = session("kosik_ks_celkem")
	'Response.Cookies("kosik_" & session("server"))("kosik_cena_celkem") = session("kosik_cena_celkem")
	'uložení session dárků do cookies
	'for each ses in Session.Contents
		'if instr(ses,"kosik_darky") > 0 then
			'id_zbozi = replace(ses,"kosik_darky","")
			'Response.Cookies("kosik_" & session("server"))(ses) = session("kosik_darky" & id_zbozi)
		'end if
	'next
	'Response.Cookies("kosik_" & session("server")).Expires = dateadd("d",1,now())
'elseif request.cookies("kosik_" & session("server")) <> "" and request.Cookies("kosik_" & session("server"))("kosik") <> "" and session("kosik") = "" then
	'uložení cookies do session
	'session("kosik") = request.Cookies("kosik_" & session("server"))("kosik")
	'session("kosik_ks_celkem") = request.Cookies("kosik_" & session("server"))("kosik_ks_celkem")
	'session("kosik_cena_celkem") = request.Cookies("kosik_" & session("server"))("kosik_cena_celkem")
	'vyseparování cookies dárků do session
	'for each cookie in Request.Cookies("kosik_" & session("server"))
		'if instr(cookie,"kosik_darky") > 0 then
			'id_zbozi = replace(cookie,"kosik_darky","")
			'session("kosik_darky" & id_zbozi) = Request.Cookies("kosik_" & session("server"))(cookie)
		'end if
	'next
end if


'kontrola přihlášení zákazníka
if session("zakaznik_id") <> "" and request.cookies("zakaznik_" & session("server")) = "" then
	'uložení session do cookies
	Response.Cookies("zakaznik_" & session("server"))("zakaznik_id") = session("zakaznik_id")
	Response.Cookies("zakaznik_" & session("server"))("zakaznik_jmeno") = session("zakaznik_jmeno")
	Response.Cookies("zakaznik_" & session("server"))("zakaznik_sleva") = session("zakaznik_sleva")
	Response.Cookies("zakaznik_" & session("server"))("zakaznik_id_sleva_karty") = session("zakaznik_id_sleva_karty")
	Response.Cookies("zakaznik_" & session("server"))("kosik_obj3_query") = session("kosik_obj3_query")
	Response.Cookies("zakaznik_" & session("server")).Expires = dateadd("d",1,now())
elseif request.cookies("zakaznik_" & session("server")) <> "" and request.Cookies("zakaznik_" & session("server"))("zakaznik_id") <> "" and session("zakaznik_id") = "" then
	'uložení cookies do session
	session("zakaznik_id") = request.Cookies("zakaznik_" & session("server"))("zakaznik_id")
	session("zakaznik_jmeno") = request.Cookies("zakaznik_" & session("server"))("zakaznik_jmeno")
	session("zakaznik_sleva") = request.Cookies("zakaznik_" & session("server"))("zakaznik_sleva")
	session("zakaznik_id_sleva_karty") = request.Cookies("zakaznik_" & session("server"))("zakaznik_id_sleva_karty")
	session("kosik_obj3_query") = request.Cookies("zakaznik_" & session("server"))("kosik_obj3_query")
end if
'kontrola výše slevy zákazníka
if session("zakaznik_id") <> "" then
	Set rs_zakaznik = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT sleva, id_sleva_karty FROM zakaznik WHERE id_zakaznik = " & session("zakaznik_id")
	rs_zakaznik.Open strSQL, conn, 1, 1
	if rs_zakaznik.eof then
		session("zakaznik_id") = ""
		Response.Cookies("zakaznik_" & session("server"))("zakaznik_id") = ""
	else
		if session("zakaznik_id_sleva_karty") <> rs_zakaznik("id_sleva_karty") or session("zakaznik_sleva") <> rs_zakaznik("sleva") then
			'přepočítání slev zákazníka
			session("zakaznik_sleva") = rs_zakaznik("sleva")
			session("zakaznik_id_sleva_karty") = rs_zakaznik("id_sleva_karty")
			if session("kosik") <> "" then
				'přepočítání cen v košíku
				 %>
				<!--#include file="kosik-prepocitat.asp"-->
				<% 
			end if
			rs_zakaznik.close
		end if
	end if
end if
 %>