<% 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 %>

Objednávka zboží

1. kosik-obj.asp">Doručení a platba 2. kosik-obj3.asp">Zákazník 3. Dokončení

<% '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) if not hodnota = "" then value = server.htmlencode(hodnota) end if end function 'získání údajů o způsobu dodání if not session("kosik_dodani") = "" then Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM dodani WHERE id_dodani = " & clng(session("kosik_dodani")) rs.Open strSQL, conn, 1, 1 nazev_platba = rs("nazev") nazev_dodani = rs("kat") druh_dodani = rs("druh") 'poštovné zdarma pro objednávky nad konkrétní částku if rs("post_zdarma_nad") > 0 and session("kosik_cena_celkem") > rs("post_zdarma_nad") then cena_dodani = 0 else cena_dodani = rs("cena") end if rs.close end if 'zjištění zda se jedná o objednávku z externího odkazu if request.Cookies ("odkaz")("ext_odkaz_sessionid") <> "" then ext_odkaz_sessionid = request.Cookies ("odkaz")("ext_odkaz_sessionid") ext_odkaz_odkaz = request.Cookies ("odkaz")("ext_odkaz_odkaz") ext_odkaz_datum = request.Cookies ("odkaz")("ext_odkaz_datum") else ext_odkaz_sessionid = session("ext_odkaz_sessionid") ext_odkaz_odkaz = session("ext_odkaz_odkaz") ext_odkaz_datum = session("ext_odkaz_datum") end if 'podpis Set f = Server.CreateObject("Scripting.FileSystemObject") cesta = Server.MapPath("inc_shopy/" & session("server")) & "\" set t = f.OpenTextFile(cesta & "email_obsah_podpis.txt") podpis = t.ReadAll set f = nothing set t = nothing %> Kontrola a dokončení objednávky kosik-obj6.asp" NAME="form_obj"> "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> <% 'dárky for each ses in Session.Contents if instr(ses,"kosik_darky") > 0 then id_zbozi = replace(ses,"kosik_darky","") %> "> <% end if next %> <% if session("kosik_fa_adresa") = "" then %> <% else %> <% end if %> <% okno_obsah = " Objednávka se zpracovává ... Vyčkejte prosím " %> Způsob doručení a platby <%= nazev_dodani %> <%= nazev_platba %><% if session("kosik_platba") = 2 then %> Pokyny k platbě obdržíte, jakmile budeme mít Vámi objednané zboží připravené k vyzvednutí/zaslání<% end if %> Zákazník <% hodnota = "jmeno=" %><%= value(hodnota) %> <% hodnota = "prijmeni=" %><%= value(hodnota) %> <% hodnota = "tel=" %>tel: <%= value(hodnota) %> <% hodnota = "email=" %>e-mail: <%= value(hodnota) %> Adresa <% hodnota = "jmeno2=" %><%= value(hodnota) %> <% hodnota = "firma2=" %><% if value(hodnota) <> "" then %><%= value("firma2=") %> <% end if %> <% hodnota = "ulice2=" %><%= value(hodnota) %> <% hodnota = "mesto2=" %><%= value(hodnota) %> <% hodnota = "psc2=" %><%= value(hodnota) %> <% hodnota = "ico2=" %><% if value(hodnota) <> "" then %>IČO: <%= value("ico2=") %> <% end if %> <% hodnota = "dic2=" %><% if value(hodnota) <> "" then %>DIČ: <%= value("dic2=") %><% end if %> Fakturační adresa Shodná jako adresa doručení <% hodnota = "jmeno3=" %><%= value(hodnota) %> <% hodnota = "firma3=" %><%= value(hodnota) %> <% hodnota = "ulice3=" %><%= value(hodnota) %> <% hodnota = "mesto3=" %><%= value(hodnota) %> <% hodnota = "psc3=" %><%= value(hodnota) %> <% hodnota = "ico3=" %><% if value(hodnota) <> "" then %>IČO: <%= value("ico3=") %> <% end if %> <% hodnota = "dic3=" %><% if value(hodnota) <> "" then %>DIČ: <%= value("dic3=") %><% end if %> Poznámka k objednávce Souhlasím se zpracováním osobních údajů za účelem vyřízení objednávky a s obchodními podmínkami

<% conn.close %>