<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'kontrola if request("submit") = "Přidat" then 'přidání response.clear response.redirect "seznam-kat-edit.asp?novy=1&id_kat=" & request("id_kat") elseif request("id_kat") = "" then response.clear response.redirect "seznam-kat.asp" end if if request("submit") = "Editovat" then 'editace response.clear response.redirect "seznam-kat-edit.asp?id_kat=" & request("id_kat") elseif request("submit") = "Smazat" then id_kat = request("id_kat") 'kontrola, zda není v kategorií zboží Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT COUNT(*) FROM zbozi WHERE id_zbozi_kat = " & request("id_kat") rs.Open strSQL, conn, 1, 1 pocet = rs(0) rs.close 'kontrola, zda nemá kategorie podkategorie Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT strom FROM zbozi_kat WHERE id_zbozi_kat = " & request("id_kat") rs.Open strSQL, conn, 1, 1 strom = rs("strom") rs.close Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT COUNT(*) FROM zbozi_kat WHERE strom LIKE '" & strom & "," & request("id_kat") & "'" rs.Open strSQL, conn, 1, 1 pocet = pocet + rs(0) rs.close if pocet = 0 then 'smazání kategorie Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_kat WHERE id_zbozi_kat = " & request("id_kat") rs.Open strSQL, conn, 2, 3 razeni = rs("razeni") strom = rs("strom") rs.delete rs.update rs.close 'úprava řazení Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT razeni FROM zbozi_kat WHERE strom LIKE '" & strom & "' AND razeni > " & razeni rs.Open strSQL, conn, 2, 3 do while not rs.eof rs("razeni") = rs("razeni") - 1 rs.update rs.movenext loop rs.close 'získání id předešlé kategorie if not strom = "0" then seznam = split(strom,",") Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT id_zbozi_kat FROM zbozi_kat WHERE id_zbozi_kat = " & seznam(ubound(seznam)) rs.Open strSQL, conn, 1, 1 id_kat = rs("id_zbozi_kat") rs.close end if 'smazání parametrů pro danou kategorii Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param_typ WHERE id_zbozi_kat = " & request("id_kat") rs.Open strSQL, conn, 2, 3 if not rs.eof then do while not rs.eof rs.delete rs.update rs.movenext loop rs.close 'smazání tabulky parametrů strSQL = "DROP TABLE zbozi_param" & request("id_kat") conn.execute strSQL end if else %> <% response.end end if conn.close response.clear response.redirect "seznam-kat.asp?reload=1&id_kat=" & id_kat elseif request("submit") = "Nahoru" or request("submit") = "Dolu" then 'posunutí response.clear response.redirect "seznam-kat-posun.asp?submit=" & request("submit") & "&id_kat=" & request("id_kat") end if %>