 |
 |
 |
 |
<%If Request.QueryString("mc") <> "" Then%>
| Ver Todas las Marcas |
<%
cat_sql = "SELECT * FROM Categorias"
Set cat = Server.CreateObject("ADODB.RecordSet")
Set cat = conexion.Execute(cat_sql)
%>
<%Do while not cat.EOF%>
<%
buscaItem = "SELECT Referencias.referencia FROM Referencias INNER JOIN (Categorias INNER JOIN Subcategorias ON Categorias.id_categoria = Subcategorias.id_categoria) ON Referencias.subcategoria = Subcategorias.id_subcategoria WHERE (((Categorias.id_categoria)=" & cat.Fields("id_categoria") & ") AND ((Referencias.id_marca)=" & Request.QueryString("mc") & "))"
'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("categoria")%> |
<%
subcat_sql = "SELECT * FROM Subcategorias WHERE id_categoria=" & cat.Fields("id_categoria")
Set subcat = Server.CreateObject("ADODB.RecordSet")
Set subcat = conexion.Execute(subcat_sql)
%>
<%Do While Not subcat.EOF%>
<%
buscaItem = "SELECT * FROM Referencias WHERE subcategoria=" & subcat.Fields("id_subcategoria") & " AND id_marca=" & Request.QueryString("mc")
'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=2&marca=<%=Request.QueryString("mc")%>&mc=<%=Request.QueryString("mc")%>"><%=subcat.Fields("sub_categoria")%>(<%=i%>) |
<%End If%>
<%
subcat.MoveNext
Loop
%>
<%
subcat.Close
set subcat=nothing
%>
<%End If%>
<%cat.MoveNext
Loop%>
<%cat.Close
set cat = nothing%> |
<%End If%>
| |
<%If Request.QueryString("mc") = "" Then%>
<%
On Error Resume Next
cas = "SELECT * FROM Marca WHERE idcatal=2 AND logo<>'' ORDER BY id"
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(cas)
%>
<%Do While Not acceso.EOF%>
"> " border=0> |
<%
acceso.MoveNext
Loop
%>
<%acceso.Close
set acceso = nothing%>
<%End If%>
|
 |
 |
 |
 |
|
|
<%If Request.QueryString("mc") <> "" Then%>
<%
On Error Resume Next
cas = "SELECT * FROM Marca WHERE id=" & Request.QueryString("mc")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(cas)
%>
<%Do While Not acceso.EOF%>
" border=0>
<%
acceso.MoveNext
Loop
%>
<%acceso.Close
set acceso = nothing%>
<%End If%>
|
<%If Request.QueryString("subcat") <> "" Then%>
<%
On Error Resume Next
cas = "SELECT * FROM Subcategorias WHERE id_subcategoria=" & 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("filtro")="" AND REquest.QueryString("ref")="" Then%> <%End If%>
<%If Request.QueryString("pid")<>"" Then%>
<%
On Error Resume Next
img = "SELECT * FROM Imagenes WHERE id_referencia=" & Request.QueryString("pid")
Set subacceso = Server.CreateObject("ADODB.RecordSet")
Set subacceso = conexion.Execute(img)
%>
<%If Not subacceso.EOF Then%>
<%
subruta = Split(subacceso.Fields("imagen"),"\")
for i=1 to 3
ruta = ruta & "/" & subruta(i)
Next
%>
<%Else%>
<%End If%>
<%
subacceso.Close
Set subacceso = nothing
%> |
<%=Request.QueryString("ref")%> |
<%
On Error Resume Next
mancat = "SELECT * FROM Caracteristicas WHERE id_referencia=" & Request.QueryString("pid")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(mancat)
%>
<%Do While Not acceso.EOF%>
-
<%=acceso.Fields("caracteristicas")%>
<%
acceso.MoveNext
Loop
%>
<%
acceso.Close
Set acceso = Nothing
%>
|
<%
On Error Resume Next
mancat = "SELECT * FROM Manuales WHERE id_referencia=" & Request.QueryString("pid")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(mancat)
%>
<%If Not acceso.EOF Then%>
| Tipo de Manual |
Manual |
Observaciones |
<%Do While Not acceso.EOF%>
<%If acceso.Fields("tipo_manual")=1 OR acceso.Fields("tipo_manual")=6 OR acceso.Fields("tipo_manual")=7 Then%>
| <%
On Error Resume Next
submanual = "SELECT * FROM `Tipo Manual` WHERE id_manual=" & acceso.Fields("tipo_manual")
Set subacceso = Server.CreateObject("ADODB.RecordSet")
Set subacceso = conexion.Execute(submanual)
%>
<%Do While Not subacceso.EOF%>
<%=subacceso.Fields("tipo_manual")%>
<%
subacceso.MoveNext
Loop
%>
<%
subacceso.Close
Set subacceso = nothing
%> |
<%
div1 = Split(acceso.Fields("manual"),"#")
manual = Split(div1(0),"\")
For i=4 to 7
rutam = rutam & "/" & manual(i)
Next
%>
<%=manual(7)%> |
<%=acceso.Fields("observaciones")%> |
<%End If%>
<%
rutam = ""
acceso.MoveNext
Loop
%>
<%End If%>
<%
acceso.Close
Set acceso = nothing
%>
<%End If%>
<%If Request.QueryString("subcat")<>"" AND Request.QueryString("filtro")<>"" Then%>
<%
prod_sql = "SELECT * FROM Referencias WHERE subcategoria=" & Request.QueryString("subcat") & " AND id_marca=" & Request.QueryString("marca")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(prod_sql)
%>
<%Do while not acceso.EOF%>
|
<%
On Error Resume Next
img = "SELECT * FROM Imagenes WHERE id_referencia=" & acceso.Fields("id_referencia")
Set subacceso = Server.CreateObject("ADODB.RecordSet")
Set subacceso = conexion.Execute(img)
ruta = ""
%>
<%
subacceso.Close
Set subacceso = nothing
%> |
|
<%acceso.MoveNext%>
<%If Not acceso.EOF Then%>
| <%
On Error Resume Next
img = "SELECT * FROM Imagenes WHERE id_referencia=" & acceso.Fields("id_referencia")
Set subacceso = Server.CreateObject("ADODB.RecordSet")
Set subacceso = conexion.Execute(img)
ruta = ""
%>
<%
subacceso.Close
Set subacceso = nothing
%> |
<%End If%> |
<%
If Not acceso.EOF Then
acceso.MoveNext
End If
Loop
%>
<%acceso.Close
set acceso = nothing%>
<%End If%>
|
