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

<%if ObjRS.EOF then%> <%else%> <%do while not ObjRS.EOF%> <%ObjRS.movenext loop%> <%end if%>             Los recursos de la guía no se han actualizado todavía           <%=ucase(objRS("titulo"))%> (<%=objRS("dia")%>/<%=objRS("mes")%>/<%=objRS("anio")%>)       <%=objRS("descripcion")%>