<%
'id_kat
'vytvoření bct
if isnumeric(id_kat) = true then
bct = ""
Set rs_bct = CreateObject("ADODB.RecordSet")
strSQL = "SELECT strom FROM zbozi_kat WHERE id_zbozi_kat = " & id_kat
rs_bct.Open strSQL, conn, 1, 1
if not rs_bct.eof then
seznam = split(rs_bct("strom") & "," & id_kat,",")
for start = 0 to ubound(seznam)
Set rs_bct2 = CreateObject("ADODB.RecordSet")
strSQL = "SELECT odkaz_strom, nazev FROM zbozi_kat WHERE id_zbozi_kat = " & seznam(start)
rs_bct2.Open strSQL, conn, 1, 1
if not rs_bct2.eof then
bct = bct & "" & rs_bct2("nazev") & " - "
end if
next
end if
%>
<%
end if
%>