<% nivel = 1 session("idi_error") = "es" IdSeccion = 4 Acceso = 1 Idtipo = 0 IdNoticia = ValidaId(Request("IdNoticia")) set cnn = AbrirConexionMDB() CodigoEncabezado "Matadero de Pamplona", true, nivel EncabezadoMenu IdSeccion, Acceso, IdTipo if cint(IdNoticia) = 0 then strWhere = "SELECT * FROM Noticias 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%>
<%=lcase(rs("TituloES"))%>
<%=DataJarri(rs("Fecha"))%>

<%=rs("TextoPortadaES")%>

">Más información

<%rs.movenext wend%>
<%end if else 'ficha noticia strWhere = "SELECT * FROM Noticias WHERE IdNoticia=" & IdNoticia set rs=server.createObject("adodb.recordset") rs.Open strWhere, cnn, 1, 1%> <%=lcase(rs("TituloES"))%> <%=DataJarri(rs("Fecha"))%>
<%if rs("Imagen")<>"" then%>
');">
<%end if%> <%=rs("TextoES")%>

Volver al listado  VOLVER

<%end if%> <%Creditos%>