<%@language="VBScript"%>
<% Response.Expires = 0 %>
<!--#include file="inc/kontrola.asp" -->
<!--#include file="inc/kontrola-shop.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
if session("kosik_ks_celkem") = "" then session("kosik_ks_celkem") = 0 end if
if session("kosik_cena_celkem") = "" then session("kosik_cena_celkem") = 0 end if



'kontrola - nevybraná jiná varianta
if request("zbozi") <> request("zbozi_puvodni") then
	'zboží - nová varianta
	Set rs = CreateObject("ADODB.RecordSet")
	if isnumeric(request("zbozi")) = true then
		strSQL = "SELECT zbozi.id_zbozi, zbozi.id_s_zbozi, sleva, cena, cena_puvodni, cena_karty1, cena_karty2, cena_karty3, id_zbozi_kat, skupina, id_zbozi_dostupnost FROM zbozi, s_zbozi WHERE id_zbozi = " & clng(request("zbozi")) & " AND zbozi.id_s_zbozi = s_zbozi.id_s_zbozi"
	else
		strSQL = "SELECT zbozi.id_zbozi, zbozi.id_s_zbozi, sleva, cena, cena_puvodni, cena_karty1, cena_karty2, cena_karty3, id_zbozi_kat, skupina, id_zbozi_dostupnost FROM zbozi, s_zbozi WHERE odkaz LIKE '" & clng(request("zbozi")) & "' AND zbozi.id_s_zbozi = s_zbozi.id_s_zbozi"
	end if
	rs.Open strSQL, conn, 1, 1
'úprava cen pro příhlášené zákazníky
sleva2 = rs("sleva")
cena2 = rs("cena")
cena_puvodni2 = rs("cena_puvodni")
cena_karty1 = rs("cena_karty1")
cena_karty2 = rs("cena_karty2")
cena_karty3 = rs("cena_karty3")
id_zbozi_dostupnost = rs("id_zbozi_dostupnost")
 %>
<!--#include file="inc/zbozi_cena_sleva.asp"-->
<% 
	id_zbozi = rs(0)
	id_s_zbozi = rs(1)
	id_zbozi_kat = rs("id_zbozi_kat")
	rs.close
	
	
	
	'počet ks
	if request("ks") = "" or isnumeric(request("ks")) = false then
		ks = 1
	else
		ks = clng(request("ks"))
	end if
	
	
	
	'úprava zboží v košíku
	if instr(session("kosik"),"_" & id_zbozi & "_") = 0 then
		'přidání nového zboží
		session("kosik") = session("kosik") & ks & "_" & id_zbozi & "_" & cena & ";"
	else
		'přidání dalších kusů
		seznam = split(session("kosik"),";")
		for start = 0 to ubound(seznam)
			if instr(seznam(start),"_" & id_zbozi) <> 0 then
				seznam2 = split(seznam(start),"_")
				zbozi_ks = clng(seznam2(0)) + ks
				zbozi_stare = seznam(start)
				zbozi_nove = zbozi_ks & "_" & id_zbozi & "_" & cena
				session("kosik") = replace(session("kosik"),zbozi_stare,zbozi_nove)
			end if
		next
	end if
	session("kosik_cena_celkem") = session("kosik_cena_celkem") + (cena * ks)
	'smazání původní varianty
	id_zbozi_puvodni = request("zbozi_puvodni")
	seznam = split(session("kosik"),";")
	for start = 0 to ubound(seznam)
		if instr(seznam(start),"_" & id_zbozi_puvodni) <> 0 then
			seznam2 = split(seznam(start),"_")
			cena_puvodni = seznam2(2)
		end if
	next
	session("kosik") = replace(session("kosik"),ks & "_" & id_zbozi_puvodni & "_" & cena_puvodni & ";","")
	session("kosik_cena_celkem") = session("kosik_cena_celkem") - (cena_puvodni * ks)
end if



Response.clear
response.redirect session("cesta_web") & "kosik.asp?zpet_uvodni=1"
 %>