<%@language="VBScript"%> <% Response.Expires = 0 %> <% response.charset = "windows-1250" %> <% Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev, odkaz_strom, id_zbozi_kat, strom FROM zbozi_kat WHERE strom LIKE '" & sqlinjection(request("strom")) & "," & replace(request("id_kat"),"'","") & "' AND zobrazit_kat = 1 ORDER BY razeni" rs.Open strSQL, conn, 1, 1 if rs.recordcount / 3 <> int(rs.recordcount / 3) then pocet_sloupec = int(rs.recordcount / 3) + 1 else pocet_sloupec = int(rs.recordcount / 3) end if if not rs.eof then %>
<% do while not rs.eof %> <% loop rs.close %>
    <% for start = 1 to pocet_sloupec %>
  • <%= rs("odkaz_strom") %>"><%= rs("nazev") %>
    • <% Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev, odkaz_strom, id_zbozi_kat FROM zbozi_kat WHERE strom LIKE '" & rs("strom") & "," & rs("id_zbozi_kat") & "' AND zobrazit_kat = 1 ORDER BY razeni" rs2.Open strSQL, conn, 1, 1 do while not rs2.eof %>
  • <%= rs2("odkaz_strom") %>"><%= rs2("nazev") %>
    • <% rs2.movenext if rs2.eof then %>
    <% end if loop rs2.close rs.movenext if rs.eof then exit for end if next %>
<% end if %>