<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'uložení údajů do databáze
splatky = "," & replace(request("splatky")," ","") & ","
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM dodani"
rs.Open strSQL, conn, 2, 3
start = 0
do while not rs.eof
	id_dodani = rs("id_dodani")
	rs("nazev") = request("dod_nazev" & id_dodani)
	if isnumeric(request("dod_cena" & id_dodani)) = true then rs("cena") = clng(request("dod_cena" & id_dodani)) else rs("cena") = 0 end if
	rs("zkratka") = request("dod_zkratka" & id_dodani)
	if request("dod_hlavni") = cstr(id_dodani) then rs("hlavni") = true else rs("hlavni") = false end if
	'if instr(splatky,"," & id_dodani & ",") > 0 then rs("splatky") = true else rs("splatky") = false end if
	rs("kat") = request("dod_kat" & id_dodani)
	if request("dod_druh" & id_dodani) <> "" then rs("druh") = request("dod_druh" & id_dodani) end if
	if request("dod_platba" & id_dodani) <> "" then rs("id_platba") = request("dod_platba" & id_dodani) end if
	if isnumeric(request("post_zdarma_nad" & id_dodani)) = true then rs("post_zdarma_nad") = clng(request("post_zdarma_nad" & id_dodani)) else rs("post_zdarma_nad") = 0 end if
	rs("id_shop") = "," & replace(request("id_shop" & id_dodani)," ","") & ","
	rs.update
	rs.movenext
	start = start + 1
loop
rs.close



Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM zbozi_dostupnost"
rs.Open strSQL, conn, 2, 3
start = 0
do while not rs.eof
	start = start + 1
	rs("popis") = request("dostupnost_popis" & start)
	if request("dostupnost_hlavni") = cstr(start) then rs("hlavni") = true else rs("hlavni") = false end if
	rs.update
	rs.movenext
loop
rs.close



'uložení textu dodani do souboru
set f = Server.CreateObject("Scripting.FileSystemObject")
Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_osobni_odber_text.txt"),2,true)
t.write(request("dodani_osobni_odber_text"))
t.Close
Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_zaslani_soukr_text.txt"),2,true)
t.write(request("dodani_zaslani_soukr_text"))
t.Close
Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_zaslani_firma_text.txt"),2,true)
t.write(request("dodani_zaslani_firma_text"))
t.Close
Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_splatky_text.txt"),2,true)
t.write(request("dodani_splatky_text"))
t.Close
Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_zasilkovna_text.txt"),2,true)
t.write(request("dodani_zasilkovna_text"))
t.Close
Set t = f.OpenTextFile(server.mappath("../data_shopy/" & session("server") & "/dodani_balikovna_text.txt"),2,true)
t.write(request("dodani_balikovna_text"))
t.Close
set f = nothing
set t = nothing



conn.close
chyba = "Uloženo"



Response.clear
response.redirect "obch-nastaveni.asp?chyba=" & chyba
 %>