Te mando un Ejm sencillo, el resto es todo tuyo
<%
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.ConnectionTimeout = 15
Cn.CommandTimeout = 15
Cn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tubasedatos.mdb"))
Set RsNoticias= Server.CreateObject("ADODB.RecordSet")
RsNoticias.ActiveConnection = Cn
Wsql = "select noticias from Notitas"
RsNoticias.open Wsql,cn
if (not RsNoticias.eof) then
%>
<html>
<body>
<form method="post" name ="frmnoticia" action="default.asp" >
<table width="80%" border="0" bgcolor="ROYALBLUE" align="center">
<% Do while (not RsNoticias.EOF)%>
<tr>
<td align="center" width="5%"bgcolor="white"><%=RsNoticias("noticias")%></td>
</tr>
<% RsNoticias.MoveNext
loop%>
</table></center>
</body>
</html>
<%else
RsNoticias.close
set RsNoticias=nothing
cn.close
set cn=nothing
Response.Redirect("default.asp")
end if
%>
Hasta Pronto