<% IDNovedad=request("IDNovedad") if IDNovedad="" then sql="select max(IDNovedad) as maximo from Novedades" set rs=server.CreateObject("adodb.recordset") rs.Open sql,MSCS IDNovedad=rs("maximo") end if sql="SELECT * FROM Novedades WHERE IDNovedad=" & IDNovedad set rsN=server.CreateObject("adodb.recordset") rsN.Open sql,MSCS if not rsN.EOF then %>
Temas de actualidad

<%=rsN("Titulo")%>
<%=desescaparcomillas(rsN("Descripcion"))%>
 
<% sql="select * from Novedades where IDNovedad not in(" & IDNovedad & ") order by fecha desc" set rsNove=server.CreateObject("adodb.recordset") rsNove.Open sql,MSCS while not rsNove.EOF %>

" class="SUBtitulo-seccion"><%=rsNove("Titulo")%>

<% rsNove.MoveNext wend %>

 

<% end if %>