<% nivel = 1 session("idi_error") = "es" IdSeccion = 3 Acceso = 1 Idtipo = 0 IdOferta = ValidaId(Request("IdOferta")) set cnn = AbrirConexionMDB() CodigoEncabezado "Matadero de Pamplona", true, nivel EncabezadoMenu IdSeccion, Acceso, IdTipo if cint(IdOferta) = 0 then strWhere = "SELECT * FROM Ofertas WHERE Activo=1 ORDER BY Prioridad, Fecha DESC" 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">
0 then%>style="width: 155px;"<%end if%>> " class="oferta"><%=lcase(rs("TituloES"))%>
<%if rs("FechaES") <> "" then TextoFecha = rs("FechaES") else TextoFecha = DataJarri(rs("Fecha")) end if%> <%=TextoFecha%>

<%=rs("TextoPortadaES")%>

<%if cint(rs("precio")) <> 0 then%>
<%=PonerMoneda(rs("Precio"),"",2)%>
 €/<%=iif(rs("UdKg")=0,"ud.","kg.")%>
<%end if%>
<%rs.movenext wend%>
<%end if else 'ficha oferta strWhere = "SELECT * FROM Ofertas WHERE IdOferta=" & IdOferta set rs=server.createObject("adodb.recordset") rs.Open strWhere, cnn, 1, 1%>
<%=ucase(rs("TituloES"))%>
<%if rs("FechaES") <> "" then%>
<%=rs("FechaES")%>
<%end if%> <%if rs("TextoES") <> "" then%>
<%=rs("TextoES")%>
<%end if%> <%if cint(rs("IdProducto")) <> 0 then%>
&IdProducto=<%=rs("IdProducto")%>" class="boton">Ver producto<%if cint(rs("IdProducto2")) <> 0 then response.write " 1"%> <%end if if cint(rs("IdProducto2")) <> 0 then%>
&IdProducto=<%=rs("IdProducto2")%>" class="boton">Ver producto 2 <%end if if cint(rs("IdProducto3")) <> 0 then%>
&IdProducto=<%=rs("IdProducto3")%>" class="boton">Ver producto 3 <%end if%>
"" then%>style="background-color: white; background-image: url('../Argazkiak/<%=rs("Imagen")%>');"<%end if%>>

Volver al listado  VOLVER

<%end if%> <%Creditos%>