dim presente
presente = False
while not((rs.EOF) and (presente = True))
if ((rs(1) = strUserName) And (rs(2) = strPassword)) then
presente = True
end if
rs.movenext
wend

Questo è il codice che sto utilizzando in un sito per gestire l'accesso all'area privata. Quando un utente si registra viene inviato per e-mail l'username e la password.
Se provo ad entrare nell'area privata con dati esatti va tutto bene. Se provo ad entrare con dati inventati, per controllare la risposta del sito, ho un errore sull'if.
Come mai?

Tipo di errore:
(0x80020009)
Eccezione.
/sito2/accesso.asp, line 27


Questo è il tipo di errore che mi da sull'if.

Forse ti può essere utile ed è sicuramente più semplice:

Set RS = objConn.Execute("SELECT tuoCampo FROM tuaTabella WHERE campoUsername = '" & strUserName & "' And campoPassword = '" & strPassword & "'"

if not rs.EOF Then
...trovato...
else
...non trovto...
End if

segui il consiglio di pegaso, anche se non è sbagliato quello che hai fatto.

Semplicemente non è conveniente selezionare tutti i record e poi scorrerli con un ciclo, se l'applicazione diventa grande e hai migliaia di utenti la pagina potrebbe cominciare a rallentare l'esecuzione. ciao