Noticias y novedades acerca de nuestra firma y productos: <% 'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "maresmeweb.com.news" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM noticias ORDER BY id DESC" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write "

" &result.Fields("titulo")&"
• " &result.Fields("sub")&"
" &result.Fields("fecha") & "


" 'Pasa a la siguiente fila result.MoveNext Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing %>