<%set consulta = server.CreateObject("adodb.recordset") if session("lang") = 0 then consulta.open "SELECT productos.disenyo, productos.id, disenyos.id as dsg, disenyos.nombre as dnom, disenyos.imagen as imagen, disenyos.descripcion as descripcion FROM productos, disenyos WHERE productos.disenyo=disenyos.id AND productos.estado=3 AND productos.borrado = 0 AND productos.visible = 1 GROUP BY productos.disenyo ORDER BY disenyos.nombre ASC",conexion else consulta.open "SELECT productos.disenyo, productos.id, disenyos.id as dsg, disenyos.nombre as dnom, disenyos.imagen as imagen, disenyos.desceng as desceng FROM productos, disenyos WHERE productos.disenyo=disenyos.id AND productos.estado=3 AND productos.borrado = 0 AND productos.visible = 1 GROUP BY productos.disenyo ORDER BY disenyos.nombre ASC",conexion end if 'Response.Write("SELECT productos.disenyo, productos.id, disenyos.id as dsg, disenyos.nombre as dnom, disenyos.imagen as imagen, disenyos.descripcion as descripcion FROM productos, disenyos WHERE productos.disenyo=disenyos.id AND productos.estado=3 AND productos.borrado = 0 AND productos.visible = 1 GROUP BY productos.disenyo ORDER BY disenyos.nombre ASC
") total = recCount(consulta) pagina = int(request("pag")) if pagina <1 then pagina = 1 end if paginas = Round(total / 6) if (paginas*6) < total then paginas = paginas + 1 end if pos = 1 inicial = ((pagina-1)*6) consulta.move inicial%>

.gif">

<%do until consulta.eof or pos>6%>

<%set productos = server.CreateObject("adodb.recordset") ' sql= "SELECT productos.id as pid, productos.estado as pestado, subfamilias.icono as icono, productos.pvp as pvp, productos.imagen, subfamilias.nombre as subnom, subfamilias.name as subnomeng FROM productos, subfamilias WHERE productos.subfamilia = subfamilias.id AND productos.disenyo = "&consulta.fields("dsg")&" AND productos.estado = 1 AND productos.borrado = 0 AND productos.empresa = 5 GROUP BY productos.pvp ASC" productos.open "SELECT productos.id as pid, productos.estado as pestado, subfamilias.icono as icono, format(productos.pvp,0) as pvp, productos.imagen, subfamilias.nombre as subnom, subfamilias.name as subnomeng, productos.img_tbn FROM productos, subfamilias WHERE productos.subfamilia = subfamilias.id AND productos.disenyo="&consulta.fields("dsg")&" AND productos.estado='3' AND productos.borrado='0' AND productos.empresa='5' GROUP BY subfamilias.nombre ASC",conexion 'response.Write(sql) tumb = consulta.fields("imagen") nombre = consulta.fields("dnom") if session("lang") = 0 then miDesc = consulta.fields("descripcion") //' response.Write(miDesc) else miDesc = consulta.fields("desceng") end if 'Response.Write("

") 'response.Write(productos.RecordCount) if not productos.eof then 'Response.Write("

entra") %> <%end if consulta.movenext%>

&cual=catchico">

<%=(nombre)%> <%'if consulta.fields("pestado") = 2 or consulta.fields("pestado") > 4 then%> .gif" align="absmiddle"> <%'end if%> <%'if consulta.fields("pestado") = 3 or consulta.fields("pestado") = 5 or consulta.fields("estado") = 7 then%> <%'end if%>

<%=(miDesc)%>

<%do until productos.eof id = productos.fields("pid") icono = productos.fields("icono") if session("lang") = 0 then Desc = productos.fields("subnom") else Desc = productos.fields("subnomeng") end if precio = productos.fields("pvp") 'response.Write("precio="&dime("productos","pvp",productos.fields("pid"))) estilo = "" sql= "SELECT DISTINCT materias_almacenes.unidades, materias_almacenes.umbral FROM materias_primas, materias_almacenes WHERE materias_almacenes.almacen=2 AND materias_almacenes.mat_prima IN (SELECT productos_mat_primas.mat_primas FROM productos_mat_primas WHERE productos_mat_primas.producto='"&productos.fields("pid")&"')" 'Response.Write("

"&sql&"

") set res_almacen = server.CreateObject("adodb.recordset") res_almacen.open sql,conexion mostrar_carrito= 1 do until res_almacen.eof if res_almacen.fields("unidades") <%else%>

<%end if%> <%productos.movenext loop%>

.gif" width="139" height="21">
&cual=catchico" onmousemove="mostrar_capa_tbn('adax/img/img_5/<%=productos.fields("img_tbn")%>');" onMouseOver="mostrar_capa_tbn('adax/img/img_5/<%=productos.fields("img_tbn")%>');" onMouseOut="oculta_capa_tbn();">	<%=(formatNumber(precio,2))%> €	<%if mostrar_carrito=1 then%> ')">

<% pos = pos + 1 loop %>
<%if pagina > 1 then destino = pagina - 1%> <%else%> <%end if%> <%if pagina < paginas then destino = pagina + 1%> <%else%> <%end if%>

<%=(pagina&" / "&paginas)%>

<%if flash > 0 then%> <%else%> <%end if%>