Con el mensaje de error, es más sencillo intentar buscar una solución, pero así por encima, hay que revisar un par de cosillas.
La base de datos test.mdb, debe estar en el directorio raíz del sitio web, desde el que estás ejecutando la página asp.
No sé exactamente que es lo estás intentando hacer, tienes dos consultas seguidas, y sólo preguntas si hay registos en la segunda, la primera te sobraría, o bien te falta, comprobar esa primero, sería algo así:
....
Dim clave, cSQL
Ruta=Server.MapPath("/test.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Ruta
clave=Request.Form("cod")
Set Rs = Server.CreateObject( "ADODB.Recordset" )
cSQL = "SELECT NOMBRE, APELLIDOS, NUMSOCIO, TITULO, GENERO, NUMEROCD, FECHADEVPREVISTA " & _
"FROM (PRESTAMOS INNER JOIN USUARIOS ON PRESTAMOS.CODUSUARIO = USUARIOS.CODUSUARIO) " & _
"INNER JOIN PELICULAS ON PRESTAMOS.CODPELICULA = PELICULAS.CODPELICULA"
Rs.Open cSQL, conn, adOpenDynamic , adLockOptimistic
....
Aunque lo más probable, es que lo que estés consultando por el resto del código, sea la película, cambia la SELECT final por la que haces a la tabla Peliculas, pero si tu tabla se llama peliculas, asegurate en la consulta que pones ese nombre, fíjate, has puesto {Set Rs=conn.Execute("Select * from peli where Cod like '%" & clave & "%'")"}
Creo que con esto debería funcionar.... ya dirás algo más
Un saludo
