esta es la pagina anterior tengo esto:
<%
codigo=request.querystring("codigo")
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 codigo like '%"&codigo&"%'"
' Ejecutamos la operacion.
Set rs= con.execute(strsql)
%>
Y para cada campo pongo esto:
<input type="text" name="nombre" value="<%Set rs= con.execute(strsql)%><% if not rs.eof and not rs.bof then
while not rs.eof response.write rs("nombre")
rs.movenext
wend
else
response.write "sin registros"
end if
%>" size="20">