Oi galera...bom...eu peguei esse projeto pela metade e tenho que continuar ele...mas eu não manjo muito te ASP...só programo em JSP
Bem...ao tentar fazer o login...ele me mada para a página validate.asp que vai fazer a validação do usuário...mas dá esse erro:
Microsoft OLE DB Provider for ODBC Drivers error '80040e37'
[Microsoft][ODBC SQL Server Driver][SQL Server]Invalid object name 'Login'.
/validate.asp, line 15
Aí segue o código dessa página...
<!--#Include file="config.inc"-->
<html>
<body>
<%
UserName = UCase(Replace(Trim(Request.Form("username")), "'", "''"))
PassWord = UCase(Replace(Trim(Request.Form("password")), "'", "''"))
Unidade = UCase(Replace(Trim(Request.Form("unidade")), "'", "''"))
If UserName = "" OR PassWord = "" Then Response.Redirect "index.asp"
SQL = "Select * From Login"
Set RS = Conexao.Execute(SQL)
dim usuario,qtdmsg
While Not RS.EOF
If UserName = uCase(RS("UserName")) And PassWord = uCase(RS("Password")) And Unidade = uCase(RS("Unidade")) Then
If RS("ExpireDate") > Now() Then
Session("allow") = True
Session("clearance") = RS("Clearance")
Session("Usuario") = trim(RS("UserName"))
Session("ID_Usuario") = RS("ID")
Session("ID_unidade") = RS("unidade")
Session("ID_Depto") = RS("Depto")
Session("sAltera") = RS("Altera")
Session("sConsulta") = RS("Consulta")
Session("sExclui") = RS("Exclui")
Session("sCadastra") = RS("Cadastra")
Session("sCadastraDoacao") = RS("CadastraDoacao")
Session("sAlteraDoacao") = RS("AlteraDoacao")
Session("sConsultaDoacao") = RS("ConsultaDoacao")
Session("sExcluiDoacao") = RS("ExcluiDoacao")
Session("sImprimeRecibo") = RS("ImprimeRecibo")
Level = RS("Clearance")
Else
Response.Redirect "utility.asp?method=expired"
End If
End If
RS.MoveNext
Wend
Response.Write(Session("usuario"))
CleanUp(RS)
Response.Redirect "index.asp"
%>
</body>
</html>
Alguém pode me ajudar? Porque dá isso? Preciso muuuuito disso...valeu!
Dá Esse Erro Ao Logar
Started By Paulo Beck, 17/03/2006, 08:50
2 replies to this topic
#2
Agente Linhares
-
- Ex-Admins
-
- 3138 posts
fuis...abraços!
- Sexo:Não informado
- Localidade:Biritiba Mirim-SP
Posted 17/03/2006, 10:30
ta extremamente confuso e desorganizado esse code.
fiz umas mudanças pequenas nele so pra testar, vê se rola:
* lembrando q fiz as modificações meio no escuro, pois nao sei o resto do seu code, muito menos sua estrutura de bd e etc...
* verifica se no seu bd realmente tem a tabela "Login"
fiz umas mudanças pequenas nele so pra testar, vê se rola:
<!--#Include file="config.inc"-->
<html>
<body>
<%
UserName = UCase(Replace(Trim(Request.Form("username")), "'", "''"))
PassWord = UCase(Replace(Trim(Request.Form("password")), "'", "''"))
Unidade = UCase(Replace(Trim(Request.Form("unidade")), "'", "''"))
If UserName = "" OR PassWord = "" Then
Response.Redirect "index.asp"
End If
SQL = "Select * From Login where UserName='"&UserName&"' and Password='"&PassWord&"'"
Set RS = Conexao.Execute(SQL)
dim usuario,qtdmsg
While Not RS.EOF
If UserName = uCase(RS("UserName")) And PassWord = uCase(RS("Password")) And Unidade = uCase(RS("Unidade")) Then
If RS("ExpireDate") > Now() Then
Session("allow") = True
Session("clearance") = RS("Clearance")
Session("Usuario") = trim(RS("UserName"))
Session("ID_Usuario") = RS("ID")
Session("ID_unidade") = RS("unidade")
Session("ID_Depto") = RS("Depto")
Session("sAltera") = RS("Altera")
Session("sConsulta") = RS("Consulta")
Session("sExclui") = RS("Exclui")
Session("sCadastra") = RS("Cadastra")
Session("sCadastraDoacao") = RS("CadastraDoacao")
Session("sAlteraDoacao") = RS("AlteraDoacao")
Session("sConsultaDoacao") = RS("ConsultaDoacao")
Session("sExcluiDoacao") = RS("ExcluiDoacao")
Session("sImprimeRecibo") = RS("ImprimeRecibo")
Level = RS("Clearance")
Else
Response.Redirect "utility.asp?method=expired"
End If
End If
RS.MoveNext : Wend
Response.Write(Session("usuario"))
CleanUp(RS)
Response.Redirect "index.asp"
%>
</body>
</html>
* lembrando q fiz as modificações meio no escuro, pois nao sei o resto do seu code, muito menos sua estrutura de bd e etc...
* verifica se no seu bd realmente tem a tabela "Login"
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
#3
Paulo Beck
-
- Usuários
-
- 19 posts
Novato no fórum
- Sexo:Não informado
Posted 20/03/2006, 09:30
Continuou a mesma coisa...mas agora na linha 15...acho que não tem a tabela Login mesmo...acontece que não deu para eu ver isso porque ela fica no servidor de banco de dados...e eu não tenho acesso a ele...estou testando esse projeto online...
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
