<% 'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") con.Open "Dsn=bitravel.com.noticiaspod" '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("copete") & "
Si quiere recibir todas las novedades del Congreso en su e-mail, puede suscribirse al boletín de novedades a través del siguiente formulario