 |
 |
|
Get the Flash Player to see this player. |
[+]
<%
'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/yates.mdb")
'Ejecuta un sentencia SQL de consulta
sql = "SELECT top 6 * FROM Noticias ORDER BY titulonoticia 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("titulonoticia")&"
" &result.Fields("noticiabreve") & "
" &""
'Pasa a la siguiente fila
result.MoveNext
Loop
'Libera memoria
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>