mas bien creo que el error es de lógica:
'Busqueda de datos
Dim encontrado
encontrado=false
DO WHILE NOT Ob_RS.eof
Ob_RS.movenext
encontrado=true
loop IF encontrado=false THEN response.write("No se ha encontrado la dirección de correo electrónico indicada")
else
'Recogemos los datos de la db
dim usuario
dim password
user = Ob_RS("usuario")
pass = Ob_RS("password")
Bueno, recorres el recordset mediante un loop, pero el recordset recorre hasta el final aun si encontró ese registro...
y se posiciona un lugar antes de EOF (End of File) entonces regrésalo a su posición original después del loop, aunque no creo que sea la mejor solución, principalmente por performance
Ob_Rs.MoveFirst
Otra es que en cuanto lo encuentre, te salgas del Loop
Exit Do
Ahora, la forma de evaluar tu bandera, nunca lo hice así, por eso no se si sea la correcta, en realidad siempre lo he hecho como
If NOT encontrado Then
Espero que te sirva,
Salu2,