estimados amigos les envio el codigo: no se que estoy haciendo mal
<%@LANGUAGE=VBScript%>
<%Option Explicit%>
<%
Dim conn
Dim Rs
Dim Ruta
Dim Index
Dim clave
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=conn.Execute("Select * from peli where Cod like '%" & clave & "%'")
' Set Rs=conn.Execute("Select top 1 cod, titulo, genero, cd , * from dato order by Cod")
Set Rs=conn.Execute 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
If Rs.EOF and Rs.BOF then
Response.Write("<html><head></head><body bgcolor='#336699' text='#ffffff'>")
Response.Write("<br><br><br><center><b>")
Response.Write("No se encontro el Registro")
Response.Write("</b></center>")
Response.Write("</body></html>")
else
%>
<html>
<head>
<title>busca</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#336699" text="#000000">
<div align="center"><font color="#FFFFFF"><b>DATOS PERSONALES</b></font><b></b>
<br>
<form>
<table width="75%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="right" valign="bottom" width="14%"><font color="#FFFFFF">Cod
</font></td>
<td align="left" width="38%"> <font color="#FFFFFF">
<input type="text" name="cod" size="15" maxlength="15" value="<%=Rs(0)%>" Readonly>
</font></td>
<td align="right" valign="bottom" width="13%"><font color="#FFFFFF">Titulo
</font></td>
<td width="35%">
<input type="text" name="titulo" size="15" maxlength="15" value="<%=Rs(1)%>" Readonly>
</td>
</tr>
<tr>
<td align="right" valign="bottom" width="14%"><font color="#FFFFFF">genero
</font></td>
<td align="left" width="38%"> <font color="#FFFFFF">
<input type="text" name="genero" size="15" maxlength="15" value="<%=Rs(2)%>" Readonly>
</font></td>
<td align="right" valign="bottom" width="13%"><font color="#FFFFFF">Cd
</font></td>
<td width="35%">
<input type="text" name="cd" size="15" maxlength="15" value="<%=Rs(3)%>" Readonly>
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
<%
end if
%>
nota mis tablas se llaman dato, peliculas y prestamos