<%@language="VBScript"%> <% Response.buffer = false %> <% Response.Expires = 0 %> <% Server.ScriptTimeout = 60 %> Přesunutí kategorie do jiné kategorie

ID kategorie přesouvaná
<% Set rs3 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_kat ORDER BY nazev ASC" rs3.Open strSQL, conn, 1, 1 do while not rs3.eof %> "<% if request("id_kat") = cstr(rs3("id_zbozi_kat")) then %> SELECTED<% end if %>><%= rs3("nazev") %>, <%= rs3("odkaz_strom") %>, ID <%= rs3("id_zbozi_kat") %> <% rs3.movenext loop rs3.close %>
Nový název pro zachování původního názvu nechat prázdné

ID kategorie kam přesunout
HLAVNÍ KATEGORIE, ID 0 <% Set rs3 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_kat ORDER BY nazev ASC" rs3.Open strSQL, conn, 1, 1 do while not rs3.eof %> "<% if request("id_kat2") = cstr(rs3("id_zbozi_kat")) then %> SELECTED<% end if %>><%= rs3("nazev") %>, <%= rs3("odkaz_strom") %>, ID <%= rs3("id_zbozi_kat") %> <% rs3.movenext loop rs3.close %>

<% if request("id_kat2") <> "" then 'kontrola, zda nemá přesouvaná kategorie podkategorie pokracovat = true 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 = rs(0) rs.close if pocet > 0 then response.write "Přesouvaná kategorie má podkategorie, nelze přesunout" & "
" pokracovat = false end if if pokracovat = true then 'strom if request("id_kat2") = "0" then strom = 0 else Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT strom FROM zbozi_kat WHERE id_zbozi_kat = " & request("id_kat2") rs2.Open strSQL, conn, 1, 1 strom = rs2("strom") & "," & request("id_kat2") rs2.close end if 'řazení Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT MAX(razeni) FROM zbozi_kat WHERE strom LIKE '" & strom & "'" rs2.Open strSQL, conn, 1, 1 if rs2.eof then razeni = 0 else if isnumeric(rs2(0)) = true then razeni = rs2(0) else razeni = 0 end if end if rs2.close 'generování a uložení odkazu stromu function gen_odkaz(nazev) text3 = nazev %> <% end function seznam = split(strom,",") for start2 = 1 to ubound(seznam) Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev FROM zbozi_kat WHERE id_zbozi_kat = " & seznam(start2) rs2.Open strSQL, conn, 1, 1 if not rs2.eof then odkaz_strom = odkaz_strom & gen_odkaz(rs2("nazev")) & "/" end if rs2.close next 'uložení přesunuté kategorie Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_kat WHERE id_zbozi_kat = " & request("id_kat") rs.Open strSQL, conn, 2, 3 rs("strom") = strom rs("razeni") = razeni + 1 if request("nazev") <> "" then nazev = request("nazev") rs("nazev") = nazev rs("nazev2") = nazev else nazev = rs("nazev") end if rs("odkaz_strom") = odkaz_strom & gen_odkaz(nazev) & "/" & request("id_kat") & "/" rs.update rs.close response.write "Přesunuto" end if end if %>