<%set consulta = server.CreateObject("adodb.recordset") dia= day(Date) mes= Month(Date) if dia < 10 then dia = "0" & dia End if if mes < 10 then mes = "0" & mes End if hoy = year(Date) & "-" & mes & "-" & dia 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.id in (select id from productos where subfamilia in (select id from subfamilias where id in(select id_subfamilia2 from ofertas where borrado='0' and empresa='5' and f_ini <= CURDATE())))AND productos.empresa = 5 AND productos.borrado = 0 AND productos.visible = 1 GROUP BY productos.disenyo ORDER BY disenyos.nombre ASC",conexion 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.id in(select id_articulo2 from ofertas where borrado='0' and empresa='5' and CURDATE()>= f_ini AND CURDATE() BETWEEN f_ini AND f_fin) AND productos.empresa = 5 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 descripcion FROM productos, disenyos WHERE productos.disenyo=disenyos.id AND productos.id in(select id_articulo2 from ofertas where borrado='0' and empresa='5' and CURDATE()>= f_ini AND CURDATE() BETWEEN f_ini AND f_fin) AND productos.empresa = 5 AND productos.borrado = 0 AND productos.visible = 1 GROUP BY productos.disenyo ORDER BY disenyos.nombre ASC",conexion '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.id in (select id from productos where subfamilia in (select id from subfamilias where id in(select id_subfamilia2 from ofertas where borrado='0' and empresa='5' and f_ini <= CURDATE())))AND productos.empresa = 5 AND productos.borrado = 0 AND productos.visible = 1 GROUP BY productos.disenyo ORDER BY disenyos.nombre ASC",conexion end if if not consulta.EOF then 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 end if%> .gif">

<%if not consulta.EOF then do until consulta.EOF or pos>6%>
<%set productos = server.CreateObject("adodb.recordset") productos.open "SELECT productos.id as pid, productos.estado as pestado, subfamilias.icono as icono, format(productos.pvpoferta,0) as pvpoferta, 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' AND productos.id in(select id_articulo1 from ofertas) GROUP BY productos.pvp ASC",conexion if not productos.EOF then tumb = consulta.fields("imagen") nombre = consulta.fields("dnom") if Session("lang") = 0 then miDesc = consulta.fields("descripcion") else miDesc = consulta.fields("desceng") end if%> <% end if consulta.MoveNext%>
&cual=catchico">

<%=(nombre)%>

<%=(miDesc)%>

<% set traeofertas = Server.CreateObject("adodb.recordset") sql = "SELECT descripcion FROM ofertas where id_articulo1 = '"&productos.fields("pid")&"' AND CURDATE() BETWEEN f_ini AND f_fin AND borrado ='0' and id not in (select a.id from ofertas as a, ofertas_cod_promocion as b, codigos_promocionales as c where a.id=b.oferta and b.cod_promocion=c.id and c.estado='1' and c.borrado='0' and c.empresa='5' and CURDATE() between a.f_ini and a.f_fin and a.id_estado='1' and a.borrado='0' and a.empresa='5')" traeofertas.Open sql, conexion do while not traeofertas.EOF Response.Write "Oferta

" & traeofertas.Fields("descripcion") & "
" traeofertas.MoveNext() loop %>

<%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("pvpoferta") //response.Write("precio="&dime("productos","pvp",productos.fields("pid"))) estilo = "" // ------------------ ---ESTO HABRÁ QUE CAMBIARLO CUANDO ESTÉ LO DE OFERTAS ---------------------- //if productos.fields("pestado") = 3 or productos.fields("pestado") = 5 or productos.fields("pestado") = 7 then // precio = productos.fields("pvpoferta") estilo = "color:#FFAA00;" //end if // ----------------------------------------------------------------------------------------------- //precio = 0%> <%'else%> <%'end if%> <%productos.movenext loop%>
.gif" width="139" height="21">
&cual=catchico" onMouseOver="activaInfo('img/productos/tbn/<%=productos.fields("imagen")%>')" onMouseOut="quitaInfo()" onMouseMove="actulizaInfo()"><%=(Desc)%> <%=(formatNumber(precio,2))%> €  <%'if consulta.fields("estado") =1 then%> ','')"><%= alcarro %>

<% 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%>
<%else if flash > 0 then%> <%else%> <%end if%>

No hay "ná" en oferta, "guerve" otro día... <%end if%>