<%@language="VBScript"%> <% Response.Expires = 0 %> <% Server.Execute("inc_shopy/" & session("server") & "/head.asp") %> <% id_kat = session("id_kat") %> <% 'reklamní baner Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT TOP 1 * FROM reklama_kat WHERE zobrazit = 1 AND kat LIKE '%," & replace(session("id_kat"),"'","") & ",%' ORDER BY id_reklama_kat" rs2.Open strSQL, conn, 1, 1 if not rs2.eof then %>

<% if rs2("pripona") = "swf" then %> <% if rs2("odkaz") <> "" then %>"><% end if %>

<% else %> <% if rs2("odkaz") <> "" then %>"><% end if %>

data_shopy/baner_kat/<%= session("server") %>/<%= rs2("id_reklama_kat") %>.<%= rs2("pripona") %>" ALT="<%= rs2("nazev") %>" BORDER="0"><% if rs2("odkaz") <> "" then %><% end if %> <% end if %>
<% end if rs2.close 'reklamní baner - konec %>

<%= session("nazev2_kat") %>

<%= filtr_nadpis %>

<% if not session("porovnani_kat") = "" then pocet = 0 seznam = split(session("porovnani_kat"),",") for start = 0 to ubound(seznam) - 1 if start = 0 then porovnani_kat = seznam(start) end if pocet = pocet + ubound(split(session("porovnani" & seznam(start)),",")) next %>

Máte přidáno zboží k porovnání (<%= pocet %>) zbozi-porovnat.asp?id_kat=<%= porovnani_kat %>">Zobrazitzbozi-porovnat-odstranit.asp">Odstranit vše

<% end if %> <% 'nejprodávanější zboží start = 0 Set rs_nejprod = CreateObject("ADODB.RecordSet") strSQL = "SELECT TOP 10 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 " & filtr_kat & " AND (kat_nejprod IS NULL OR kat_nejprod = '' OR kat_nejprod LIKE '," & replace(session("id_kat"),"'","") & ",') AND zobrazit = 1 AND zbozi.smazano = 0 ORDER BY kat_nejprod DESC, ks_obj DESC" rs_nejprod.Open strSQL, conn, 1, 1 if rs_nejprod.recordcount > 0 then %>

Nejprodávanější

<% rozbal = 1 %> <% end if cas = timer - cas_zacatek cas_vse = cas_vse & "cas6: " & cas & "s" & "; " %> <% 'výpis zboží if not rs.eof then rs.PageSize = 18 if request("str") = "" then rs.AbsolutePage = 1 strana = 1 else rs.AbsolutePage = clng(request("str")) strana = clng(request("str")) end if end if if not rs.eof then %>

Seřazení: Název <% if not request("seradit") = "nazev_zbozi_n" then %><% end if %>

gfx/<%= session("server") %>/<% if not request("seradit") = "nazev_zbozi_n" then %>submit_seradit_nahoru_off.gif<% else %>submit_seradit_nahoru.gif<% end if %>" ALT="" WIDTH="16" HEIGHT="16" BORDER="0" ALIGN="absmiddle" HSPACE="2"><% if not request("seradit") = "nazev_zbozi_n" then %><% end if %> <% if not request("seradit") = "nazev_zbozi_d" then %><% end if %>

gfx/<%= session("server") %>/<% if not request("seradit") = "nazev_zbozi_d" then %>submit_seradit_dolu_off.gif<% else %>submit_seradit_dolu.gif<% end if %>" ALT="" WIDTH="16" HEIGHT="16" BORDER="0" ALIGN="absmiddle" HSPACE="2"><% if not request("seradit") = "nazev_zbozi_d" then %><% end if %> Cena <% if not request("seradit") = "cena_n" then %><% end if %>

gfx/<%= session("server") %>/<% if not request("seradit") = "cena_n" then %>submit_seradit_nahoru_off.gif<% else %>submit_seradit_nahoru.gif<% end if %>" ALT="" WIDTH="16" HEIGHT="16" BORDER="0" ALIGN="absmiddle" HSPACE="2"><% if not request("seradit") = "cena_n" then %><% end if %> <% if not request("seradit") = "cena_d" then %><% end if %>

gfx/<%= session("server") %>/<% if not request("seradit") = "cena_d" then %>submit_seradit_dolu_off.gif<% else %>submit_seradit_dolu.gif<% end if %>" ALT="" WIDTH="16" HEIGHT="16" BORDER="0" ALIGN="absmiddle" HSPACE="2"><% if not request("seradit") = "cena_d" then %><% end if %>

<% if request("f") = "1" or session("param_kat_filtr" & session("id_kat")) <> "" then nazev_zbozi_dlouhy = 1 end if porovnat_zbozi = 1 for start = 1 to rs.PageSize %>

<% rs.movenext if rs.eof then exit for end if next %>

<% else %>

Žádné zboží nebylo nalezeno

<% end if rs.close conn.close cas = timer - cas_zacatek cas_vse = cas_vse & "cas7: " & cas & "s" & "; " if request("test_cas") <> "" then response.write "test casu: " & cas_vse end if %>

<% Server.Execute("inc_shopy/" & session("server") & "/bottom.asp") %>