Barbaro, no me dio error pero no me mostro nada en la pagina
mando el codigo:
<%
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(strsql)
%>