<% 'kontrola přihlášení if session("zakaznik_id") = "" then response.clear response.redirect "zakaznik-prihlaseni.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 %>

Zákaznické centrum

<% 'funkce - vyseparování údajů ze session function value(nazev) seznam = zakaznik_string if instr(seznam,nazev) > 0 then 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 if end function Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT zakaznik, kod, datum, stav, obj_stav.nazev AS nazev_stav, platba.nazev AS nazev_platba, dodani.nazev AS nazev_dodani, dodani.kat AS kat_dodani, id_obj, poznamka, balik, balik_datum FROM obj, obj_stav, platba, dodani WHERE id_zakaznik = " & clng(session("zakaznik_id")) & " AND obj.stav = obj_stav.id_obj_stav AND obj.id_platba = platba.id_platba AND obj.id_dodani = dodani.id_dodani ORDER BY datum DESC" rs.Open strSQL, conn, 1, 1 if rs.eof then %> <% else %>

<% do while not rs.eof zakaznik_string = rs("zakaznik") %> <% rs.movenext loop end if rs.close conn.close %>

<%= formatdatetime(rs("datum"),2) %> <%= rs(4) %>

<%= formatdatetime(rs("datum"),2) %>   <%= rs(4) %> <% cena_celkem = 0 cena_celkem2 = 0 Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT cena, ks, zbozi FROM obj2 WHERE id_obj = " & rs("id_obj") rs2.Open strSQL, conn, 1, 1 do while not rs2.eof cena_s_dph = rs2("cena") * rs2("ks") 'cena_bez_dph = round((rs2("cena")/119)* 100 * rs2("ks"),2) %> <% rs2.movenext cena_celkem = cena_celkem + cena_s_dph cena_celkem2 = cena_celkem2 + cena_bez_dph loop rs2.close %> Objednávka číslo <%= rs("kod") %> <%= rs2("zbozi") %> <%= rs2("ks") %>ks <%= cena_s_dph %> Kč Cena celkem <%= cena_celkem %> Kč _menu1" STYLE="<% if not instr(session("css_rozbal"),"obj_podrobnosti" & rs("kod")) = 0 then %>display: none<% end if %>">2" HREF="<%= session("cesta_web") %>zakaznik-objednavky.asp?<% if instr(session("css_rozbal"),"obj_podrobnosti" & rs("kod")) = 0 then %>id<% else %>id2<% end if %>=<%= "obj_podrobnosti" & rs("kod") %>#<%= "obj_podrobnosti" & rs("kod") %>2" ONCLICK="return css_rozbal_menu('obj_podrobnosti<%= rs("kod") %>','obj_podrobnosti<%= rs("kod") %>_menu1','obj_podrobnosti<%= rs("kod") %>_menu2')">ukázat podrobnosti _menu2" STYLE="<% if instr(session("css_rozbal"),"obj_podrobnosti" & rs("kod")) = 0 then %>display: none<% end if %>">2" HREF="<%= session("cesta_web") %>zakaznik-objednavky.asp?<% if instr(session("css_rozbal"),"obj_podrobnosti" & rs("kod")) = 0 then %>id<% else %>id2<% end if %>=<%= "obj_podrobnosti" & rs("kod") %>#<%= "obj_podrobnosti" & rs("kod") %>2" ONCLICK="return css_rozbal_menu('obj_podrobnosti<%= rs("kod") %>','obj_podrobnosti<%= rs("kod") %>_menu1','obj_podrobnosti<%= rs("kod") %>_menu2')">skrýt podrobnosti " STYLE="<% if instr(session("css_rozbal"),"obj_podrobnosti" & rs("kod")) = 0 then %>display: none; <% end if %>"> Způsob doručení a platby <%= rs("kat_dodani") %> - <%= rs("nazev_dodani") %><% if rs("nazev_platba") <> "" then %>, <%= rs("nazev_platba") %><% end if %> <% if rs("balik") <> "" then %> Podrobnosti o zásilce (balíku) Číslo balíku: <%= rs("balik") %> Datum odeslání: <%= rs("balik_datum") %> <% end if %> Adresa doručení <% hodnota = "jmeno2=" %><%= value(hodnota) %> <% hodnota = "firma2=" %><%= value(hodnota) %> <% hodnota = "ulice2=" %><%= value(hodnota) %> <% hodnota = "mesto2=" %><%= value(hodnota) %> <% hodnota = "psc2=" %><%= value(hodnota) %> Fakturační adresa <% hodnota = "kosik_fa_adresa=" %> <% if value(hodnota) = "" then %> Shodná jako adresa dodání <% else %> <% hodnota = "jmeno3=" %><%= value(hodnota) %> <% hodnota = "firma3=" %><%= value(hodnota) %> <% hodnota = "ulice3=" %><%= value(hodnota) %> <% hodnota = "mesto3=" %><%= value(hodnota) %> <% hodnota = "psc3=" %><%= value(hodnota) %> <% hodnota = "ico3=" %>IČO: <%= value(hodnota) %> <% hodnota = "dic3=" %>DIČ: <%= value(hodnota) %> <% end if %> <% if rs("poznamka") <> "" then %> Poznámka k objednávce <%= rs("poznamka") %> <% end if %>