Erro Ao Consultar Bd

[Saosin]

Seguinte, estou fazendo um sisteminha simples de login.

Fiz um BD e inclui em uma tabela um login e uma senha "admin" e "admin" respectivamente, usando o script abaixo estou tendo o seguinte problema.

Estou inserindo um usuário e um password válidos, ou seja, que existem no BD porém estou sendo direcionado para a página "erro.asp" ao invés de ser direcionado para a "user_index.asp". Gostaria de saber o que está errado no meu código.

<%

user = Request.form ("user")

pass = Request.form ("pass")

Set conn = Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open = "C:\Inetpub\wwwroot\login\users.mdb"

sql = "SELECT * FROM users WHERE user = '"& user &"' AND pass = '"& pass &"'"

Set rs = conn.Execute(sql)

If rs.EOF Then

login = false

Else

login = true

End If

If login = true Then

Session("logado") = true

Response.redirect("user_index.asp")

Else

Response.redirect("erro.asp")

End If

%>

Obrigado!

[.Andreia.]

tb tive esse problema uma vez... a solução que encontrei naquele momento foi apagar e recriar a tabela com outro nome. Tenta fazer assim ou com mesmo nome..

Claro que se você tem dados importantes na tabela user, não precisa deletar.. é só criar outro e chama-lo no codigo.

[Saosin]

Fiz isso e mesmo assim não rolou.

Está acontecendo alguma coisa de errado no script que está me jogando para a "erro.asp". Mais está dificil de achar o que está dando errado.

E eu acho q o erro está nessa parte:

If login = true Then

Session("logado") = true

Response.redirect("user_index.asp")

Else

Response.redirect("erro.asp")

End If

Está dando algum pau nessa seção e ta me mandando pra "erro.asp".

Se você tiver mais alguma informação por favor me avise.

Obrigado!

[douglasdamame]

bem, tenta assim:

<% 'Conexão com o banco de dados

conexao="DBQ=C:\Inetpub\wwwroot\login\users.mdb;Driver={Microsoft Access Driver (*.mdb)}"

Set DB = Server.CreateObject("ADODB.Connection")

DB.Open conexao

User=(Request.QueryString("User"))

Pass=(Request.QueryString("pass"))

set user=DB.Execute("SELECT * FROM users WHERE user='"&user&"' AND pass='"&pass&"' ")

' Caso os dados não estiverem corretos

if user.eof then

Response.Redirect"errado.asp"

else

Response.Redirect"user_index.asp"

end if

DB.close

%>

[Saosin]

Entendi perfeitamente o que você disse e agradeço.

Porém eu preciso q no script se abra uma sessão, pois nas páginas que só podem ser visualizadas pelos usuários cadastrados existem um script que só deixa o usuário visualizar a página caso a sessão "logado" esteja aberta.

Essa sessão só é fechada quando o usuário der Logout.

Valeu!

[Saosin]

UP!

[Saosin]

Vou tentar!