ciao a tuuti sto provando a far si che un utente registrato su un database abbia la possibilità che gli venga inviata la password in caso l'abbia dimenticata ...ma mi da questo errore:ADODB.Recordset error '800a0cc1'

Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto

ma i tre campi ci sono...non capisco

Qualcuno mi può dare una ,mano per piacere

<%

' controlla l'e-mail
user = Trim(Request.Form("user"))

If Len(user) < 5 Then

Response.write "<P>Hai dimenticato la password?"

Response.write "<form method=post>" &_
"Inserisci lo user-id: "&_
"<input type=""text"" name=""user"">"&_
"<input type=""submit"" value=""Invia"">"&_
"</form> "

Else

' apri il database e cerca la password
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn ' da sostiuire

mail = Replace(mail, "'", "'")
set conn=server.createobject("ADODB.Connection")
conn.connectionstring="DSN=essevi"
conn.open()
SQL = "SELECT mail, password FROM members WHERE " &_
" user = '" & user & "'"
Set Rs = Conn.Execute(SQL)

' non trovato!
If Rs.EOF Then
Response.write "<P>Non esiste questo utente!"

Else
' invia la password
mail = Rs("user") QUI MI DA L'errore
password = Rs("password")

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "webmaster@sito.boh"
objMail.To = mail
objMail.Subject = "Ecco la tua password"
cdoMail.Body = password
cdoMail.Send()
Set cdoMail = Nothing

Response.Write "<P>Password spedita!"

End if

' un po' di pulizie...
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

End If

%>