Login Para Paginas Diferentes

[Patricia Guido]

Tenho que fazer um sistema de login e senha, mas que cada login vá para uma pagina diferente... são uns 15 logins e 15 paginas

me ajudem...por favor...é urgente

vou colocar aqui a parte de login que eu tenho, quando todos os logins vao para a mesma pagina

<!--#include file="conectando.asp"-->
<%
Abreconn

vuser = Replace(Trim(request.form("nome")), "'", "/")
vpass = Replace(Trim(request.form("senha")), "'", "/")

sql = "select * from atualizacao where nome='"&vuser&"' and senha='"&vpass&"' "
Set rs = bco.execute(sql)

If not rs.eof Then
Session("login") = True
Session("nome") = vuser

response.write("<script>location = 'SIM/PRINCIPAL987FGH.htm';alert('VOCÊ FOI LOGADO COM SUCESSO!.')</script>")

Else

rs.close
Set rs = Nothing
Response.Redirect "CONTROLE/acesso.asp"

End if
fechaconn
%>

obrigada

[quintelab]

Patricia acredito que você tenha que fazer alguns Ifs para conseguir isso:

<!--#include file="conectando.asp"-->
<%
Abreconn

vuser = Replace(Trim(request.form("nome")), "'", "/")
vpass = Replace(Trim(request.form("senha")), "'", "/")

sql = "select * from atualizacao where nome='"&vuser&"' and senha='"&vpass&"' "
Set rs = bco.execute(sql)

If not rs.eof Then
Session("login") = True
Session("nome") = vuser

'response.write("&lt;script>location = 'SIM/PRINCIPAL987FGH.htm';alert('VOCÊ FOI LOGADO COM SUCESSO!.')</script>")
If vuser = "a" Then
  Response.Redirect("PaginaA.asp")
ElseIf vuser = "b" Then
  Response.Redirect("PaginaB.asp")
End If

Else

rs.close
Set rs = Nothing
Response.Redirect "CONTROLE/acesso.asp"

End if
fechaconn
%>

E assim para as 15 páginas...

[Patricia Guido]

ainda deu erro, primeiro com o abreconn e depois vai direto para o Response.Redirect "CONTROLE/acesso.asp"

ainde deu erro, primeiro com o abreconn e depois ele vai direto para Response.Redirect "CONTROLE/acesso.asp"

[quintelab]

Patricia você tem que olhar o que tem de errado na sua função Abrecon, e o problema de estar indo para a página acesso.asp, é por que seu login e senha devem estar errados.