<% if session("kosik") = "" then response.clear response.redirect "kosik.asp" end if 'uložení druhu dodání do session if request("kosik_druh") <> "" then session("kosik_druh") = request("kosik_druh") end if %>

Objednávka zboží

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

1. Doručení a platba 2. Zákazník 3. Dokončení

Způsob doručení a platby kosik-obj.asp" NAME="form_obj2" ONSUBMIT="return kontrola_druh()"> <% Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT DISTINCT druh FROM dodani WHERE id_shop LIKE('%," & session("server_id") & ",%') ORDER BY druh" rs.Open strSQL, conn, 1, 1 start = 0 do while not rs.eof %> <% if rs("druh") = 1 then %><% end if %> <% if rs("druh") = 2 then %><% end if %> <% if rs("druh") = 3 then %><% end if %> <% if rs("druh") = 5 then %><% end if %> <% if rs("druh") = 6 then %><% end if %> <% rs.movenext loop rs.close %> CHECKED<% end if %>> Osobní odběr v prodejně CHECKED<% end if %>> Zaslání - soukromá osoba CHECKED<% end if %>> Zaslání - firma, živnostník (nutno zadat IČO) CHECKED<% end if %>> Zásilkovna CHECKED<% end if %>> Balíkovna <% if session("kosik_druh") <> "" then %> kosik-obj2.asp" NAME="form_obj" ONSUBMIT="return kontrola_obj()"> <% set f = Server.CreateObject("Scripting.FileSystemObject") Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM dodani WHERE NOT nazev LIKE '' AND druh = " & replace(session("kosik_druh"),"'","") & " AND splatky = 0 AND id_shop LIKE('%," & 0 & ",%') ORDER BY kat, id_dodani" rs.Open strSQL, conn, 1, 1 start = 0 do while not rs.eof 'filtr pro celá kola - nemožnost zaslání obchodním balíkem if session("kosik_balne") = "" or (session("kosik_balne") <> "" and instr(rs("kat"),"obchodní balík") = 0) then '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 dodani_cena = 0 else dodani_cena = rs("cena") end if if kat <> rs("kat") then %> <% end if kat = rs("kat") %> <% javascript1 = javascript1 & " && document.form_obj.dodani[" & start & "].checked == false" end if start = start + 1 rs.movenext loop if javascript1 <> "" then javascript1 = right(javascript1, len(javascript1) - 4) end if rs.close 'načtení textu dodání dodani_text = "" if replace(session("kosik_druh"),"'","") = 1 then Set t = f.OpenTextFile(server.mappath("data_shopy/" & session("server") & "/dodani_osobni_odber_text.txt"),1,true) elseif replace(session("kosik_druh"),"'","") = 2 then Set t = f.OpenTextFile(server.mappath("data_shopy/" & session("server") & "/dodani_zaslani_soukr_text.txt"),1,true) elseif replace(session("kosik_druh"),"'","") = 3 then Set t = f.OpenTextFile(server.mappath("data_shopy/" & session("server") & "/dodani_zaslani_firma_text.txt"),1,true) elseif replace(session("kosik_druh"),"'","") = 4 then Set t = f.OpenTextFile(server.mappath("data_shopy/" & session("server") & "/dodani_splatky_text.txt"),1,true) elseif replace(session("kosik_druh"),"'","") = 5 then Set t = f.OpenTextFile(server.mappath("data_shopy/" & session("server") & "/dodani_zasilkovna_text.txt"),1,true) elseif replace(session("kosik_druh"),"'","") = 6 then Set t = f.OpenTextFile(server.mappath("data_shopy/" & session("server") & "/dodani_balikovna_text.txt"),1,true) end if if t.AtEndOfStream = false then dodani_text = t.readall end if t.Close %> <% if replace(session("kosik_druh"),"'","") = 5 then 'zásilkovna %> <% elseif replace(session("kosik_druh"),"'","") = 6 then 'balíkovna %> <% end if %> <% if dodani_text <> "" then %> <% end if %>   <%= rs("kat") %> "<% if session("kosik_dodani") = cstr(rs("id_dodani")) or clng(request("dodani")) = rs("id_dodani") then %> CHECKED<% end if %>> " VALUE="<%= dodani_cena %>"> <%= rs("nazev") %> - <%= dodani_cena %> Kč <% if rs("post_zdarma_nad") > 0 then %> zdarma objednávky nad <%= rs("post_zdarma_nad") %> Kč<% end if %>   Vyberte pobočku Zásilkovny   Vyberte pobočku Balíkovny <% Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM balikovna ORDER BY obec ASC" rs.Open strSQL, conn, 1, 1 start = 0 do while not rs.eof %> ,<% if rs("obec") <> rs("c_obce") then %> - <%= rs("c_obce") %><% end if %>,<%= rs("psc") %>,<%= rs("adresa") %>"><%= rs("obec") %><% if rs("obec") <> rs("c_obce") then %> - <%= rs("c_obce") %><% end if %> (<%= rs("adresa") %>) <% rs.movenext loop rs.close %>   <%= dodani_text %> <% set f = nothing set t = nothing else %> <% end if %>

<% conn.close %>