<%
Dim cn5
Dim rs5
Dim sSQL
'Conectamos con la base de datos y realizamos la busqueda
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")
Set cn5 = Server.CreateObject("ADODB.Connection")
'cn5.Open "DSN=noticias"
cn5.Open connStr
sSQL = "SELECT * FROM noticias order by alta DESC"
Set rs5 = cn5.Execute(sSQL)
Do While (Not rs5.eof)
%>
<%=rs5.fields("alta")%>
<%=rs5.fields("noticia")%>
<%
rs5.MoveNext
LOOP
rs5.Close
cn5.Close
Set rs5 = Nothing
Set cn5 = Nothing
%>
<%=rs5.fields("alta")%>