Ir para conteúdo

POWERED BY:

Arquivado

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

Maykel-ctba

Erro 800a01a8

Recommended Posts

Olá galera, sou novo neste fórum :P sou programador PHP a 2 anos e devido a necessidades preciso desenvolver um sisteminha em ASP para um cliente, porém já começam as dúvidas...

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'conexaoSQL'

 

/autenticar.asp, line 13

 

-------------------------------------------------------------

 

Estou fazendo um sistema de login... a base de dados está certa, ele retorna a query correta, mas ele não acha o objeto conexaoSQL! Mas ele existe -.-'

 

 

login.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
<!-- #include file ="config.asp" -->

Dim email, senha
email = Request.Form("txEmail")
senha = Request.Form("txSenha")

Dim sql
sql = "SELECT * FROM [cadastros] WHERE email='" & email & "' AND senha='" & senha & "'"

Dim rs
Set rs = conexaoSQL.Execute(sql)

If rs.EOF Then
email = false
Else
email = true
End If

If email = true Then
Session("logado") = true
Session("email")= email
Response.redirect("inicial.asp")
Else
Response.redirect("index.asp")
End If

%>

config.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%

servidor = "servidor"
database = "data"
login = "login"
senha = "senha"

Set conexaoSQL = CreateObject("ADODB.Connection")
conexaoSQL.Open "Provider=SQLOLEDB.1;SERVER= "& servidor &";" &_
"DATABASE=" & database &";UID=" & login & ";PWD=" & senha & ";"

%>

Como posso resolver isso?

Compartilhar este post


Link para o post
Compartilhar em outros sites

troque

Set conexaoSQL = CreateObject("ADODB.Connection")

 

po

 

Set conexaoSQL = Server.CreateObject("ADODB.Connection")

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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