% 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%>
<%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"))%>