A logica deve estar errada , porque eu coloco banir = SIM e ele não bani o usuario , porque ?
<%
'Efetuando a conexão com a base de dados criada
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("banco.mdb")
Conn.open
'Vamos capturar o login e a senha digitada no firmulário
login2 = Request.Form("txt_login")
senha2 = Request.Form("txt_senha")
SQL = "select banir from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "
Set RS = Conn.Execute(SQL)
IF banir = "Sim" Then
Response.Write "Banido do site!"
Response.End
END IF
'Agora verificamos se o usuário e a senha estão corretos
SQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "
Set RS = Conn.Execute(SQL)
If RS.EOF Then
Response.Write "usuário ou senha inválida!"
Response.End
End If
'Se chegou até aqui, é porque o login e senha estão corretos.
'Vamos então verificar o nível de acesso do usuário.
session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginas
SESSION("LOGADO")="S"
session("usuario") = request("usuario")
session("senha") = request("senha")
Response.Redirect "adm.asp" 'página restrita
%>
Pergunta
iniciante
A logica deve estar errada , porque eu coloco banir = SIM e ele não bani o usuario , porque ?
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.