Pongo el codigo asi:
<%
ID = request.querystring("ID")
Dim con,rs,sql,datos
datos= Server.MapPath ( "db/datos.mdb " )
' Creamos el objeto para la conexion y la abrimos
Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"
' Creamos la sentencia SQL para interactuar con la base de datos que ya esta abierta y lista para recibir ordenes, y seleccionamos toda la tabla pues queremos todos los registros de la base de datos, la tabla que usaremos en este caso se llama lista
.
strsql= "select * from Tabla1 where id like '%"&id&"%'"
' Ejecutamos la operacion.
Set rs= con.execute(sql)
%>
Me da el siguiente error:
Tipo de error:
Microsoft JET Database Engine (0x80040E0C)
No se estableció ningún texto de comando para el objeto de comando.
/show.asp, línea 32