<% nivel = 1 session("idi_error") = "es" IdSeccion = 5 Acceso = 1 Idtipo = 0 IdReceta = ValidaId(Request("IdReceta")) set cnn = AbrirConexionMDB() CodigoEncabezado "Matadero de Pamplona", true, nivel EncabezadoMenu IdSeccion, Acceso, IdTipo if cint(IdReceta) = 0 then if Request("q") <> "" then strWhere = "SELECT * FROM Recetas WHERE Activo=1 AND (TituloES LIKE '%" & acentos(Request("q")) & "%' OR IngredientesES LIKE '%" & acentos(Request("q")) & "%' OR ElaboracionES LIKE '%" & acentos(Request("q")) & "%') ORDER BY Prioridad, Fecha DESC" else strWhere = "SELECT * FROM Recetas WHERE Activo=1 ORDER BY Prioridad, Fecha DESC" end if set rs=server.createObject("adodb.recordset") rs.Open strWhere, cnn, 1, 1%>

<%if not rs.eof then while not rs.eof%>

"" then%>style="background-color: white; background-image: url('../Argazkiak/<%=replace("" & rs("Imagen"),"/","/Peques/")%>');"<%end if%>>" class="bloque">

" class="oferta"><%=lcase(rs("TituloES"))%>
<%=DataJarri(rs("Fecha"))%>

<%rs.movenext wend%>

<%else if Request("q") <> "" then%>

No hay recetas disponibles.

VOLVER

<%end if end if else 'ficha receta strWhere = "SELECT * FROM Recetas WHERE IdReceta=" & IdReceta set rs=server.createObject("adodb.recordset") rs.Open strWhere, cnn, 1, 1%>

<%=ucase(rs("TituloES"))%>

<%if rs("IngredientesES") <> "" then%>

INGREDIENTES<%=rs("IngredientesES")%>

<%end if if cint(rs("Personas")) <> 0 then%>

COMENSALES<%=rs("Personas")%> personas

<%end if if rs("ElaboracionES") <> "" then%>

ELABORACIÓN<%=rs("ElaboracionES")%>

<%end if if cint(rs("IdProducto")) <> 0 then%>
&IdProducto=<%=rs("IdProducto")%>" class="boton noprint">Ver producto <%end if%>

IMPRIMIR RECETA

VOLVER

<%if rs("Imagen")<>"" then%>

" style="width: 300px;"/> <%end if%>

<%end if%> <%Creditos%>