<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% id = request.querystring("id") sql = "SELECT Productos.idProducto, Productos.Modelo, Productos.idCategoria, ProductosCategorias.Categoria, Productos.idSubcategoria, ProductosSubcategorias.Subcategoria, Productos.Novedad, Productos.Foto, Productos.NumLeido, Productos.OK FROM (Productos INNER JOIN ProductosCategorias ON Productos.idCategoria = ProductosCategorias.idCategoria) INNER JOIN ProductosSubcategorias ON Productos.idSubcategoria = ProductosSubcategorias.idSubCategoria WHERE Productos.OK = 1 AND Productos.idCategoria = "& id &" ORDER BY Productos.idSubcategoria DESC" idProducto = 0 Modelo = 1 idCategoria = 2 Categoria = 3 idSubcategoria = 4 Subcategoria = 5 Novedad = 6 Foto = 7 NumLeido = 8 OK = 9 connOpen conn set rsProductos = conn.Execute(sql) if not rsProductos.EOF then ArrProductos = rsProductos.GetRows consulta = true else consulta = false end if rsProductos.close set rsProductos = nothing connClose conn if consulta = true then google_title = ArrProductos(Categoria,0)& " / ofertas" foto = ArrProductos(idCategoria,0) else google_title = "los mejores seguros" end if %> <!--#include file="../includes/inc-titulo.asp" --> - <%=google_title%>
<%if consulta = true then%>

 <%=ArrProductos(Categoria,i)%>


<%for i = 0 to Ubound(ArrProductos,2)%> <%=ArrProductos(Subcategoria,i)%>
<% next end if %>