Administracao Usuarios

[Guest fernando almeida]

e ae pessoal td tranquilo, bom meu problema é o seguinte. tenho quatro campos no meu banco de dados (acess) Empresa(autonumeracao), Nome(nome da empresa), Senha(senha) e Pagina(pagina que o usuario ira acessar).

Bom o que eu preciso é o seguinte quando o usuario1 se logar com a senha1 sera redirecionado para a pagina 1.asp

Quando o usuario2 se logar com a senha2 sera redirecionado para a pagina 2.asp

e assim por diante.

Estou usando este codigo para autenticar os usuarios e ele esta funcionando normal, so não to conseguindo redirecionar os usuarios para paginas diferentes, por favor me ajudem.

Conexao

<%

vlogin = Request.Form("login")

senha = Request.Form("senha")

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

%>

Atenciosamnete,

Fernnado

[ursolouco]

Após o Login estar ok...

<%...
........
 sSQL = "SELECT * FROM Tabela Where Usuario = "& Usuario &";"
 Rs.Open sSQL, Conexao, 3, 3
 If not Rs.Eof
 manda_pra_Onde = Rs("Site")
 Response.Redirect(manda_pra_Onde)
 Else
 Response.Write("Erro")
 End If

+ ou - isso aí...