<%@language="VBScript"%> <% Response.Expires = -1 %> "> "> Kategorie

"> "> <% if not request("kat") = "" then Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT strom, nazev FROM zbozi_kat WHERE id_zbozi_kat = " & request("kat") rs.Open strSQL, conn, 1, 1 strom_kat = rs("strom") nazev_kat2 = rs("nazev") rs.close end if 'kategorie - generování stromu nahoru if not strom_kat = "" then strom = strom_kat & "," & request("kat") 'získání názvu podkategorií if not strom_kat = "0" then Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev FROM zbozi_kat WHERE id_zbozi_kat IN (" & right(strom_kat,len(strom_kat) - 2) & ")" rs.Open strSQL, conn, 1, 1 do while not rs.eof nazev_kat = nazev_kat & rs("nazev") & " - " rs.movenext loop nazev_kat = nazev_kat & nazev_kat2 rs.close else nazev_kat = nazev_kat2 end if else strom = 0 nazev_kat = nazev_kat2 end if strom = split(strom,",") for start = 0 to ubound(strom) 'získání id další kategorie dalsi_kat = 0 if start < ubound(strom) then dalsi_kat = clng(strom(start+1)) end if 'získání stromu pro vyhledání v databázi strom2 = "" for start2 = 0 to start strom2 = strom2 & strom(start2) & "," next strom2 = left(strom2,len(strom2)-1) uroven = split(strom2,",") uroven = ubound(uroven) Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev, odkaz, id_zbozi_kat FROM zbozi_kat WHERE strom LIKE '" & strom2 & "' ORDER BY razeni" rs.Open strSQL, conn, 1, 1 do while not rs.eof posunuti = "" for start2 = 1 to start posunuti = posunuti & "    " next %> "<% if cstr(rs("id_zbozi_kat")) = request("kat") then %> SELECTED<% end if %>><%= posunuti %><%= rs("nazev") %> <% if dalsi_kat = rs("id_zbozi_kat") then Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT id_zbozi_kat FROM zbozi_kat WHERE strom LIKE '" & strom2 & "," & dalsi_kat & "' ORDER BY razeni" rs2.Open strSQL, conn, 1, 1 if not rs2.eof then nahoru = true rs2.close exit do else strom2_zmena = true end if rs2.close end if id_kat = rs("id_zbozi_kat") rs.movenext loop rs.close if dalsi_kat = 0 then if strom2_zmena = true and not strom_kat = "0" then strom2 = replace(strom2,"," & request("kat"),"," & id_kat) end if exit for end if start3 = start3 + 1 if start3 = 20 then exit for end if next 'kategorie - generování stromu dolů if nahoru = true then for start = 1 to ubound(strom) 'získání id předešlé kategorie predesla_kat = right(strom2,len(strom2) - instrrev(strom2,",")) 'získání stromu pro vyhledání v databázi strom2 = replace(strom2,"," & predesla_kat,"") uroven = split(strom2,",") uroven = ubound(uroven) Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev, odkaz, id_zbozi_kat FROM zbozi_kat WHERE strom LIKE '" & strom2 & "' AND razeni > (SELECT razeni FROM zbozi_kat WHERE id_zbozi_kat = " & predesla_kat & ") ORDER BY razeni" rs.Open strSQL, conn, 1, 1 do while not rs.eof posunuti = "" for start2 = 1 to ubound(strom)-start posunuti = posunuti & "    " next %> "><%= posunuti %><%= rs("nazev") %> <% if dalsi_kat = rs("id_zbozi_kat") then exit do end if rs.movenext loop rs.close next end if %>


<% if not request("prvek") = "" then %> ',this.form.kat.value,'<%= nazev_kat %>')}"> <% else %> opener.nazev_kat.innerHTML = '<%= nazev_kat %>'; opener.formular.kat.value = '<%= request("kat") %>'; opener.parametry.location.href = 'obch-zbozi-param-frame.asp?id_zbozi=&id_kat=<%= request("kat") %>&imp=<%= request("imp") %>'; <% end if %>window.close()"> <% end if %>

<% conn.close %>