Pues aquí hay un error de lógica, con que la última letra coincida, login será igual a true.
Código:
A=Len(request.form("Contrasena"))
For I = 1 To A
P = Mid(rs("Password"), I, 1)
C = Mid(request.form("Contrasena"), I, 1)
if Asc("P") <> Asc("C") then
login = false
else
login = true
end if
Next