Redireionamento Dinamico

[Guest - Fernando -]

e ae pessoal tdo tranquilo? bom preciso de uma ajudinha de vocês, tenho um banco de dados em acess, como 10 usuarios cadastrados, e eles estao sendo manipulados por um script que faz a autenticacao direto no banco, mas quero q faça o redirecionamento para 10 paginas diferentes por ex: Usuario1 Senha1, sera redirecionado para 1.asp, usuario2 e senha2 redirecionado para 2.asp e assim por diante.

P.S: não vou usar nivel de usuario pois no meu caso não é viavel

Codigo de conexao com o banco

<% 
vlogin = Request.Form("login")
senha = Request.Form("senha")
empresa = request.querystring("empresa")

End select 

if vlogin = "" then
Response.Redirect "error.asp"
end if

Set conn = Server.CreateObject("ADODB.Connection")
rs = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("senha.mdb")
conn.Open rs

sql = "SELECT * FROM acesso WHERE login= '" & vlogin & "' and senha='" & senha & "'"
Set verifica = Server.CreateObject("ADODB.Recordset")
verifica.Open sql, conn, 3, 3

If not verifica.EOF then
user = verifica("login")
elseif user = "" then
Response.Redirect "error.asp"
end if


if not verifica.EOF then

vlogin = verifica.Fields("login").Value

Response.Redirect"acesso.asp"

elseif vlogin <> verifica.Fields("login").Value then


Response.Redirect "error.asp"

End if

%>

Atenciosamente,

Fernando

[ska_ska]

não sei se entendi direito velho.. mas ve ai se é isso...

if not verifica.EOF then
   vlogin = verifica.Fields("login").Value
   session("idlogin") = verifica.Fields("idusuario")      'o nome do campo de autonumeração, ok...
   Response.Redirect session("idlogin")&".asp"
elseif vlogin <> verifica.Fields("login").Value then
   Response.Redirect "error.asp"
End if

e todo o lugar q tiver o link pra home, ao invés de você colocar... home.asp você usa

session("idlogin")&".asp"

[Guest - Fernando -]

e ae manow firmeza?

entaum acho q via funcionar não da pra testa pois to na escola, mas como eu coloco as paginas não entendi esta parte faz um exemplo claro ae pra mim ver pra redirecionar o usuario 1 para a pagina teste.asp

Atenciosamente,

Fernando

[pgmador]

Cara.. nunca vi isso.. cada usuário ter uma página diferente.. de qualquer forma, vamos lá.

Na parte de autenticação do login, faz o seguinte:

<%

usuario=Request.Form("usuario")

senha=Request.Form("senha")

rs.Open "SELECT * FROM usuario WHERE usuario='"&usuario&"' AND senha='"&senha&"'", conexao

if not rs.EOF then

Response.Redirect ("teste.asp")

%>