Nastavení parametrů objednání

Doručení
a platba

<% Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM dodani ORDER BY druh DESC" rs.Open strSQL, conn, 1, 1 start = 0 do while not rs.eof %> <% rs.movenext loop rs.close %>

Druh	Kategorie	Název	Cena	Zkratka	Platba	Pošt. zdarma	Zobrazit v eshopech
DISABLED<% end if %> NAME="dod_druh<%= rs("id_dodani") %>"> <% if rs("druh") = 4 then %> <% end if %>	" SIZE="35" VALUE="<%= rs("kat") %>">	" SIZE="35" VALUE="<%= rs("nazev") %>">	" SIZE="5" VALUE="<%= rs("cena") %>">	" SIZE="15" VALUE="<%= rs("zkratka") %>">	DISABLED<% end if %> NAME="dod_platba<%= rs("id_dodani") %>"> <% Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM platba WHERE nazev <> '' AND nazev IS NOT NULL" rs2.Open strSQL, conn, 1, 1 do while not rs2.eof if (rs("id_platba") = 4 and rs2("id_platba") = 4) or rs2("id_platba") <> 4 then %> <% end if rs2.movenext loop rs2.close %>	nad " SIZE="8" VALUE="<%= rs("post_zdarma_nad") %>">

Osobní odběr text

<% 'načtení textu set f = Server.CreateObject("Scripting.FileSystemObject") Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_osobni_odber_text.txt"),1,true) if t.AtEndOfStream = false then dodani_osobni_odber_text = t.readall end if t.Close %>

Zaslání - soukr text

<% 'načtení textu Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_zaslani_soukr_text.txt"),1,true) if t.AtEndOfStream = false then dodani_zaslani_soukr_text = t.readall end if t.Close %>

Zaslání - firma text

<% 'načtení textu Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_zaslani_firma_text.txt"),1,true) if t.AtEndOfStream = false then dodani_zaslani_firma_text = t.readall end if t.Close %>

Splátky text

<% 'načtení textu Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_splatky_text.txt"),1,true) if t.AtEndOfStream = false then dodani_splatky_text = t.readall end if t.Close %>

Zásilkovna text

<% 'načtení textu Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_zasilkovna_text.txt"),1,true) if t.AtEndOfStream = false then dodani_zasilkovna_text = t.readall end if t.Close %>

Balíkovna text

<% 'načtení textu Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_balikovna_text.txt"),1,true) if t.AtEndOfStream = false then dodani_balikovna_text = t.readall end if t.Close %>

Dostupnost

<% Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_dostupnost" rs.Open strSQL, conn, 1, 1 start = 0 do while not rs.eof start = start + 1 %> <% rs.movenext loop rs.close %>

Název	Hlavní
">	CHECKED<% end if %>>