<%
set conexao = server.createObject("adodb.connection")
conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("login.mdb")
sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'"
set rsLogin = conexao.execute(sql)
Login = rsLogin("login")
Senha = rsLogin("senha")
if not rsLogin.eof then
Session("login")=TRUE
Session("senha")=TRUE
Response.Redirect"adminname.asp"
else
Response.Redirect"form.asp"
end if
conexao.close
rsLogin.close
set conexao = nothing
set rsLogin = nothing
%>
Pergunta
victormartins
form.asp
login.asp adminname.aspse precisar de outras pags me avisem!!
Me ajudem por favor!!!
Link para o comentário
Compartilhar em outros sites
28 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.