<% '########### CONEXION BASE DE DATOS Y CARGA DE MARQUESINA ############################################## 'Define la cadena de conexión OLE DB. strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./accesoweb.mdb" 'Crea la instancia del objeto Connection y abre una conexión con la base de datos. Set cn = Server.CreateObject("ADODB.Connection") cn.Open strConnectionString 'Crea una instancia de un objeto Recordset. Set rstNoticias = Server.CreateObject("ADODB.Recordset") 'Abre un objeto Recordset con el método Open 'y utiliza la conexión establecida por el objeto Connection. strSQL = "SELECT Fecha,Noticias FROM Noticias ORDER BY FECHA" rstNoticias.Open strSQL, cn Set objNews = rstNoticias("Noticias") Set objDate = rstNoticias("Fecha") Do Until rstNoticias.EOF Noticias=objDate&" - "&objNews&". "&Noticias rstNoticias.MoveNext Loop %>
Contacte por correo electrónico