<% 
'přepočítání zákaznických cen v košíku
if session("kosik") <> "" then
	kosik_novy = ""
	kosik_ks_celkem = 0
	kosik_cena_celkem = 0
	seznam = split(session("kosik"),";")
	for start = 0 to ubound(seznam) - 1
		seznam2 = split(seznam(start),"_")
		id_zbozi = seznam2(1)
		ks = seznam2(0)
		cena = seznam2(2)
		Set rs2 = CreateObject("ADODB.RecordSet")
		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 = " & id_zbozi & " AND zbozi.id_s_zbozi = s_zbozi.id_s_zbozi"
		rs2.Open strSQL, conn, 1, 1
		'úprava cen pro příhlášené zákazníky
		sleva2 = rs2("sleva")
		cena2 = rs2("cena")
		cena_puvodni2 = rs2("cena_puvodni")
		cena_karty1 = rs2("cena_karty1")
		cena_karty2 = rs2("cena_karty2")
		cena_karty3 = rs2("cena_karty3")
		id_zbozi_dostupnost = rs2("id_zbozi_dostupnost")
		 %>
		<!--#include file="zbozi_cena_sleva.asp"-->
		<% 
		rs2.close
		kosik_novy = kosik_novy & ks & "_" & id_zbozi & "_" & cena & ";"
		kosik_ks_celkem = kosik_ks_celkem + ks
		kosik_cena_celkem = kosik_cena_celkem + (cena * ks)
	next
	session("kosik") = kosik_novy
	session("kosik_ks_celkem") = kosik_ks_celkem
	session("kosik_cena_celkem") = kosik_cena_celkem
end if
 %>