<% Dim oConn,strSQL, objRS Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/centrodelacultura.mdb")) strSQL = "SELECT * FROM Noticias ORDER BY id DESC" Set objRS = oConn.Execute(strSQL) %>

<%if ObjRS.EOF then%> <%else%> <%do while not ObjRS.EOF%> <%if not objRS("imagen")="" then%> <%end if%> <%ObjRS.movenext loop%> <%end if%>       Si lo desea, puede darse de alta en nuestro servicio de alertas pulsando aquí         No hay noticias en estos momentos           <%=ucase(objRS("titular"))%> (<%=objRS("dia")%>/<%=objRS("mes")%>/<%=objRS("anio")%>)     " border="1">       <%=objRS("resumen")%>           " class="textoGralDer">[+ más...]