Função If , Ajuda.

[Rickardo]

tenho essa função aqui

<%

Option Explicit

Dim pasta_dados, conexao, dados, tbl, buscar, rsquery, sql, rsLogin, Login, Senha, Tipo

pasta_dados="e:\home\brd\dados\db\cadastro.mdb"

set Conexao=server.createobject("ADODB.connection")

dados = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta_dados&";"

Conexao.open dados

set tbl = server.createObject("adodb.recordset")

tbl.Open "cadastro", conexao

sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'"

set rsLogin = conexao.execute(sql)

if not rsLogin.eof then

Login = rsLogin("login")

Senha = rsLogin("senha")

Session("login")=TRUE

Session("senha")=TRUE

Response.Redirect"adm_index.asp"

else

Response.Write "<div align=""center""><font size=""3"" face=""Geneva, Arial, Helvetica, sans-serif""><b>Dados digitados incorretamente, verifique seu login e senha!</font>"

Response.Write " <p><font size=""2"" face=""Geneva, Arial, Helvetica, sans-serif""> <font color=""#0099FF""><a href=""java script:history.back(1)"">&lt;&lt;Voltar</a></font></font>"

Response.Write " </div>"

Response.Write " </font></p>"

Response.Write "</div>"

end if

rsLogin.close

conexao.close

set conexao = nothing

set rsLogin = nothing

%>

tenho um campo na tabela chamado de "tipo"

queia acrescentar um parametro onde

se

senha = true

senha = true

tipo = "ADM" -> redireciona pra pagina adm.asp

senha = true

senha = true

tipo = "USER" -> redireciona pra user.asp

caso contrario

Response.Write " dados errado"

aguem pode ajudar??

não estou tendo logica pra fazer..

grato.

[.Andreia.]

veja se resolve:

      if senha = true and tipo="ADM" then
        response.redirect = "adm.asp"
      elseif senha = true and tipo="USER" then
        response.redirect = "user.asp"
      else
        response.write "errado"
      end if

[Rickardo]

Andreia_sp

Desculpe digitei errado

o correto ´´e

login = true

senha = true

poderia ser ( veja abaixo

if login = true and senha = true and tipo="ADM" then

response.redirect = "adm.asp"

elseif login = true and senha = true and tipo="USER" then

response.redirect = "user.asp"

else

response.write "errado"

end if

[.Andreia.]

sim

[Rickardo]

sim

e eu coloco isso abaixo do IF que já tem??

[.Andreia.]

você já tem um IF la que redireciona, esse outro não ficaria em outro lugar?

[Rickardo]

naverdade estou querendo modificar aquele a minha nova necessidade..

veja se isso que mudei aqui está certo

if not rsLogin.eof then
   Login = rsLogin("login")
   Senha = rsLogin("senha")
   if login = true and senha = true and tipo="ADM" then
    response.redirect = "adm_index.asp"
  elseif login = true and senha = true and tipo="USER" then
    response.redirect = "user_index.asp"
else
Response.Write "<div align=""center""><font size=""3"" face=""Geneva, Arial, Helvetica, sans-serif""><b>Dados digitados incorretamente, verifique seu login e senha!</font>"
Response.Write "  <p><font size=""2"" face=""Geneva, Arial, Helvetica, sans-serif""> <font color=""#0099FF""><a href=""java script:history.back(1)"">&lt;&lt;Voltar</a></font></font>"
Response.Write "    </div>"
Response.Write "  </font></p>"
Response.Write "</div>"
end if
end if

rsLogin.close
conexao.close

set conexao = nothing
set rsLogin = nothing

[Marcos-rj]

Tenta assim:

if not rsLogin.eof then
   Login = rsLogin("login")
   Senha = rsLogin("senha")
   Session("login")=TRUE
   Session("senha")=TRUE

if rsLogin("tipo")="ADM" then
    response.redirect = "adm_index.asp"
elseif rsLogin("tipo")="USER" then
    response.redirect = "user_index.asp"
else

[Rickardo]

valeu .. caso resolvido...

agradeço a todos..