<% 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 SanBorondon ORDER BY id DESC" Set objRS = oConn.Execute(strSQL) %>

<%if ObjRS.EOF then%> <%else%> <%do while not ObjRS.EOF%> <%ObjRS.movenext loop%> <%end if%>       Si lo desea, puede darse de alta en nuestro servicio de alertas pulsando aquí         No hay actos programados para los próximos días           <%=ucase(objRS("titulo"))%> (<%=objRS("dia")%>/<%=objRS("mes")%>/<%=objRS("anio")%>)           <%=objRS("descripcion")%>