<%
Dim conn
Dim registros
set conn=createobject("adodb.connection")
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb"))
Set registros = conn.Execute("SELECT tituloNoticia,cuerpoNoticia,fechaNoticia,enlace,foto1 FROM noticia ORDER BY fechaNoticia")
%>
Tabón de Anuncios
Tablón de Anuncios
<% Do While Not registros.EOF %>
<%= registros.Fields("fechaNoticia").Value %> |
<%
registros.MoveNext
Loop
registros.Close
conn.Close
Set conn=Nothing
Set registros=Nothing
%>