 |
 |
 |
 |
<%
cat_sql = "SELECT * FROM categoria"
Set cat = Server.CreateObject("ADODB.RecordSet")
Set cat = conexion.Execute(cat_sql)
%>
<%Do while not cat.EOF%>
<%
buscaItem = "SELECT productos.idproducto FROM productos INNER JOIN (categoria INNER JOIN subcategoria ON categoria.idcat = subcategoria.idcat) ON productos.idcatdep = subcategoria.idsubcat WHERE ((categoria.idcat=" & cat.Fields("idcat") & ") AND (productos.catalogo=1))"
'response.write buscaItem
Set BI = Server.CreateObject("ADODB.RecordSet")
'Set BI = conexion.Execute(buscaItem)
BI.Open buscaItem,conexion,3,3
j=BI.RecordCount
%>
<%
BI.Close
Set BI = nothing
%>
<%If j>0 Then%>
| <%=cat.Fields("nombre")%> |
<%
subcat_sql = "SELECT * FROM subcategoria WHERE idcat=" & cat.Fields("idcat")
Set subcat = Server.CreateObject("ADODB.RecordSet")
Set subcat = conexion.Execute(subcat_sql)
%>
<%Do While Not subcat.EOF%>
<%
buscaItem = "SELECT * FROM productos WHERE catalogo=1" & " AND idcatdep=" & subcat.Fields("idsubcat")
'response.write buscaItem
Set BI = Server.CreateObject("ADODB.RecordSet")
'Set BI = conexion.Execute(buscaItem)
BI.Open buscaItem,conexion,3,3
i=BI.RecordCount
%>
<%
BI.Close
Set BI = nothing
%>
<%If i > 0 Then%>
|
&filtro=1"><%=subcat.Fields("nombre")%>(<%=i%>) |
<%End If%>
<%
subcat.MoveNext
Loop
%>
<%
subcat.Close
set subcat=nothing
%>
<%End If%>
<%cat.MoveNext
Loop%>
<%cat.Close
set cat = nothing%> |
 |
 |
 |
 |
|
<%If Request.QueryString("subcat")<>"" Then%>
<%
On Error Resume Next
cas = "SELECT * FROM subcategoria WHERE idsubcat=" & Request.QueryString("subcat")
Set subacceso = Server.CreateObject("ADODB.RecordSet")
Set subacceso = conexion.Execute(cas)
%>
<%Do While Not subacceso.EOF%>
 " border=0>
<%
subacceso.MoveNext
Loop
%>
<%subacceso.Close
set subacceso = nothing%> |
<%End If%>
<%If Request.QueryString="" Then%>
<%End If%>
<%If Request.QueryString("pid")<>"" Then%>
<%
prod_busq = "SELECT * FROM productos WHERE idproducto=" & Request.QueryString("pid")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(prod_busq)
%>
<%Do while not acceso.EOF%>
 "> |
<%=acceso.Fields("referencia")%> |
<%
prod_det = "SELECT * FROM detalleprod WHERE idproducto=" & acceso.Fields("idproducto")
Set subacceso = Server.CreateObject("ADODB.RecordSet")
Set subacceso = conexion.Execute(prod_det)
%>
<%Do while not subacceso.EOF%>
| - |
<%=subacceso.Fields("especificacion")%> |
<%
subacceso.Movenext
Loop
%>
<%
subacceso.Close
Set subacceso = nothing
%> |
<%
acceso.Movenext
Loop
%>
<%
acceso.Close
Set acceso = nothing
%>
<%End If%>
<%If Request.QueryString("subcat")<>"" AND Request.QueryString("filtro")<>"" Then%>
<%
prod_sql = "SELECT * FROM productos WHERE catalogo=" & Request.QueryString("filtro") & " AND idcatdep=" & Request.QueryString("subcat")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(prod_sql)
%>
<%Do while not acceso.EOF%>
|
|
<%acceso.MoveNext%>
<%If Not acceso.EOF Then%>
<%End If%> |
<%
If Not acceso.EOF Then
acceso.MoveNext
End If
Loop
%>
<%acceso.Close
set acceso = nothing%>
<%End If%>
|
