Acesso Restito

[lezão 0]

Bom dia Galera!

 

Galera estou precisando de um codigo, q faça um seguinte, qndo eu acesso meu painel de controle com meu user e senha, abre um tipo de pagina pra mim, qndo outras pessoas acessam com seus user e senha abre outra pagina diferente da minha isso é possivel, ja procurei na net e naun encontrei nada referente a isso...

 

tenho um codigo aki mas ele joga todos para a mesma pagina.

 

CODIGO

<%

' CONEXÃO ACCESS

Set conn=Server.CreateObject("ADODB.Connection")
drv= "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("../DataBase/dados.mdb") & ";"
conn.Open drv

login=Request.QueryString("login") 'aqui recuperamos o login digitado, através da QueryString
senha=Request.QueryString("senha") 'aqui recuperamos a senha digitado, através da QueryString

'SQL QUE SELECIONA OS DADOS DO USUARIO CASO O LIGN E A SENHA ETEJAM CORRETOS
sql = "SELECT * FROM acesso WHERE login = '" & login &"' AND senha = '" & senha & "' "

'SETAMOS A VARIAVEL rsLogar e ABRIMOS O COMANDO SQL
Set rsLogar = Server.CreateObject("ADODB.Recordset")
rsLogar.Open sql, conn

'A CONDIÇÃOˆ -  SE CHEGOU AO FIM "eof" DO BANCO DE DADOS, SIGNIFICA QUE 
'NAO EXISTE NADA COM ESSE LOGIN E COM ESSA SENHA 
'SENAO "Else" ELE ABRE A SESSAO 'Entrada' que é igual a "sim" E JUNTAMENTE PEGA OS DADOS DO USUARIO PARA USAR NAS PAGINAS SEGUINTES...

'Segue abaixo 

if (rsLogar.eof) Then

Response.Write "ERRO - Login ou Senha incorretos"

Else

Session("entrada") = "sim"
Session("user") = rsLogar("user")

Response.redirect("main.asp")


End If

%>

[xanburzum 169]

olha este link