•) "><%=rs("Titulo")%>
<%=rs("Periodo")%>
<%=TextoNoticia%>
<% rs.movenext Wend%>%@LANGUAGE="VBSCRIPT"%> <% IdEvento=Request("IdEvento") if IdEvento = "" then IdEvento = 1 'strwhere = "WHERE (FechaFin >= " & DataPrestatu(now()-1) & ") AND (IdEvento = " & IdEvento & ") AND (Activo=1) " strwhere = "WHERE (IdEvento = " & IdEvento & ") AND (Activo=1) " strwhere = "select Agenda.* From Agenda " & strwhere & " order by Prioridad, FechaInicio" set CnnRecordset=AbrirConexionMDB_Recordset set rs=server.createObject("adodb.recordset") rs.Open strWhere, CnnRecordset, 1, 1 %>

Usted está en: Inicio: <%=NombreEvento(IdEvento)%>
<%=TextoNoticia%>
<% rs.movenext Wend%>