El objeto no acepta esta propiedad o método: 'EOF'

[Jennifer_munn]

Me sale este error al ejecurtar esto y no sé por qué...

set Conn= Server.CreateObject("ADODB.Connection")
path = Server.MapPath("./visitas.mdb")
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path
Conn.Open strConnectionString

set rs_comprobar=Server.CreateObject("ADODB.Recordset" )
'recojo el usuario y la contraseña y compruebo que existe en la BBDD
user=request("Usuario")
pwd=request("Clave")
rs_comprobar=Conn.Execute ("SELECT * FROM Claves WHERE Usuario='"&user&"' and Clave='"&pwd&"'")
response.write rs_comprobar("Usuario")
IF (rs_comprobar.EOF) THEN

[Myakire]

Bueno, aqui hay un error de lógica, primero arregla eso y luego vemos el error:

Código:

rs_comprobar.Open "SELECT * FROM Claves WHERE Usuario='"&user&"' and Clave='"&pwd&"'", Conn 'Este no es el error, pero me gusta más así :-D
IF rs_comprobar.EOF THEN
    response.write rs_comprobar("Usuario")
    ....

[orharo2003]

porq no intentas asi :

set rs_comprobar=Conn.Execute ("SELECT * FROM Claves WHERE Usuario='"&user&"' and Clave='"&pwd&"'")

[3pies]

Después de lo comentado por orharo2003, solo te quedaría por hacer esto:

'set rs_comprobar=Server.CreateObject("ADODB.Recordset" )