Olá a todos! Desde já agradeço a colaboração.
Estou consertando uma página em asp 3.0 mas como não tenho muito conhecimento em asp, tranquei em uma tela de acesso a uma área restrita.
na index tenho dois input: "usuario" e "senha"
O botão de acesso vai para um asp (confera.asp) que contém o código abaixo para validar o usuário e direcionar para a tela pessoal.asp:
confera.asp
-------------
aviso = "<br><br>ACESSO NEGADO<br>Os dados informados não conferem!"
email = Lcase(request("usuario"))
pass = Lcase(request("senha"))
'SELECIONA USUARIO E SENHA PARA CONFERIR
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open = "Provider=SQLOLEDB;SERVER=xxxx;DATABASE=xxxx;UID=xxxx;PWD=xxxx;"
set tabela=oconn.execute("select * from cadastrados where email like '"& email &"' and pass like '"& pass &"'")
do while not tabela.eof
if email = tabela("email") and pass = tabela("pass") then
email = tabela("email")
pass = tabela("pass")
id = tabela("id")
response.redirect("pessoal.asp?id=" & id)
else
end if
tabela.movenext
loop
if tabela.bof then
response.redirect ("area_restrita.asp?aviso=" & aviso)
end if
-------------
O meu problema vem agora. Na tela pessoal.asp o sistema faz um select pelo id apenas. Gostaria de fazer esse select com os inputs da tela index, mas como ele passa antes por essa confera.asp não consigo pegar os valores pelo request.form. Acredito que é isso o que está acontecendo! O que posso fazer?
pessoal.asp abaixo
----------------------
id = request ("id")
aviso = request.Form ("aviso")
aviso1 = request.Form ("aviso1")
erro = "<br><br>ACESSO NEGADO<br>Os dados informados não conferem!"
usuario = request.Form ("usuario")
senha = request.Form ("senha")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB;Data Source=xxxxx;User ID=xxxxx;Password=xxxxx"
'ANTIGA
'set tabela=oconn.execute("select * from cadastrados where id like '"& id &"'")
'NOVA CONSULTA QUE QUERO FAZER MAS NÃO CONSIGO TRAZER OS VALORES PARA USUARIO E SENHA
set tabela=oconn.execute("select * from cadastrados where email like '"& usuario &"' and pass like '"& senha &"'")
if tabela.eof = true then
response.write "<title>" & senha & "</title>"
end if
do while not tabela.eof
....
