Verificar Usuário e Senha

Olá Pessoal,

Eu tenho um codigo pra validar usuário e senha, mas n ão esta funcioando.

Este é o código:

ASP

[*]

[*] idCadastro = Request.Form("idCadastro")

[*] senhaLogin = Request.Form("senhaLogin")

[*]

[*] Set Conn = Server.CreateObject("ADODB.Connection")

[*] Conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\projetoEscola\niquim\locadora.mdb"

[*]

[*] SQL = "SELECT clie_id_cliente, clie_senha FROM cliente"

[*] Set RS = Server.CreateObject("ADODB.RecordSet")

[*] RS.Open SQL, Conn, 3, 3

[*]

[*] do while not RS.EOF

[*] idCliente = RS("clie_id_cliente")

[*] senha = RS("clie_senha")

[*]

[*] if idCliente = idCadastro and senha = senhaLogin then

[*] Response.Write "sim"

[*] else

[*] Response.Write "nao"

[*] end if

[*] RS.MoveNext

[*] loop

[*]

e tenho este código que praticamente identico que esta funcionando:

ASP

[*]

[*] Set Conn = Server.CreateObject("ADODB.Connection")

[*] Conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\WebSites\arinso\intranet\data_base\controle_chamados.mdb"

[*]

[*] Session("adm_ok") = "erro"

[*] login = Request.Form("login_usuario")

[*] senha = Request.Form("senha_usuario")

[*]

[*] SQL = "SELECT nome_usuario, senha_usuario FROM usuarios_edit_chamados "

[*] Set RS = Server.CreateObject("ADODB.RecordSet")

[*] RS.Open SQL, Conn, 3, 3

[*]

[*] do while not RS.EOF

[*] login_adm = RS("nome_usuario")

[*] senha_adm = RS("senha_usuario")

[*]

[*] if login_adm = login and senha_adm = senha then

[*] Session("adm_ok") = "ok"

[*] Response.Redirect("edit_chamados.asp")

[*] end if

[*] RS.MoveNext

[*] loop

[*]

[*] RS.Close

[*] Set RS = Nothing

[*]

O que pode estar errado ??

Muito Obridago desde já ... :D