<%@language="VBScript"%> <% Response.Expires = 0 %> <% session("tittle") = "Skladem" %> <% Server.Execute("inc_shopy/" & session("server") & "/head.asp") %>

Skladem<% if session("nazev2_kat") <> "" then %> - <%= session("nazev2_kat") %><% end if %>

<%= 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 %> <% '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 & "cas6: " & cas & "s" & "; " if request("test") = "1" then response.write "test" & cas_vse end if %>

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