O Que Esta Errado?

[Guest Nildo "Aprendendo"]

Porque da erro se não colocar nem senha nem login, era pra aparecer outra page dizendo que login e senha esta errado......onde esta o erro...???

<%

set conexao = server.createObject("adodb.connection")

conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("carros.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"index.asp"

else

Response.Redirect"senha.asp"

end if

conexao.close

rsLogin.close

set conexao = nothing

set rsLogin = nothing

%>

[DackAle]

<%

set conexao = server.createObject("adodb.connection")

conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("carros.mdb")

sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'"

set rsLogin = conexao.execute(sql)

if not rsLogin.eof then

Login = rsLogin("login")
Senha = rsLogin("senha")

Session("login")=TRUE
Session("senha")=TRUE
Response.Redirect"index.asp"

else

Response.Redirect"senha.asp"

end if

conexao.close
rsLogin.close
set conexao = nothing
set rsLogin = nothing

%>

[dark0]

Amigo, esta faltando você fazer um teste se o campo usuario e senha foram informados.

Ou seja, falta um IF ae..

<%

set conexao = server.createObject("adodb.connection")

conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("carros.mdb")

if request("usuario") = "" or request("senha") = "" then

  response.write "Digite os campos"

  response.end

end if

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"index.asp"

else

Response.Redirect"senha.asp"

end if

conexao.close

rsLogin.close

set conexao = nothing

set rsLogin = nothing

%>

óia em vermelho

[Guest Nildo "Aprendendo"]

Obrigado Funcionou mas tem outro problema.....

se eu for no navegador e digitar o caminho da pagina segura ela abre normal, sendo que só poderia abrir quando colocase LOGIN E SENHA......tem ser assim "se derrepente eu digitar o caminho da page segura no navegador, ela redireciona a pessoa pra page de login e senha...."

tem como????

[cyberalexxx]

Obrigado Funcionou mas tem outro problema.....

se eu for no navegador e digitar o caminho da pagina segura ela abre normal, sendo que só poderia abrir quando colocase LOGIN E SENHA......tem ser assim "se derrepente eu digitar o caminho da page segura no navegador, ela redireciona a pessoa pra page de login e senha...."

tem como????

Voce fez alguma comparação na pagina supostamente segura??

if session("login")<>true then
   response.redirect("senha.asp")
end if

[Guest Nildo "Aprendendo"]

Obrigado Funcionou mas tem outro problema.....

se eu for no navegador e digitar o caminho da pagina segura ela abre normal, sendo que só poderia abrir quando colocase LOGIN E SENHA......tem ser assim "se derrepente eu digitar o caminho da page segura no navegador, ela redireciona a pessoa pra page de login e senha...."

tem como????

   

Voce fez alguma comparação na pagina supostamente segura??

if session("login")<>true then
   response.redirect("senha.asp")
end if

Não sei......quero saber o que eu coloco no html das pages que as pessoas so pode ver se colocar login e senha....para não abrir a qualquer momento????????

[dark0]

ué

na pagina de login, você testa se o usuario e senha estao ok:

sql = "select * from usuarios where usuario=usuario_vindo_do_formulario and senha=senha_vinda_do_formulario"

set rs = conexao.execute(sql)

'depois, testa se os dados foram achados no banco.

if rs.eof = true then

response.write "usuario ou senha não encontrados no banco de dados"

response.end

else

session("login") = "logado"

response.redirect "pagina_segura.asp"

end if

entendeu?

a session login foi criada, na hora do login, né?

Agora, no topo das paginas que deseja bloquear, você testa se o login foi criado:

if session("login") = "logado" then

'libera a pagina

else

'bloqueia a pagina

response.write "não efetuou o login"

response.end

end if