<%
' Declaración de variables
Dim oConn, rs, sql
' Conexión a la base de datos
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/Textos.mdb"))
' Sentencia SQL
sql="SELECT TOP 5 Noticias.* FROM Noticias ORDER BY Noticias.Fecha DESC;"
' Ejecutamos la consulta
set rs=oConn.Execute(sql)
' Si no hay registros
if rs.eof then%>
No se encontró ningún registro
<%else
do while not rs.Eof%>
<%=rs("Título")%>
<%=rs("Contenido")%>
<%=rs("Fecha")%>
<%rs.movenext
loop
end if
rs.close
set rs=Nothing
oConn.close
set oConn=Nothing%>
