hola que tal estoy haciendo un proyecto de una biblioteca y tengo los siguientes archivos en asp y cuando lo pruebo me da error o no me corre
este es el archivo html
<html>
<head>
</head>
<body>
<h1>Formulario de búsqueda</h1>
<form action="listado.asp">
Buscar : <input name="texto">
en campo :
<select name="campo">
<option value="titulo">Titulo</option>
<option value="Autores">Autores</option>
</select>
<input type="submit" value="consultar">
</form>
</body>
</html>
Listado.asp
<%@language="VBScript"%>
<html>
<head>
<title>Resultados De La Búsqueda</title>
</head>
<%
dim campo, texto
campo=request.form("campo")
text=request.form("texto")
set cn=Server.createObject("ADODB.Connection")
cn.ConnectionTimeout=20
cn.open "DSN=Adquisiciones;Driverld=25;FIL=MS Access;MaxBufferSize=52;PageTimeout=5;"
set rs=server.CreateObject("ADODB.Recordset")
rs.Open "SELECT*FROM libros_pedidos WHERE InStr("& campo&"),('""& texto &"")>0",cn
%>
<h1>Resultado De La Búsqueda</h1>
<ul>
<%
Do until rs.eof
Response.write "<li><a href=ficha.asp?id_documento="& rs.fields("id_documento") &"> Ver Ficha</a>--"
Response.write rs.fields("titulo")
Response.write chr(10)
rs.MoveNext
loop
%>
</ul>
<%
rs.close
cn.close
set rs=Nothing
set cn=Nothing
%>
</body>
</html>
y la de Ficha.asp
<%@language="VBScript"%>
<html>
<head>
<title>Ficha final</title>
</head>
<body>
<%
dim registro
registro = Request.QueryString("ID_documento")
set cn=Server.createObject("ADODB.Connection")
cn.ConnectionTimeout=20
cn.open "DSN=Adquisiciones;DriverId=25; FIL=MS Access;MaxBufferSize=512;PageTimeout=5;"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM libros_pedidos WHERE ID_documento=" & registro , cn
%>
<h1 align="center"> Documento <%=rs.fields("ID_documento") %> </h1>
<p>
<hr>
Título : <%=rs.fields("Titulo") %> <br>
Autores: <%=rs.fields("Autores") %> <br>
ISBN: <%=rs.fields("ISBN") %> <br>
<hr>
<%
rs.close
cn.close
set rs = Nothing
set cn = Nothing
%>
</body>
</html>
estoy utilizando una base de datos de acces 2007 espero su ayuda