tenho esse script de verificação de senha e nome de usuario, que vem de um form de dois textfields denominados: usuario e senha.
A partir daí queria fazer uma consulta onde apresentasse como resultado somente o usuario digitado no primeiro form... mas já tentei de tudo e não rolou... olha só:
esse é o script da verificação do usuario e senha digitado no form anterior:
<!--#include file="conexao_central.asp"-->
<%
Dim usuario, senha
usuario = Trim(LCase(Request.Form("usuario")))
senha = Trim(LCase(Request.Form("senha")))
if len(usuario) = 0 then
response.redirect "logar.asp?erro=1"
end if
if len(senha) = 0 then
response.redirect "logar.asp?erro=2"
end if
Call AbrirDB
sql = "SELECT * FROM login WHERE nome='" & usuario & "'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql,ConnDB,3,3
if not RS.EOF then
if RS("senha") <> senha then
response.redirect "logar.asp?erro=4"
else
Session("login") = True
response.redirect "central_escolhe_pra_alterar.asp"
end if
else
response.redirect "logar.asp?erro=3"
end if
RS.close
Set RS = Nothing
Call FecharDB
%>
e aqui a parte da consulta onde acredito estar o erro está assim:
'usuario = Trim(LCase(Request.Form("usuario")))
'usuario = request.form ("usuario")
' tentei desses jeitos acima, mas tb não funcionaram...
usuario = Session("login")
strQuery = "SELECT * FROM login WHERE nome ='" & usuario & "'"
Set ObjRs = objConn.Execute(strQuery)
Pergunta
Notax
Oi pessoal, estou aqui pra mais esta dúvida...
tenho esse script de verificação de senha e nome de usuario, que vem de um form de dois textfields denominados: usuario e senha.
A partir daí queria fazer uma consulta onde apresentasse como resultado somente o usuario digitado no primeiro form... mas já tentei de tudo e não rolou... olha só:
esse é o script da verificação do usuario e senha digitado no form anterior:
<!--#include file="conexao_central.asp"--> <% Dim usuario, senha usuario = Trim(LCase(Request.Form("usuario"))) senha = Trim(LCase(Request.Form("senha"))) if len(usuario) = 0 then response.redirect "logar.asp?erro=1" end if if len(senha) = 0 then response.redirect "logar.asp?erro=2" end if Call AbrirDB sql = "SELECT * FROM login WHERE nome='" & usuario & "'" Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,ConnDB,3,3 if not RS.EOF then if RS("senha") <> senha then response.redirect "logar.asp?erro=4" else Session("login") = True response.redirect "central_escolhe_pra_alterar.asp" end if else response.redirect "logar.asp?erro=3" end if RS.close Set RS = Nothing Call FecharDB %>e aqui a parte da consulta onde acredito estar o erro está assim:'usuario = Trim(LCase(Request.Form("usuario"))) 'usuario = request.form ("usuario") ' tentei desses jeitos acima, mas tb não funcionaram... usuario = Session("login") strQuery = "SELECT * FROM login WHERE nome ='" & usuario & "'" Set ObjRs = objConn.Execute(strQuery)algúem sabe me dizer onde errei?
desculpem qualquer. coisa...
forte abraço e muito obrigado pela atenção!
Link para o comentário
Compartilhar em outros sites
8 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.