[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
