Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

designmix

Erro na linha 8 ()

Por , em ASP Clássico

Recommended Posts

designmix    0

designmix
Postado

ESTOU TENTANDO FAZER UM SITEMA DE LOGIN MAIS COM NIVEL DE ACESSO

1 2 3

 

ASP [/tr][tr]

<%@ Language=VBScript %>

<!--#include file="../_conn/bib_conexao.asp"-->

 

<%

 

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

set strSQL = conn.Execute("SELECT * FROM admin WHERE login='"&login&"' AND senha='"&senha&"' ") ---> ESSA SERIA ALINHA 8

if acesso.eof then

Response.Redirect"entrar.htm"

 

else

Session("login")=login

Session("usuario")= acesso("usuario")

 

Session("Email")= acesso("Email")

Session("login")= acesso("login")

 

Response.Redirect"identificado.asp"

end if

DB.close

%>

[/tr]

 

ERRO

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01A8)Objeto necessário: ''/dpi/login/acesso.asp, line 8
GRATO PELA AJUDA :blink: :wacko:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Foxbh    0

Foxbh
Postado

Ola !!!

 

Este e um sisteminha de login que eu uso em minhas aplicaçoes, espero que ele te ajude

 

 

 

<%	Login = Trim(Request.Form("Login"))	Senha = Trim(Request.Form("Senha"))	Verifica = 0	ConnString ="DBQ=" & Server.Mappath("../dados/dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"    ConnString = ConnString & ";Driver={Microsoft Access Driver (*.mdb)}"	Set Connexao = Server.CreateObject("ADODB.Connection")	Connexao.Open ConnString		SQLString = "SELECT * FROM configuracoes WHERE login='" & Login & "'"		Set Reg = Connexao.Execute(SQLString)	If Reg.EOF Then  Verifica = 1	End If%><BODY><% If Verifica = 1 Then %><p align="center"><b><font face="Arial"><font size="4">Login Incorreto,</font><font size="4" color="#FF0000"></font> <a href=default.asp><font color="#FF0000"><a href="index.asp">tente outra vez</a></font></a><a href="index.asp"><font color="#FF0000">.</font></a></font></b></p><% Else %><% If Reg("senha") <> Senha Then %><p align="center"><b><font face="Arial"><font size="4">Senha Incorreta,</font><font color="#FF0000"><a href="index.asp"></a></font><a href="index.asp"><font color="#FF0000">tente outra vez.</font></a></font></b></p><% Else	session("Nome")   = Reg("login")	session("Acesso") = Reg("senha")			response.expires=0	response.redirect "acesso_permitido.asp"End If %><% End If	Reg.Close	Connexao.Close	Set Reg = Nothing	Set Connexao = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

voce precisa abrir a conexao, o objeto conn nao existe no seu codigo....

a conexao dele deve estar naquele include lá..O problema aí, parece ser erro no WHERE..Na condição, alguma das variaveis pode estar vazia, ou com caracteres indesejáveis.. como ASPA SIMPLES..Entao, geraria o erro..o que você pode fazer, primeiro, é dar um response.write nas duas variaveis, na linha anterior ao SELECT, e depois dar um response.end, salvar e rodar o codigo, pra ver o que acontece.Se os dados forem mostrados corretamente, aí o problema pode ser outro..Caso nao mostre nada.. tem alguma coisa errada aí, ou as variaveis, ou o modo como você esta resgatando os valores.Faça este teste primeiro.T+

Compartilhar este post

Link para o post
Compartilhar em outros sites

FabricioGomes    0

FabricioGomes
Postado

dark0, o erro já explica, "objeto necessário"...esse include é somente das subs que criam e destroem as conexoes ao banco de dados...e olhem no final, tem um DB.Close... cade o objeto DB?falow! ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

FabricioGomes    0

FabricioGomes
Postado

<%@ Language=VBScript %><!--#include file="../_conn/bib_conexao.asp"--><%login=(Request.QueryString("login"))senha=(Request.QueryString("senha"))call abre_conexaostrSQL = "SELECT * FROM admin WHERE login='"&login&"' AND senha='"&senha&"'"set acesso = conn.Execute(strSQL)call fecha_conexaoif acesso.eof thenResponse.Redirect"entrar.htm"elseSession("login")=loginSession("usuario")= acesso("usuario")Session("Email")= acesso("Email") Session("login")= acesso("login")Response.Redirect"identificado.asp"end if%>designmix, ta ai seu codigo melhorado....

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

Alguem pode me ajudar estou começando agora a aprender asp.

 

ainda da erro na linha 8

 

ASP [/tr][tr]<%@ Language=VBScript %>

<!--#include file="../_conn/bib_conexao.asp"-->

 

<%

 

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

set strSQL = conn.Execute("SELECT * FROM admin WHERE login='"&login&"' AND senha='"&senha&"' ")

Connexao.Open (strSQl)

call abre_conexao

 

if acesso.eof then

Response.Redirect"entrar.htm"

 

else

Session("login")=login

Session("usuario")= acesso("usuario")

 

Session("Email")= acesso("Email")

Session("login")= acesso("login")

 

Response.Redirect"identificado.asp"

end if

DB.close

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara seu recorser não foi definido

 

vai precisar de algo como

 

[tr][/tr][tr][/tr]
ASP

call abre_conexao

SET acesso = Connexao.Open (strSQl)

 

estou contando que sua Connexao esta sendo definida no include, senão vai dar pau ainda

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

agora esta assim

 

ASP [/tr][tr]<%@ Language=VBScript %>

<!--#include file="../_conn/bib_conexao.asp"-->

 

<%

 

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

 

call abre_conexao

strSQL = "SELECT * FROM admin WHERE login='"&login&"' AND senha='"&senha&"'"

set acesso = conn.Execute(strSQL)

call fecha_conexao

 

if acesso.eof then

Response.Redirect"entrar.htm"

else

Session("login")=login

Session("usuario")= acesso("usuario")

Session("Email")= acesso("Email")

Session("login")= acesso("login")

Response.Redirect"identificado.asp"

end if

%>

[/tr]

 

grato :wacko:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual o erro??

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

Tipo de erro:

ADODB.Recordset (0x800A0E78)

Operação não permitida quando o objeto está fechado.

/dpi/login/acesso.asp, line 14

 

 

a linha é essa

ASP [/tr][tr]if acesso.eof then[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

nda ainda da o mesmo erroTipo de erro:ADODB.Recordset (0x800A0E78)Operação não permitida quando o objeto está fechado./dpi/login/acesso.asp, line 14

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado
[tr][/tr][tr][/tr]
ASP <%@ Language=VBScript %>

<!--#include file="../_conn/bib_conexao.asp"-->

 

<%

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

 

call abre_conexao

strSQL = "SELECT * FROM admin WHERE login='"&login&"' AND senha='"&senha&"'"

set acesso = conn.Execute(strSQL)

 

if acesso.eof then

Response.Redirect"entrar.htm"

else

Session("login")=login

Session("usuario")= acesso("usuario")

Session("Email")= acesso("Email")

Session("login")= acesso("login")

Response.Redirect"identificado.asp"

end if

call fecha_conexao

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

FabricioGomes    0

FabricioGomes
Postado

o problema de colocar o fecha_conexao no fim é seu redirect, ele nao ira fechar as conexoes com o banco de dados se colocar no fim....(nao ira executar)... voce precisa fechar o recordset no fecha_conexao? verifique algo sobre recordset desconectados... ok?

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

o problema de colocar o fecha_conexao no fim é seu redirect, ele nao ira fechar as conexoes com o banco de dados se colocar no fim....(nao ira executar)... voce precisa fechar o recordset no fecha_conexao? verifique algo sobre recordset desconectados... ok?

mano, nao resolveria, se fechasse as conexoes, uma linha antes de redirecionar?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito