a ver si lo entendi asi es?
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)
'aca va el recordset
if not rs.eof and not rs.bof then
while not rs.eof
response.write rs("Nombre") &"<br>"
response.write rs("Descripcion") &"<br>"
...
...
wend
else
response.write "sin registros"
end if
%>
Muchas Gracias
los que no entiendo son los puntos!!! :)