<% if session("zbozi_vyber") = "" then %>

Vyberte nejprve zboží ze skladu

<% else %>

">
Zboží <% seznam = split(session("zbozi_vyber"),",") for start = 0 to ubound(seznam) - 1 id_zbozi = seznam(start) Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev_zbozi, id_s_zbozi, ks_sklad, cena, kr FROM s_zbozi WHERE id_s_zbozi = " & id_zbozi rs.Open strSQL, conn, 1, 1 ks = rs("ks_sklad") if ks > 0 then %> <% end if rs.close next %>

ks	sklad	cena s DPH	sleva	kr	kr použít		zboží
" SIZE="3" VALUE="1">	<%= ks %>	,this.form.sleva<%= rs("id_s_zbozi") %>)" ONCHANGE="kontrola_castka(this,event); sleva(<%= rs("id_s_zbozi") %>,this.form.sleva<%= rs("id_s_zbozi") %>)" ONBLUR="vynulovani(this)" TYPE="text" NAME="cena<%= rs("id_s_zbozi") %>" SIZE="10" VALUE="<%= rs("cena") %>">	,this)" ONCHANGE="kontrola_procenta(this); sleva(<%= rs("id_s_zbozi") %>,this)" ONBLUR="vynulovani(this)" TYPE="text" NAME="sleva<%= rs("id_s_zbozi") %>" SIZE="4" MAXLENGTH="5" VALUE="0">	<%= rs("kr") %>	" SIZE="6" VALUE="0">	&strana=prodejky-pridat'}">	<%= rs("nazev_zbozi") %>
		" size="10" VALUE="<%= rs("cena") %>">	cena po slevě

 
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 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 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 %> <% if request("novy_zakaznik") = "1" or request("id_zakaznik") = "" then %><% if request("id_zakaznik") = "" then %>registrovaný zákazník<% else %>">registrovaný zákazník<% end if %><% else %>registrovaný zákazník<% end if %> |  <% if request("novy_zakaznik") = "" and request("id_zakaznik") <> "" then %>nový zákazník<% else %>nový zákazník<% end if %> <% if request("novy_zakaznik") = "" and request("id_zakaznik") <> "" then %>

vybrat jiného |  ">editovat <% else %> <% end if %> STYLE="display: none"<% end if %>>

Kontakt Jméno "> E-mail Telefon Adresa doručení Jméno Firma Ulice Město Psč IČO DIČ

Fakturační adresa jako doručení   jiná Jméno Firma Ulice Město Psč IČO DIČ

"" then %> STYLE="display: none"<% end if %>>

Kontakt Jméno Příjmení E-mail Telefon Heslo Sleva % Kredity Novinky Adresa doručení Jméno Firma Ulice Město Psč IČO DIČ

Fakturační adresa jako doručení   jiná 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 request("platba") = cstr(rs2("id_platba")) then %> SELECTED<% end if %>><%= rs2("nazev") %> <% rs2.movenext loop rs2.close %> Poštovné Balné Poznámka

<% end if %>