<% if session("kosik") = "" or session("kosik_dodani") = "" then response.clear response.redirect "kosik.asp" end if 'rozbalování css pomocí requestu if not request("id") = "" then session("css_rozbal") = session("css_rozbal") & "," & request("id") elseif not request("id2") = "" then param = "," & request("id2") session("css_rozbal") = replace(session("css_rozbal"), param ,"") end if if session("zakaznik_id") <> "" then Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zakaznik WHERE id_zakaznik = " & session("zakaznik_id") rs.Open strSQL, conn, 1, 1 novinky = rs("novinky") rs.close end if %>

Objednávka zboží

<% if not request("chyba") = "" then %>

<%= server.htmlencode(request("chyba")) %>

<% end if %>

<% 'funkce - vyseparování údajů ze session function value(nazev) seznam = session("kosik_obj3_query") pozice1 = instrrev(seznam, nazev) + len(nazev) pozice2 = instr(pozice1,seznam,"&") hodnota = mid(seznam, pozice1, pozice2 - pozice1) value = server.htmlencode(hodnota) end function 'funkce - vyseparování údajů ze session zásilkovna function value2(nazev) seznam = session("kosik_zasilkovna_adresa") pozice1 = instrrev(seznam, nazev) + len(nazev) pozice2 = instr(pozice1,seznam,"&") hodnota = mid(seznam, pozice1, pozice2 - pozice1) value2 = server.htmlencode(hodnota) end function 'funkce - vyseparování údajů ze session balíkovna function value3(nazev) seznam = session("kosik_balikovna_adresa") pozice1 = instrrev(seznam, nazev) + len(nazev) pozice2 = instr(pozice1,seznam,"&") hodnota = mid(seznam, pozice1, pozice2 - pozice1) value3 = server.htmlencode(hodnota) end function %>

Informace o zákazníkovi

<% if session("zakaznik_id") = "" then %> <% end if %> kosik-obj4.asp" NAME="form_zakaznik" ONSUBMIT="return kontrola_zakaznik()"> "> <% if not session("zakaznik_id") = "" then %> 0 then %> VALUE="<%= value(hodnota) %>"<% end if %>> <% else %> <% end if %> <% if session("zakaznik_id") = "" then %> <% end if %> <% if session("zakaznik_id") <> "" and novinky = false then %> <% elseif session("zakaznik_id") = "" then %> <% else %> <% end if %> <% if session("kosik_druh") = "5" then 'zásilkovna %>

<% elseif session("kosik_druh") = "6" then 'balíkovna %>

<% else %> <% end if %> <% if session("kosik_druh") = "3" or session("kosik_druh") = "1" then %> <% else %> <% end if %> <% if not session("zakaznik_id") = "" then %> <% end if %> <% if session("kosik_druh") <> "1" then %> <% end if %>

Pokud jste již v našem obchodě dříve nakoupili, přihlašte se. Vaše údaje budou automaticky vyplněny. Nebo zadejte kontaktní údaje níže.

display: block; <% end if %>"> zakaznik-prihlaseni2.asp" NAME="form_prihlasit" ONSUBMIT="return kontrola_prihlasit()">

E-mail	VALUE="<%= request("email") %>"<% end if %>>
Heslo	VALUE="<%= request("heslo2") %>"<% end if %>>

	Zapomněli jste heslo? zakaznik-heslo.asp" target="_blank">Klikněte zde.

Kontaktní údaje

Jméno

"5" then %> ONKEYUP="jmeno2.value = jmeno.value + ' ' + prijmeni.value" ONCHANGE="jmeno2.value = jmeno.value + ' ' + prijmeni.value"<% end if %> TYPE="text" NAME="jmeno" SIZE="30"<% hodnota = "jmeno=" : if instr(session("kosik_obj3_query"),hodnota) > 0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

Příjmení

"5" then %> ONKEYUP="jmeno2.value = jmeno.value + ' ' + prijmeni.value" ONCHANGE="jmeno2.value = jmeno.value + ' ' + prijmeni.value"<% end if %> TYPE="text" NAME="prijmeni" SIZE="30"<% hodnota = "prijmeni=" : if instr(session("kosik_obj3_query"),hodnota) > 0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

Telefon

0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

E-mail

0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

Heslo

0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

E-mail a heslo slouží pro přihlášení
do zakaznik-prihlaseni.asp" TARGET="_blank">zákaznického centra

CHECKED<% end if %>> zasílat novinky z obchodu

zasílat novinky z obchodu

Adresa<% if session("kosik_druh") <> "1" then %> doručení<% else %> na dokladu<% end if %>

Jméno a příjmení

0 then %> VALUE="<%= value2(hodnota) %>"<% end if %>>

Firma

0 then %> VALUE="<%= value2(hodnota) %>"<% end if %>>

Ulice

0 then %> VALUE="<%= value2(hodnota) %>"<% end if %>>

Město

0 then %> VALUE="<%= value2(hodnota) %>"<% end if %>>

PSČ

0 then %> VALUE="<%= value2(hodnota) %>"<% end if %>>

Jméno a příjmení

0 then %> VALUE="<%= value3(hodnota) %>"<% end if %>>

Firma

0 then %> VALUE="<%= value3(hodnota) %>"<% end if %>>

Ulice

0 then %> VALUE="<%= value3(hodnota) %>"<% end if %>>

Město

0 then %> VALUE="<%= value3(hodnota) %>"<% end if %>>

PSČ

0 then %> VALUE="<%= value3(hodnota) %>"<% end if %>>

Jméno a příjmení

0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

Firma

0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

Ulice

0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

Město

0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

PSČ

0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

STYLE="font-weight: normal"<% end if %>>IČO

0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

DIČ

0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

Adresa na dokladu

display: none<% end if %>"> Jako adresa doručení / 2" HREF="<%= session("cesta_web") %>kosik-obj2.asp?<% if instr(session("css_rozbal"),"fa_adresa") = 0 then %>id<% else %>id2<% end if %>=<%= "fa_adresa" %>#<%= "fa_adresa" %>2" ONCLICK="return css_rozbal_menu('fa_adresa','fa_adresa_menu1','fa_adresa_menu2')">Zadat jinou

display: none<% end if %>"> 2" HREF="<%= session("cesta_web") %>kosik-obj2.asp?<% if instr(session("css_rozbal"),"fa_adresa") = 0 then %>id<% else %>id2<% end if %>=<%= "fa_adresa" %>#<%= "fa_adresa" %>2" ONCLICK="return css_rozbal_menu('fa_adresa','fa_adresa_menu1','fa_adresa_menu2')">Jako adresa doručení / Zadat jinou

display: none; <% end if %>"> <% if not session("zakaznik_id") = "" then %> <% end if %>

Jméno a příjmení	0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>
Firma	0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>
Ulice	0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>
Město	0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>
PSČ	0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>
IČO	0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>
DIČ	0 then %> VALUE="<%= value(hodnota) %>"<% end if %>>

<% conn.close %>