Ir para conteúdo

POWERED BY:

Arquivado

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

vitorlouzada

[Resolvido] Como resolver isso?

Por , em ASP Clássico

Recommended Posts

vitorlouzada    0

vitorlouzada
Postado

Tá dando esse erro ao efetuar o login no meu sistema, alguem sabe o que pode ser?

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'Conexao'

 

/validar.asp, line 37

 

Segue código da página validar.asp

 

ASP
<html>

 

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<meta name="GENERATOR" content="Microsoft FrontPage 4.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>Login</title>

<script language="javascript">

function apagar(){

opener.document.formulario.reset()

}

</script>

</head>

 

<body onLoad="apagar()">

<% AbreConexao

        login = Replace(request.form("admin"), "'", "/")

   senha = Replace(request.form("senha"), "'", "/")

        Sql = "SELECT * FROM users WHERE login = '"&login&"' "

        Sql = Sql & "AND senha='"&senha&"' "

        Set Rs = Conexao.Execute(Sql)

        if not rs.eof then

        Session("yep") = True

        Session("id") = RS("id")

        Session("admin") = RS("login")

        Session("email") = RS("email")

        Response.Redirect "principal.asp"

        else

        Response.Redirect "falha.asp"

        end if

 

Set Conexao = CreateObject("ADODB.CONNECTION")

conStr ="DBQ=caminho_pro_bd;Driver={Microsoft Access Driver (*.mdb)}"

ConexaoAberta = FALSE

Sub AbreConexao()

        if not ConexaoAberta then

        Conexao.Open ConStr

        ConexaoAberta = True

        end if

end sub

Sub FechaConexao()

        if ConexaoAberta then

        Conexao.close

        ConexaoAberta = False

        end if

end sub

FechaConexao %>

 

</body>

</html>

 

Alguem sabe o que pode ser??? tá falando que é problema na conexão... mas eu não consegui identificar nenhum problema... fico no aguardo da ajuda de vocês.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Declare a variável conexao antes de chamar a SUB abreconexao.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

isso

 

Sub AbreConexao()
		if not ConexaoAberta then
		Conexao.Open ConStr
		ConexaoAberta = True
		end if
end sub

antes disso

 

AbreConexao

Compartilhar este post

Link para o post
Compartilhar em outros sites

vitorlouzada    0

vitorlouzada
Postado

Opa!

 

Obrigado pela ajuda.

 

Aqui no meu server local tá funcionando beleza...

 

vamos ver na hora que rodar no server de hospedagem!!!

 

Obrigado pela ajuda de vocês novamente!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Que bom que resolveu

 

Vou colocar como resolvido

 

Qualquer coisa avisa

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