[Resolvido] Erro em sintaxe de IF'S concatenados...

A sintaxe está com erro mesmo. Tente assim:

ASP

If nivel_acesso = 0 Then   Response.Redirect "nivel0.asp"

ElseIf nivel_acesso = 1 Then

Response.Redirect "user.asp" 'página restrita usuário

ElseIf nivel_acesso = 2 Then

Response.Redirect "adminadm.asp" 'página restrita adm

End If

Ou

ASP

Select Case nivel_acesso

Case 0 : Response.Redirect "nivel0.asp"

Case 1 : Response.Redirect "user.asp" 'página restrita usuário

Case 2 : Response.Redirect "adminadm.asp" 'página restrita adm

End Select

[]tz ;)

Troque:

If nivel_acesso = 0 ThenResponse.Redirect "nivel0.asp"ElseIf nivel_acesso = 1 ThenResponse.Redirect "user.asp" 'página restrita usuárioElseIf nivel_acesso = 2 ThenResponse.Redirect "admin\adm.asp" 'página restrita admEnd If

para:

If nivel_acesso = 0 ThenResponse.Redirect "nivel0.asp"ElseIf nivel_acesso = 1 ThenResponse.Redirect "user.asp" 'página restrita usuárioElseIf nivel_acesso = 2 ThenResponse.Redirect "admin\adm.asp" 'página restrita admEnd If

Amigos,

Estou usando esse bloco de codigos para fazer a autenticação dos usuários e verificar o nivel da cada um e ancaminha-los para suas respectivas areas. Mas não esta funfando. O que pode está ocorrendo?

O problema é que não estou conseguindo pegar o nivel do usuário que esta tentando logar e comparar se ele é nivel 0,1 ou 2. Da forma que fiz está certa?

ASP
<!--#include file="Connections/conn.asp" --><%

Dim login, senha, sql

'Vamos capturar o login e a senha digitada no formulário

login = Request.Form("txt_login_user")

senha = Request.Form("txt_senha_user")

'Agora verificamos se o usuário e a senha estão corretos

SQL = "SELECT * FROM bd_yd.tbl_user WHERE email_user = '"&login&"' AND senha_user = '"&senha&"' "

Set RS = conn.Execute(SQL)

'Caso não esteja correto, indicamos o erro

If RS.EOF Then

  Response.Write "Usuário ou senha inválida!!!!</br>Para tentar novamente clique <a href=login.asp target=_self>AQUI</a>."

  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_user") 'Colocamos numa session pois iremos utiliza-las em outras páginas

If nivel_acesso = 0 Then

Response.Redirect "nivel0.asp"

ElseIf nivel_acesso = 1 Then

Response.Redirect "user.asp" 'página restrita usuário

ElseIf nivel_acesso = 2 Then

Response.Redirect "adminadm.asp" 'página restrita adm

End If

%>

Obrigado.

Segue...

ASP
<!--#include file="Connections/conn.asp" --><%

Dim login, senha, sql

'Vamos capturar o login e a senha digitada no formulário

login = Request.Form("txt_login_user")

senha = Request.Form("txt_senha_user")

'Agora verificamos se o usuário e a senha estão corretos

SQL = "SELECT * FROM bd_yd.tbl_user WHERE email_user = '"&login&"' AND senha_user = '"&senha&"' "

Set RS = conn.Execute(SQL)

'Caso não esteja correto, indicamos o erro

If RS.EOF Then

  Response.Write "Usuário ou senha inválida!!!!</br>Para tentar novamente clique <a href=login.asp target=_self>AQUI</a>."

  Response.End

Else

'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_user") 'Colocamos numa session pois iremos utiliza-las em outras páginas

End If

Select Case Session("nivel_acesso")

  Case 0 : Response.Redirect "nivel0.asp"

  Case 1 : Response.Redirect "user.asp" 'página restrita usuário

  Case 2 : Response.Redirect "adminadm.asp" 'página restrita adm

  Case Else

       Response.Write "Autenticação inválida!!!!</br>Por favor tente novamente, clique <a href=login.asp target=_self>AQUI</a>."

       Response.End

End Select

%>

[]tz ;)

Amigo Daw, não funfou. Entro com um login e senha validos, mas diz q o login esta incorreto.

A estrutura do código ASP está certinha.

Nela não mexeremos mais, ok?

Faz o seguinte, dê uma olhada na consulta que o SQL está montando e vê se está batendo exatamente com o que consta no BD.

Certamente algo não está batendo.

Beleza?

[]tz ;)

Amigo Daw já consegui resolver.Outra pergunta... a minha pagina de login esta em um iframe na index, como faco para depois que o usuario entrar com login e senha e clicar no bt "LOGAR" automaticamente da um REFRESH nesse IFRAME. Tem como fazer isso amigo?Vlw..-----------------------------------------------------------------------------------Post Mesclado-----------------------------------------------------------------------------------Consegui resolver.Vlw..