[Microsoft][Controlador ODBC Microsoft Access] Demasiadas tareas de cliente.
Os pongo el código que he utilizado para acceder a la base de datos a ver si lo he puesto correctamente porque en este ámbito de ASP con Bases de datos estoy todavía bastante pez...
Código:
Muchas gracias.<% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsGuestbook 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query to query the database 'Create an ADO connection object Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("noticias.mdb") Set rsNoticias = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT * FROM NOTICIAS ORDER BY CODIGO desc;" 'Open the recordset with the SQL query rsNoticias.Open strSQL, adoCon Dim cont cont = 0 'Loop through the recordset Do While not rsNoticias.EOF cont = cont + 1 'Write the HTML to display the current record in the recordset if cont >= 1 and cont <= 2 then %> <...> <% elseif cont >=3 and cont <= 6 then %> <...> <% end if rsNoticias.MoveNext Loop 'Reset server objects rsNoticias.Close Set rsNoticias= Nothing Set adoCon = Nothing %>
Un saludo