<%@language="VBScript"%>
<% Response.Expires = 0 %>
<!--#include file="inc/kontrola.asp" -->
<!--#include file="inc/kontrola-shop.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'kontrola sessions košíku
if session("kosik") = "" then
	Response.clear
	response.redirect session("cesta_web") & "kosik.asp"
end if


'zrušení dodani kvůli možné změně poštovného při změně celkové ceny (objednávky nad určitou částku)
session("kosik_dodani") = ""


'odebrání zboží z košíku
seznam = split(session("kosik"),";")
zbozi_stare = seznam(request("zbozi_poradi"))
seznam2 = split(zbozi_stare,"_")
id_zbozi = seznam2(1)
session("kosik") = replace(session("kosik"),zbozi_stare & ";","")
'kontrola prázdného košíku
if session("kosik") = "" then
	response.clear
	response.redirect session("cesta_web") & "kosik-smazani.asp"
end if


'odebrání dárků z košíku
session("kosik_darky" & id_zbozi) = ""


'získání id zboží
seznam2 = split(zbozi_stare,"_")
id_zbozi = seznam2(1)
ks = seznam2(0)
cena = seznam2(2)
'úprava celkové ceny a celkového počtu kusů
session("kosik_ks_celkem") = session("kosik_ks_celkem") - ks
if session("kosik_ks_celkem") = 0 then
	session("kosik_ks_celkem") = ""
end if
session("kosik_cena_celkem") = session("kosik_cena_celkem") - (cena * ks)
if session("kosik_cena_celkem") = 0 then
	session("kosik_cena_celkem") = ""
end if


if request("redirect") <> "0" then
	Response.clear
	response.redirect session("cesta_web") & "kosik.asp?zpet_uvodni=1"
end if
 %>