<% 'Consulta la lista de productos registrados SQLtxt="SELECT categorias.categoria, productos.producto, productos.id_producto FROM categorias INNER JOIN productos ON categorias.id_categoria = productos.id_categoria WHERE productos.nuevo=true ORDER BY categorias.categoria, productos.producto" set rs=CreateObject("ADODB.Recordset") rs.Open SQLtxt, "DSN=Dalmex" Categoria="" %> <% if (rs.BOF and rs.EOF) then %>
 
No New Products.
 
<%else%>
<% do while not rs.EOF %> <% if rs("categoria")<>Categoria then %> <% categoria=rs("categoria") %> <% end if %> <% rs.MoveNext Loop %>

  <% =rs("Categoria")%>
 
  • " class="link"> <% =rs("producto")%>
  •  
    <% end if %>