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

[Igor FV 0]

Bom dia amigos,

 

Estou tentando rodar esse IF, mas não está funfando. A msg de erro segue abaixo do codigo.

 

ASP

If nivel_acesso = 0 Then

Response.Redirect "nivel0.asp"

 

Else

If nivel_acesso = 1 Then

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

 

Else

If nivel_acesso = 2 Then

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

 

End If

 

ERRO

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03F6)

'End' esperado

/yakissobas_dinner/verifica_login.asp, line 52

Obrigado

[Daw 0]

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 ;)

[Custellinha 0]

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

[Igor FV 0]

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.

[Daw 0]

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 ;)

[Igor FV 0]

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

[Daw 0]

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 ;)

[Igor FV 0]

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..