Verifica della password

[matrics21]

Sto provando a scrivere del codice per la verifica del nome utente e password, che sono registrati in un db:

Do while NOT RS.EOF
IF user<>rs.Fields("nickname") AND pass<>rs.Fields("password")
     Session ("verifica")="no"
     response.redirect("nologin.htm")
ELSE
     Session ("verifica")="no"
     response.redirect("index.htm")
END IF
Rs.MoveNext
Loop

Ma se faccio così so già che non funzionerà mai il codice, a meno che l'user non corrisponda con l'ultima riga della tabella.
Come posso sistemare?

[kalosjo]

Fai una query precisa....

"select * from utenti where nickname = 'quelchelè' and password = 'quelo'"

e valuti se estrae qualcosa (rs.eof)

[matrics21]

Originariamente inviato da kalosjo
Fai una query precisa....

"select * from utenti where nickname = 'quelchelè' and password = 'quelo'"

e valuti se estrae qualcosa (rs.eof)

Già

Come faccio poi a sapere se c'è stato un risultato in modo da impostare il valore di verifica a "si" o "no"?

[waitec401]

'Definisci stringa di richiamo
strSQL = "SELECT * FROM tb_operatori WHERE str_user='"&strUser&"'  AND str_password='"&strPass&"' AND str_conferma =True"

objRs.Open strSQL, objConn
If objRs.EOF Then
Response.Redirect("default.asp?sessione=errore") 	' Nome utente o password errati

else
	
	Dim codice
	Dim autenticato
	
	codice = objRs("str_codice")
	autenticato = true

End If

Io ho fatto così ...
Ciao

[matrics21]

mi da errore su:

IF rs.EOF Then

Object required:"

:master:

[matrics21]

<%
Dim user
Dim pass
user=Request.Form("user")
pass=Request.Form("pass")
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/forum.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
Dim sql = "SELECT * FROM profili WHERE nickname='"&user&"' AND password='"&pass&"'"
rs.open sql,conn
IF rs.EOF Then
     Session ("verifica")="no"
     response.redirect("nologin.htm")
ELSE
     Session ("verifica")="no"
     response.redirect("index.htm")
END IF
%>

Adesso l'errore è questo:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/verifica.asp, line 14

Dim sql = "SELECT * FROM profili WHERE nickname='"&user&"' AND password='"&pass&"'"
--------^

[matrics21]

Adesso va, ho inserito la query direttamente in rs.open

grazie a tutti