<% nivel = 1 session("idi_error") = "es" IdSeccion = 2 Acceso = 1 IdTipo = ValidaId(Request("IdTipo")) IdProducto = ValidaId(Request("IdProducto")) set cnn = AbrirConexionMDB() CodigoEncabezado "Matadero de Pamplona", true, nivel EncabezadoMenu IdSeccion, Acceso, IdTipo if cint(IdProducto) = 0 then if cint(IdTipo) = 0 then 'tipos superiores%>
vacuno ovino gorrín
<%else strWhere = "SELECT * FROM Tipos WHERE IdPadre=" & IdTipo & " AND Activo=1 ORDER BY Prioridad, TipoES" set rs=server.createObject("adodb.recordset") rs.Open strWhere, cnn, 1, 1 if not rs.eof then 'subtipos de un tipo while not rs.eof%>
"" then%>style="background-color: white; background-image: url('../Argazkiak/<%=replace("" & DameFoto("Productos","Tipos",rs("IdTipo")),"/","/Peques/")%>');"<%end if%>>" class="bloque"> <%if DameOferta(rs("IdTipo")) then%> <%end if%>
"><%=ucase(rs("TipoES"))%>
<%rs.movenext wend%>
<%else strWhere = "SELECT * FROM Productos WHERE IdTipo=" & IdTipo & " AND Activo=1 ORDER BY Prioridad, TituloES" set rs2=server.createObject("adodb.recordset") rs2.Open strWhere, cnn, 1, 1 if not rs2.eof then 'productos de un tipo if rs2.recordcount > 1 then while not rs2.eof%>
"" then%>style="background-color: white; background-image: url('../Argazkiak/<%=replace("" & rs2("Imagen"),"/","/Peques/")%>');"<%end if%>>" class="bloque">
"><%=ucase(rs2("TituloES"))%>
<%rs2.movenext wend%>
<%else 'solo hay un producto dentro de un tipo response.redirect "productos.asp?IdTipo=" & IdTipo & "&IdProducto=" & rs2("IdProducto") end if else%>

No hay productos disponibles.

<%end if end if end if else 'ficha producto strWhere = "SELECT * FROM Productos WHERE IdProducto=" & IdProducto set rs=server.createObject("adodb.recordset") rs.Open strWhere, cnn, 1, 1%>
<%=ucase(rs("TituloES"))%>
<%if rs("TextoES") <> "" then%>
DESCRIPCIÓN<%=rs("TextoES")%>
<%end if if rs("ConservacionES") <> "" then%>
CONSERVACIÓN<%=rs("ConservacionES")%>
<%end if if cint(rs("Precio")) <> 0 then%>
PRECIO<%=PonerMoneda(rs("Precio")," €",2)%> / <%=iif(rs("UdKg")=0,"ud.","kg.")%>
El precio estará vigente para pedidos que se recojan hasta el <%=DameLunesCercano("castellano")%> (inclusive)
<%end if strWhere = "SELECT * FROM Recetas WHERE IdProducto=" & IdProducto & " AND Activo=1 ORDER BY Prioridad" set rsReceta=server.createObject("adodb.recordset") rsReceta.Open strWhere, cnn, 1, 1 if not rsReceta.eof then%>
RECETAS <%while not rsReceta.eof%> "><%=rsReceta("TituloES")%> <%rsReceta.movenext if not rsReceta.eof then response.write "
" wend%>
<%end if%>
Realizar pedido
Volver
"" then%>style="background-image:url('../Argazkiak/<%=rs("Imagen")%>');"<%end if%>><%if rs("Oferta")= 1 then%><%end if%>
<%end if%> <%Creditos%>