<% if session("id_kat") <> "" and (session("skladem") = true or session("akce-a-slevy") = true or session("znacky") = true) then %> <% if session("skladem") = true then %>skladem<% elseif session("akce-a-slevy") = true then %>akce-a-slevy<% else %>znacky/<%= session("znacky_odkaz") %>/<%= session("znacky_id") %>/<% end if %>" STYLE="color: #987a00">

Všechny kategorie

<% end if %> <% 'filtrovaní kategorie if session("skladem") = true or session("akce-a-slevy") = true or session("znacky") = true then 'výpisy skladem nebo akce nebo značky if session("strom") <> "" then zobrazit_filtr = true end if if session("skladem") = true then filtr = filtr_kat & filtr_skladem elseif session("akce-a-slevy") = true then filtr = filtr_kat & filtr_akce elseif session("znacky") = true then filtr = filtr_kat & filtr_znacka end if Set rs_kat = CreateObject("ADODB.RecordSet") strSQL = "SELECT zbozi_kat.id_zbozi_kat AS id_zbozi_kat, MAX(zbozi_kat.strom) AS strom FROM zbozi, s_zbozi, zbozi_kat, s_znacka WHERE zbozi.id_zbozi_kat = zbozi_kat.id_zbozi_kat AND zbozi.id_s_zbozi = s_zbozi.id_s_zbozi AND s_zbozi.id_s_znacka = s_znacka.id_s_znacka" & filtr & " AND (zobrazit = 1 OR skupina_zobrazit = 1) AND zbozi.smazano = 0 GROUP BY zbozi_kat.id_zbozi_kat" if request("test") = "1" then response.write strSQL end if rs_kat.Open strSQL, conn, 1, 1 do while not rs_kat.eof if instr("," & seznam_kat,"," & rs_kat("strom") & "," & rs_kat("id_zbozi_kat") & ",") = 0 then seznam_kat = seznam_kat & rs_kat("strom") & "," & rs_kat("id_zbozi_kat") & "," end if seznam = split(rs_kat("strom"),",") if ubound(seznam) = 0 then seznam_kat_top = seznam_kat_top & rs_kat("id_zbozi_kat") & "," else if instr("," & seznam_kat_top,"," & seznam(1) & ",") = 0 then seznam_kat_top = seznam_kat_top & seznam(1) & "," end if end if rs_kat.movenext loop if seznam_kat <> "" then seznam_kat = left(seznam_kat,len(seznam_kat)-1) end if if seznam_kat_top <> "" then seznam_kat_top = left(seznam_kat_top,len(seznam_kat_top)-1) end if filtr_kat2 = " AND zbozi_kat.id_zbozi_kat IN (" & seznam_kat & ")" rs_kat.close if session("id_kat") <> "" then filtr_kat_hlavni = " AND (zbozi_kat.id_zbozi_kat IN (" & session("strom") & "," & session("id_kat") & ") OR strom LIKE '" & session("strom") & "," & session("id_kat") & "')" & filtr_kat2 else filtr_kat_hlavni = " AND zbozi_kat.id_zbozi_kat IN (" & seznam_kat_top & ")" end if else if session("strom") <> "0" or session("zobrazit_zbozi_podkat") = false then zobrazit_filtr = true end if filtr_kat_hlavni = " AND (zbozi_kat.id_zbozi_kat IN (" & session("strom") & "," & session("id_kat") & ") OR strom LIKE '" & session("strom") & "," & session("id_kat") & "')" end if 'výpis z db start2 = 0 Set rs_kat = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev, odkaz, id_zbozi_kat, odkaz_strom, strom FROM zbozi_kat WHERE zobrazit_kat = 1" & filtr_kat_hlavni & " ORDER BY strom, razeni" if request("test") = "1" then response.write strSQL end if rs_kat.Open strSQL, conn, 1, 1 do while not rs_kat.eof start2 = start2 + 1 if session("id_kat") = rs_kat("id_zbozi_kat") then 'vybraná kategorie end if %> kat-vybrano<% else %> kat-nevybrano<% end if %>" HREF="<%= session("cesta_web") %><% if session("skladem") = true then %>skladem/<% elseif session("akce-a-slevy") = true then %>akce-a-slevy/<% elseif session("znacky") = true then %>znacky/<%= session("znacky_odkaz") %>/<%= session("znacky_id") %>/<% end if %><%= rs_kat("odkaz_strom") %>">

" class="uroven<%= ubound(split(rs_kat("strom"),","))+1 %>"><%= rs_kat("nazev") %>

<% rs_kat.movenext loop rs_kat.close cas = timer - cas_zacatek cas_vse = cas_vse & "cas2: " & cas & "s" & "; " %>

<% 'žhavé nabídky pod seznamem kategorií Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev_zbozi2, sleva, cena, cena_puvodni, cena_karty1, cena_karty2, cena_karty3, zbozi.odkaz AS odkaz, id_zbozi, zbozi_kat.odkaz_strom AS odkaz_kat, foto_pocet, kr, foto_pocet_bez_vodoznaku, akce, id_zbozi_dostupnost, skupina, darek, darek_typ, splatky FROM zbozi, s_zbozi, zbozi_kat WHERE zbozi.id_s_zbozi = s_zbozi.id_s_zbozi AND zbozi.id_zbozi_kat = zbozi_kat.id_zbozi_kat AND nab_kat = 1 AND zobrazit = 1 AND zbozi.smazano = 0 ORDER BY razeni_nab_kat ASC" rs2.Open strSQL, conn, 1, 1 if not rs2.eof then %> <% start = 0 do while not rs2.eof %> <% rs2.movenext start = start + 1 if start > 50 then exit do end if loop end if rs2.close cas = timer - cas_zacatek cas_vse = cas_vse & "cas5: " & cas & "s" & "; " %> <% if session("server") = "bikestore" then %>


<% end if %>