<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'úprava uvozovek - palců " nazev1 = replace(request("nazev1"),"""","''") nazev2 = replace(request("nazev2"),"""","''") nazev3 = replace(request("nazev3"),"""","''") var_nazev = replace(request("var_nazev"),"""","''") popis1 = replace(request("popis1"),"""","''") popis2 = replace(request("popis2"),"""","''") 'kontrola duplicity zboží v obchodě if request("id_zbozi") <> "" then Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT id_s_zbozi FROM s_zbozi WHERE nazev1 LIKE '" & replace(nazev1,"'",char39) & "' AND nazev2 LIKE '" & replace(nazev2,"'",char39) & "' AND nazev3 LIKE '" & replace(nazev3,"'",char39) & "' AND var_nazev LIKE '" & replace(var_nazev,"'",char39) & "' AND rocnik LIKE '" & rocnik & "' AND id_s_zbozi = ANY (SELECT id_s_zbozi FROM zbozi WHERE id_zbozi_kat = " & request("kat_stara") & ") AND smazano = 0 AND NOT id_s_zbozi = " & request("id_s_zbozi") rs.Open strSQL, conn, 1, 1 if not rs.eof then rs.close conn.close %> <% response.end end if rs.close end if 'získání DPH Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_zbozi_dph_nakup WHERE id_s_zbozi_dph_nakup = " & request("dph_nakup") rs.Open strSQL, conn, 1, 1 dph_nakup = rs("dph") dph_nakup2 = rs("id_s_zbozi_dph_nakup") rs.close Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_zbozi_dph_prodej WHERE id_s_zbozi_dph_prodej = " & request("dph_prodej") rs.Open strSQL, conn, 1, 1 dph_prodej = rs("dph") dph_prodej2 = rs("id_s_zbozi_dph_prodej") rs.close 'uložení značky if not request("znacka2") = "" and request("znacka_nova") = "1" then Set rs2 = CreateObject("ADODB.RecordSet") rs2.Open "s_znacka", conn, 1, 3 rs2.addnew rs2("nazev") = request("znacka2") rs2.Update rs2.close Set rsID = conn.execute("SELECT @@IDENTITY FROM s_znacka") id_znacka = rsID(0) Set rsID = nothing znacka = request("znacka2") else Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev FROM s_znacka WHERE id_s_znacka = " & request("znacka") rs2.Open strSQL, conn, 2, 3 znacka = rs2("nazev") rs2.close id_znacka = request("znacka") end if 'uložení zboží do skladu Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_zbozi WHERE id_s_zbozi = " & request("id_s_zbozi") rs.Open strSQL, conn, 2, 3 nazev1_stary = rs("nazev1") nazev2_stary = rs("nazev2") nazev3_stary = rs("nazev3") var_nazev_stary = rs("var_nazev") rocnik_stary = rs("rocnik") rs("id_s_znacka") = id_znacka rs("nazev1") = nazev1 rs("nazev2") = nazev2 rs("nazev3") = nazev3 nazev_zbozi = znacka nazev_zbozi2 = znacka nazev_zbozi3 = znacka if nazev1 <> "" then nazev_zbozi = nazev_zbozi & " " & nazev1 nazev_zbozi2 = nazev_zbozi2 & " " & nazev1 nazev_zbozi3 = nazev_zbozi3 & " " & nazev1 end if if nazev2 <> "" then nazev_zbozi = nazev_zbozi & " " & nazev2 nazev_zbozi2 = nazev_zbozi2 & " " & nazev2 nazev_zbozi3 = nazev_zbozi3 & " " & nazev2 end if if request("rocnik") <> "" then nazev_zbozi = nazev_zbozi & " " & request("rocnik") nazev_zbozi2 = nazev_zbozi2 & " " & request("rocnik") nazev_zbozi3 = nazev_zbozi3 & " " & request("rocnik") end if if var_nazev <> "" then nazev_zbozi = nazev_zbozi & " " & var_nazev nazev_zbozi2 = nazev_zbozi2 & " " & var_nazev end if if nazev3 <> "" then nazev_zbozi = nazev_zbozi & " " & nazev3 end if rs("nazev_zbozi") = nazev_zbozi rs("nazev_zbozi2") = nazev_zbozi2 rs("nazev_zbozi_kratky") = nazev_zbozi3 rs("dph_nakup") = dph_nakup rs("dph_prodej") = dph_prodej rs("rocnik") = request("rocnik") if request("kr") > 0 then rs("kr") = clng(request("kr")) else rs("kr") = 0 end if rs("var_nazev") = var_nazev rs("kod") = request("kod") if isnumeric(request("cena1")) = true then rs("cena1") = request("cena1") else rs("cena1") = 0 end if if isnumeric(request("cena2")) = true then rs("cena2") = request("cena2") else rs("cena2") = 0 end if if isnumeric(request("cena3")) = true then rs("cena3") = request("cena3") else rs("cena3") = 0 end if if isnumeric(request("cena_puvodni")) = true then rs("cena_puvodni") = request("cena_puvodni") else rs("cena_puvodni") = 0 end if if isnumeric(request("cena_shopy")) = true then rs("cena_shopy") = request("cena_shopy") else rs("cena_shopy") = 0 end if if isnumeric(request("cena_karty1")) = true then rs("cena_karty1") = request("cena_karty1") else rs("cena_karty1") = 0 end if if isnumeric(request("cena_karty2")) = true then rs("cena_karty2") = request("cena_karty2") else rs("cena_karty2") = 0 end if if isnumeric(request("cena_karty3")) = true then rs("cena_karty3") = request("cena_karty3") else rs("cena_karty3") = 0 end if if request("cena_vybrana") = "1" or request("cena_vybrana") = "2" or request("cena_vybrana") = "3" then rs("cena_vybrana") = request("cena_vybrana") if isnumeric(request("cena" & request("cena_vybrana"))) = true then rs("cena") = request("cena" & request("cena_vybrana")) else rs("cena") = 0 end if if request("sleva" & request("cena_vybrana")) > 0 and request("sleva" & request("cena_vybrana")) <= 100 then rs("sleva") = request("sleva" & request("cena_vybrana")) else rs("sleva") = 0 end if else rs("cena_vybrana") = 1 if isnumeric(request("cena1")) = true then rs("cena") = request("cena1") else rs("cena") = 0 end if if request("sleva1") > 0 and request("sleva1") <= 100 then rs("sleva") = request("sleva1") else rs("sleva") = 0 end if end if if request("sleva1") > 0 and request("sleva1") <= 100 then rs("sleva1") = request("sleva1") else rs("sleva1") = 0 end if if request("sleva2") > 0 and request("sleva2") <= 100 then rs("sleva2") = request("sleva2") else rs("sleva2") = 0 end if if request("sleva3") > 0 and request("sleva3") <= 100 then rs("sleva3") = request("sleva3") else rs("sleva3") = 0 end if rs("limit") = request("limit") rs("dph_nakup2") = dph_nakup2 rs("dph_prodej2") = dph_prodej2 rs("ean") = request("ean") rs("ean_box") = request("ean_box") if isnumeric(request("box_vyska")) = true then rs("box_vyska") = request("box_vyska") else rs("box_vyska") = 0 end if if isnumeric(request("box_sirka")) = true then rs("box_sirka") = request("box_sirka") else rs("box_sirka") = 0 end if if isnumeric(request("box_hloubka")) = true then rs("box_hloubka") = request("box_hloubka") else rs("box_hloubka") = 0 end if if isnumeric(request("box_hmotnost")) = true then rs("box_hmotnost") = request("box_hmotnost") else rs("box_hmotnost") = 0 end if if isnumeric(request("zarucni_doba")) = true then rs("zarucni_doba") = request("zarucni_doba") else rs("zarucni_doba") = 0 end if rs("sklad_misto") = request("sklad_misto") rs.update rs.close 'uložení zboží do obchodu if request("id_zbozi") <> "" then 'získání čísla pro řazení razeni = "" if not request("kat_stara") = request("kat") then 'získání počtu řazení Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT COUNT(*) FROM zbozi WHERE id_zbozi_kat = " & request("kat") & " AND smazano = 0" rs.Open strSQL, conn, 1, 1 razeni = rs(0) rs.close end if 'uložení zboží do databáze Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi WHERE id_zbozi = " & request("id_zbozi") rs.Open strSQL, conn, 2, 3 poradi = rs("razeni") id_s_zbozi = rs("id_s_zbozi") skupina = rs("skupina") rs("id_zbozi_kat") = request("kat") if not request("druh_kola") = "" then rs("id_zbozi_druh_kola") = "," & replace(request("druh_kola")," ","") & "," else rs("id_zbozi_druh_kola") = "" end if rs("id_zbozi_dostupnost") = request("dostupnost") rs("popis1") = popis1 rs("popis2") = popis2 if request("akce") = "1" then rs("akce") = true else rs("akce") = false if request("splatky") = "1" then rs("splatky") = true else rs("splatky") = false rs("darek") = request("darek") rs("prislusenstvi") = replace(request("prislusenstvi")," ","") if request("dop_uvod") = "1" then rs("dop_uvod") = true else rs("dop_uvod") = false if request("dop_seznam") = "1" then rs("dop_seznam") = true else rs("dop_seznam") = false if request("nejprod_uvod") = "1" then rs("nejprod_uvod") = true else rs("nejprod_uvod") = false if request("nab_kat") = "1" then rs("nab_kat") = true else rs("nab_kat") = false if not request("kat_nejprod") = "" then rs("kat_nejprod") = "," & replace(request("kat_nejprod")," ","") & "," else rs("kat_nejprod") = "" end if if not razeni = "" then rs("razeni") = razeni + 1 end if rs("darek_typ") = request("darek_typ") if request("zobrazit2") = "1" then rs("zobrazit2") = true else rs("zobrazit2") = false rs("video1") = request("video1") rs.update rs.close if not request("kat_stara") = request("kat") then 'úprava řazení u původní kategorie strSQL = "UPDATE zbozi SET razeni = razeni - 1 WHERE id_zbozi_kat = " & request("kat_stara") & " AND smazano = 0 AND razeni > " & poradi conn.execute strsql end if 'uložení dalších kategorií seznam = split(trim(request("kat_dalsi")),",") for start = 0 to ubound(seznam) Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_dalsi_kat WHERE id_zbozi_kat2 = " & seznam(start) & " AND id_zbozi2 = " & request("id_zbozi") rs.Open strSQL, conn, 2, 3 if rs.eof then rs.addnew rs("id_zbozi2") = request("id_zbozi") rs("id_zbozi_kat2") = seznam(start) rs.Update end if rs.close 'smazání kategorií Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_dalsi_kat WHERE NOT id_zbozi_kat2 IN (" & request("kat_dalsi") & ") AND id_zbozi2 = " & request("id_zbozi") rs.Open strSQL, conn, 2, 3 do while not rs.eof rs.delete rs.update rs.movenext loop rs.close next 'kontrola existence tabulky parametrů Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param_typ WHERE id_zbozi_kat = " & request("kat") rs2.Open strSQL, conn, 1, 1 if not rs2.eof then 'uložení parametrů do databáze Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param" & request("kat") & " WHERE id_zbozi = " & request("id_zbozi") rs.Open strSQL, conn, 2, 3 if rs.eof then rs.addnew rs("id_zbozi") = request("id_zbozi") rs.update rs.close Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param" & request("kat") & " WHERE id_zbozi = " & request("id_zbozi") rs.Open strSQL, conn, 2, 3 end if seznam = split(request("param"),";") for start = 0 to ubound(seznam) - 1 seznam2 = split(seznam(start),"=") rs(seznam2(0)) = seznam2(1) rs.update next rs.close end if rs2.close 'smazání původních parametrů - při změně kategorie if not request("kat_puvodni") = request("kat") then 'kontrola existence tabulky parametrů Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param_typ WHERE id_zbozi_kat = " & request("kat_puvodni") rs2.Open strSQL, conn, 1, 1 if not rs2.eof then Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param" & request("kat_puvodni") & " WHERE id_zbozi = " & request("id_zbozi") rs.Open strSQL, conn, 2, 3 if not rs.eof then rs.delete rs.update end if rs.close end if rs2.close end if if nazev1_stary <> nazev1 or nazev2_stary <> nazev2 or nazev3_stary <> nazev3 or var_nazev_stary <> var_nazev or rocnik_stary <> request("rocnik") then text3 = nazev_zbozi %> <% 'uložení nového odkazu Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT odkaz, foto_pocet, id_zbozi FROM zbozi WHERE id_s_zbozi = " & request("id_s_zbozi") rs.Open strSQL, conn, 2, 3 foto_pocet = rs("foto_pocet") odkaz_stary = rs("odkaz") odkaz_novy = gen_odkaz & "-" & rs("id_zbozi") rs("odkaz") = odkaz_novy rs.update rs.close 'přejmenování fotografií if foto_pocet > 0 then set f = server.createobject("scripting.filesystemobject") cesta = Server.MapPath("../obr_zbozi/" & session("server") & "/") & "\" 'přejmenování hlavní fotografie if f.fileexists(cesta & odkaz_stary & ".jpg") = true then f.MoveFile cesta & odkaz_stary & ".jpg", cesta & odkaz_novy & ".jpg" f.MoveFile cesta & odkaz_stary & "-m.jpg", cesta & odkaz_novy & "-m.jpg" f.MoveFile cesta & odkaz_stary & "-v.jpg", cesta & odkaz_novy & "-v.jpg" end if if f.fileexists(cesta & odkaz_stary & "-bez-vodoznaku.jpg") = true then f.MoveFile cesta & odkaz_stary & "-bez-vodoznaku.jpg", cesta & odkaz_novy & "-bez-vodoznaku.jpg" end if 'přejmenování ostatních fotografií for start = 2 to foto_pocet if f.fileexists(cesta & odkaz_stary & "-m" & start & ".jpg") = true then f.MoveFile cesta & odkaz_stary & "-m" & start & ".jpg", cesta & odkaz_novy & "-m" & start & ".jpg" f.MoveFile cesta & odkaz_stary & "-v" & start & ".jpg", cesta & odkaz_novy & "-v" & start & ".jpg" end if if f.fileexists(cesta & odkaz_stary & "-bez-vodoznaku" & start & ".jpg") = true then f.MoveFile cesta & odkaz_stary & "-bez-vodoznaku" & start & ".jpg", cesta & odkaz_novy & "-bez-vodoznaku" & start & ".jpg" end if next set f = nothing end if end if end if conn.close Response.clear if request("stranka") = "obch-zbozi-pridat" then response.redirect "obch-zbozi.asp?reload=1&form=1&vse=&q=" & request("id_zbozi") & "&seraditobch-zbozi=id_zbozi_d" elseif request("stranka") = "obch-zbozi" then response.redirect "obch-zbozi.asp?reload=1&" & session("vyhledavaniobch-zbozi") else response.redirect "zbozi.asp?" & session("vyhledavanizbozi") end if %>