") end if nomant=rs("Categoria") %> ") rs.close set rs=nothing %>
  <% dim rs,strsql,nomant,IdCategoria,IdFamilia //Inicializacion IdCategoria=Request("IdCategoria") IdFamilia=Request("IdFamilia") if IdCategoria="" then IdCategoria=1 if IdFamilia="" then IdFamilia=1 nomant="" //Seteo de Objetos set rs=Server.CreateObject("adodb.recordset") strsql="SELECT DISTINCT Familia.DescripFam as Familia, Categoria.Descripcion as Categoria, Articulo.IdCategoria as IdCategoria, Articulo.IdFamilia as IdFamilia FROM Articulo,Categoria,Familia WHERE (Articulo.idFamilia=Familia.CodFam) AND (Articulo.idCategoria=Categoria.IdCategoria) ORDER BY Articulo.idCategoria, Articulo.idFamilia" rs.open strsql,con while not rs.eof if rs("Categoria") <> nomant then if nomant <> "" then Response.Write("
 
» )" style="cursor:pointer;"><%=rs("Categoria")%>
cint(IdCategoria) then Response.Write("style='display:none'") elseif Request("IdFamilia") = "" then Response.Write("style='display:none'") end if %>id="<%=rs("IdCategoria")%>"> <% else %> <% end if rs.movenext wend Response.Write("
  » &IdFamilia=<%=rs("IdFamilia")%>', 'loader')" style="cursor:pointer;"><%=rs("Familia")%>
  » &IdFamilia=<%=rs("IdFamilia")%>', 'loader')" style="cursor:pointer;"><%=rs("Familia")%>