<%@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


'zboží
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 = " & 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 '" & 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(3)
skupina = rs(4)
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 & ";"
	session("kosik_ks_celkem") = session("kosik_ks_celkem") + ks
	session("kosik_cena_celkem") = session("kosik_cena_celkem") + (cena * ks)
	zbozi_poradi = ubound(split(session("kosik"),";"))-1
	zbozi_ks = 1
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)
			zbozi_poradi = start
		end if
	next
	session("kosik_ks_celkem") = session("kosik_ks_celkem") + ks
	session("kosik_cena_celkem") = session("kosik_cena_celkem") + (cena * ks)
end if



'úprava dárků
session("kosik_darky" & id_zbozi) = ""
if request("darek" & id_zbozi) <> "" then
	seznam = split(request("darek" & id_zbozi),",")
	for start = 0 to ubound(seznam)
		session("kosik_darky" & id_zbozi) = session("kosik_darky" & id_zbozi) & "1_" & trim(seznam(start)) & ","
	next
end if



Response.clear
if request("ajax") = "" then
	session("kosik_okno_id_zbozi") = id_zbozi
	session("kosik_okno_zbozi_poradi") = zbozi_poradi
	session("kosik_okno_zbozi_ks") = zbozi_ks
	if request.servervariables("http_referer") <> "" then
		response.redirect request.servervariables("http_referer")
	else
		response.redirect "stranka-nenalezena.asp"
	end if
end if
 %>