Problema con login

[19pantarei75]

Salve ragazzi.
Vorrei fare una semplice login, solo che c'è qualcosa che non va nel codice.
Mi restituisce il seguente errore:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/rubrica/login.asp, line 12, column 66
sql="SELECT * FROM anagrafica WHERE User=utente AND pswd=password";

il codice è il seguente

<%


Dim Connessione, rsAnagrafica

SET Connessione= SERVER.CREATEOBJECT("ADODB.CONNECTION")
Connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\rubrica\rubrica.mdb")

utente=Request.Form(User)
password=Request.Form(Password)

sql="SELECT * FROM anagrafica WHERE User=utente AND pswd=password";

SET rsAnagrafica=Connessione.Execute(sql)

if rsAnagrafica=BOF AND rsAnagrafica=EOF Then
 
     Response.write("Utente non Trovato")
else %>
   

Benvenuto </p><% rsAnagrafica.Fields(Nome) 
end if 

Connessione.Close : Connessione=Nothing

%>

Dove sbaglio?

[Mems]

SET Connessione=Nothing

[mexican]

sql="SELECT * FROM anagrafica WHERE User='" & utente & "' AND pswd='" & password "'"

[19pantarei75]

grazie per avere risposto.

Ora mi dà il seguente errore:
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/rubrica/login.asp, line 12, column 81
sql="SELECT * FROM anagrafica WHERE User='" & utente & "' AND pswd='" & password "'"

ho cambiato cosi il codice

<%


Dim Connessione, rsAnagrafica

SET Connessione= SERVER.CREATEOBJECT("ADODB.CONNECTION")
Connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\rubrica\rubrica.mdb")

utente=Request.Form(User)
password=Request.Form(Password)

sql="SELECT * FROM anagrafica WHERE User='" & utente & "' AND pswd='" & password "'"


SET rsAnagrafica=Connessione.Execute(sql)

if rsAnagrafica.BOF=True AND rsAnagrafica.EOF=True Then
 
     Response.write("Utente non Trovato")
else %>
   

Benvenuto </p><% rsAnagrafica.Fields(Nome) 
end if 

Set Connessione=Nothing

%>

[Mems]

sql="SELECT * FROM anagrafica WHERE User='" & utente & "' AND pswd='" & password & "'"

e rimetti Connessione.close prima di Set Connessione=Nothing
una per riga.

[19pantarei75]

ora passa le variabili, però eseguendo la query si blocca al primo if, cosa che non dovrebbe accadere se dò i valori esatti dei campi.
Mi restituisce quindi sempre Utente non trovato. Cosa no funge?

. questo è il codice

<%


Dim Connessione, rsAnagrafica

SET Connessione=Server.CreateObject("ADODB.Connection")
Connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\rubrica\rubrica.mdb")

utente=Request.Form("User")
password=Request.Form("Password")


sql="SELECT * FROM anagrafica WHERE User='" & utente & "' AND pswd='" & password & "'" 


SET rsAnagrafica=Connessione.Execute(sql)

if rsAnagrafica.BOF=True AND rsAnagrafica.EOF=True Then
 
     Response.write("Utente non Trovato")
else %>
   

Benvenuto </p><% rsAnagrafica.Fields(Nome) 
end if 
Connessione.close
Set Connessione=Nothing

%>

[Mems]

invece di

if rsAnagrafica.BOF=True AND rsAnagrafica.EOF=True Then

metti

if rsAnagrafica.EOF Then

[19pantarei75]

purtroppo come prima

[Mems]

E allora vuol dire che l'utente non c'è.
Sei certo che i dati passano?
Fatti stampare la sql
Ah, poi, questo va così:

 

Benvenuto </p><% rsAnagrafica.Fields("Nome")

[19pantarei75]

grazie per la disponibilità.
Ho provato a farmi stampare il risultato della query, solo che mi dà il seguente errore:


Tipo di errore:
ADODB.Field (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/rubrica/login.asp, line 17

qusto è il codice

<%


Dim Connessione, rsAnagrafica

SET Connessione=Server.CreateObject("ADODB.Connection")
Connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\rubrica\rubrica.mdb")

utente=Request.Form("User")
password=Request.Form("Password")


sql="SELECT * FROM anagrafica WHERE User='" & utente & "' AND pswd='" & password & "'" 


SET rsAnagrafica=Connessione.Execute(sql)
a=rsAnagrafica.Fields("Nome") 
Response.write a
%>