"> "> ">

	<% if rs("id_obj") > 0 then %>" TARGET="obsah">Ukaž objednávku >><% else %> <% end if %>
VS	<%= vs %>
Kód obj	<%= kod_obj %>
Datum přidání	<%= rs("datum") %>
Datum zdan. plnění	<%= rs("datum_dph") %>
Vystavil	<%= rs("admin") %>
Zboží
'" DISABLED> "1" then %> STYLE="visibility: hidden"<% end if %>> "1" then %> STYLE="visibility: hidden"<% end if %>> Poštovné " DISABLED> Balné " DISABLED> Celkem s DPH <%= round(cena_celkem,1) %> Celkem vážená <%= round(cena_celkem_vazena,1) %> Zisk <%= round(cena_celkem - cena_celkem_vazena,1) %>   Použité kredity Kredity z této objednávky Kredity zákazníka celkem
Zákazník	<% if request("id_zakaznik") <> "" then id_zakaznik = request("id_zakaznik") 'generování údajů o zákazníkovi do řetězce Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT zakaznik.jmeno AS jmeno, prijmeni, email, tel, zakaznik_adr.jmeno AS jmeno2, firma AS firma2, ulice AS ulice2, mesto AS mesto2, psc AS psc2, ico AS ico2, dic AS dic2, kr FROM zakaznik, zakaznik_adr WHERE zakaznik.id_zakaznik = " & id_zakaznik & " AND zakaznik.id_zakaznik = zakaznik_adr.id_zakaznik AND fakturacni = 0" rs2.Open strSQL, conn, 1, 1 for each polozka in rs2.fields zakaznik = zakaznik & polozka.name & "=" & polozka.value & "&" next rs2.close Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT jmeno AS jmeno3, firma AS firma3, ulice AS ulice3, mesto AS mesto3, psc AS psc3, ico AS ico3, dic AS dic3 FROM zakaznik_adr WHERE id_zakaznik = " & id_zakaznik & " AND fakturacni = 1" rs2.Open strSQL, conn, 1, 1 if not rs2.eof then for each polozka in rs2.fields zakaznik = zakaznik & polozka.name & "=" & polozka.value & "&" next end if rs2.close else id_zakaznik = rs("id_zakaznik") zakaznik = rs("zakaznik") end if 'funkce - vyseparování údajů z objednávky function value(nazev) seznam = zakaznik 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 %> editovat Kontakt ID <%= id_zakaznik %> Jméno " DISABLED> E-mail Telefon Adresa doručení Jméno Firma Ulice Město Psč IČO DIČ Fakturační adresa CHECKED<% end if %> DISABLED>jako doručení    CHECKED<% end if %> DISABLED>jiná STYLE="display: none"<% end if %>> Jméno Firma Ulice Město Psč IČO DIČ
Platba	<% Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM platba WHERE NOT nazev LIKE '' ORDER BY id_platba" rs2.Open strSQL, conn, 1, 1 do while not rs2.eof %> "<% if rs("id_platba") = rs2("id_platba") then %> SELECTED<% end if %>><%= rs2("nazev") %> <% rs2.movenext loop rs2.close %>
Poznámka	<%= rs("poznamka") %>