<%@language="VBScript"%>
<% Response.Expires = 0 %>
<!--#include file="inc/kontrola.asp" -->
<!--#include file="inc/kontrola-shop.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
response.charset = "windows-1250"

'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") = ""


'kontrola správného zadání ks
if request("ks") = "0" or request("ks") = "" then
	Response.clear
	response.redirect session("cesta_web") & "kosik-odebrat.asp?zbozi_poradi=" & request("zbozi_poradi") & "&redirect=0"
elseif isnumeric(request("ks")) = false then
	ks = 1
else
	ks = clng(request("ks"))
end if


'úprava ks v košíku
seznam = split(session("kosik"),";")
seznam2 = split(seznam(request("zbozi_poradi")),"_")
ks_stare = seznam2(0)
id_zbozi = seznam2(1)
cena = seznam2(2)
zbozi_stare = seznam(request("zbozi_poradi"))
zbozi_nove = replace(zbozi_stare,ks_stare & "_" & id_zbozi,ks & "_" & id_zbozi)
session("kosik") = replace(session("kosik"),zbozi_stare,zbozi_nove)


'úprava celkové ceny a celkového počtu kusů
session("kosik_ks_celkem") = session("kosik_ks_celkem") - (ks_stare - ks)
session("kosik_cena_celkem") = session("kosik_cena_celkem") - (cena * (ks_stare - ks))
 %>