<%@language="VBScript"%>
<% Response.Expires = 0 %>
<!--#include file="inc/kontrola.asp" -->
<!--#include file="inc/kontrola-shop.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'kontrola formuláře
chyba = ""
if request("dodani") = "" then chyba = chyba & "<BR>Zvolte způsob doručení" end if
if not chyba = "" then
	chyba = right(chyba,len(chyba)-4)
	if not request.form = "" then formular = request.form & "&" end if
	Response.clear
	response.redirect "kosik-obj.asp?" & formular & "chyba=" & chyba
end if


'uložení údajů o dodání a platbě
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT id_platba, splatky FROM dodani WHERE id_dodani = " & clng(request("dodani"))
rs.Open strSQL, conn, 1, 1
session("kosik_platba") = rs("id_platba")
'splátky
if rs("splatky") = true then
	session("kosik_platba_splatky") = "1"
else
	session("kosik_platba_splatky") = ""
end if
rs.close
conn.close
session("kosik_dodani") = request("dodani")
session("kosik_dodani_cena") = request("dodani_cena" & request("dodani"))


if request("pobocka") <> "" then
	'adresa ze zásilkovny
	seznam = split(replace(request("pobocka"), """", ""), ", ")

' Debugging výpisy
    Response.Write "Přijatá data pro pobocka (RAW): " & request("pobocka") & "<br>"
    Response.Write "Počet prvků v seznamu: " & UBound(seznam) + 1 & "<br>"
    if isArray(seznam) then
        Response.Write "Obsah seznamu: " & Join(seznam, " | ") & "<br>"
    else
        Response.Write "Seznam není platné pole!" & "<br>"
    end if

' Kontrola posledního prvku (PSČ)
    Response.Write "Kontrola posledního prvku (PSČ): [" & seznam(3) & "]<br>"
    Response.Write "Získaná hodnota ZIP: [" & request("zip") & "]<br>"


	seznam2 = seznam2 & "jmeno2=ZÁSILKOVNA&"
	seznam2 = seznam2 & "firma2=ZÁSILKOVNA " & seznam(0) & "&"

 ' Prohození ulice a města
seznam2 = seznam2 & "mesto2=" & seznam(1) & "&"
seznam2 = seznam2 & "ulice2=" & seznam(2) & "&"

' Oprava PSČ
if request("zip") <> "" then
    seznam2 = seznam2 & "psc2=" & request("zip") & "&"
elseif UBound(seznam) >= 3 and seznam(UBound(seznam)) <> "undefined" then
    seznam2 = seznam2 & "psc2=" & seznam(UBound(seznam)) & "&"
else
    seznam2 = seznam2 & "psc2=Není dostupné&"
end if	

	session("kosik_zasilkovna_adresa") = seznam2

elseif request("balikovna") <> "" then
	'adresa z balíkovny
	seznam = split(replace(request("balikovna"),"""",""),",")
	seznam2 = seznam2 & "jmeno2=BALÍKOVNA&"
	seznam2 = seznam2 & "firma2=BALÍKOVNA " & trim(seznam(0)) & trim(seznam(1)) & "&"
	seznam2 = seznam2 & "ulice2=" & trim(seznam(3)) & "&"
	seznam2 = seznam2 & "mesto2=" & trim(seznam(0)) & "&"
	seznam2 = seznam2 & "psc2=" & trim(seznam(2)) & "&"
	session("kosik_balikovna_adresa") = seznam2
elseif session("kosik_zasilkovna_adresa") <> "" or session("kosik_balikovna_adresa") <> "" then
	'vynulování adresy ze zásilkovny při změně dodání
	seznam = split(session("kosik_obj3_query"),"&")
	for start = 0 to ubound(seznam)-1
		seznam2 = split(seznam(start),"=")
		if seznam2(0) = "jmeno2" or seznam2(0) = "firma2" or seznam2(0) = "ulice2" or seznam2(0) = "mesto2" or seznam2(0) = "psc2" then
			seznam3 = seznam3 & seznam2(0) & "=&"
		else
			seznam3 = seznam3 & seznam2(0) & "=" & seznam2(1) & "&"
		end if
	next
	session("kosik_obj3_query") = seznam3
	session("kosik_zasilkovna_adresa") = ""
	session("kosik_balikovna_adresa") = ""
end if


Response.clear
response.redirect session("cesta_web") & "kosik-obj3.asp"
 %>