[Resolvido] erro de codigo

[lezão 0]

Ola galera estou com probleminha aki

 

esta aparecendo este erro:

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xb8 Thread 0x45f0 DBC 0x2adf4fbc Jet'. 

/public_html/loja_demo1/admin/libraries/conectar.asp, line 9 

 

conectar.asp

<%Set Conexao = CreateObject("ADODB.CONNECTION")%>
<!-- #include file="bd.asp" -->

<%
conStr = String_conexao
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
AbreConexao
Set rsConfigura = Conexao.Execute("SELECT * FROM config_loja")
nomedaloja = rsConfigura("loja_nome")
url = rsConfigura("loja_url")
emailautomatico = rsConfigura("email_automatico")
emailcontato = rsConfigura("email_contato")
emailpedidos = rsConfigura("email_pedidos")
emailservidor = rsConfigura("email_host")
emailcomponente = rsConfigura("componente")

Application("AUTHOR") = "by WebVETOR"
Application("EMAILAUTHOR") = "espartaco_vettorazzi@yahoo.com.br"
Session.LCID = 1046
response.buffer = true
session.timeout = 900
response.buffer = true
session.timeout = 900
dia=Day(now())
mes=Month(now())
ano=Year(now())
If dia > "10" Then
dia = "" & dia
end if
If mes > "10" Then
mes = "" & mes
end if
data = dia&"/"&mes&"/"&ano
Function Cripto(StrCripto, BolAcao)
Dim X , i, n, TamChave, Valor 
Dim aChaves(9) 
aChaves(0) = 77 
aChaves(1) = 84 
aChaves(2) = 79
aChaves(3) = 65
aChaves(4) = 73
aChaves(5) = 78
aChaves(6) = 67
aChaves(7) = 70
aChaves(8) = 82

X = Empty 

For i = 1 To Len(StrCripto) 
   n = Asc(Mid(StrCripto, i, 1))

   If n > 31 Then
      n = n - 32
      If BolAcao Then
         Valor = 1
      Else
         Valor = -1
      End If
      n = n + (aChaves((i - 1) Mod 9)) * Valor
      n = n Mod 224 ' Caracteres 256 - 32 desconsiderados
         If n < 0 Then
            n = 224 + n
         End If
      n = n + 32
   End If

   X = X & Chr(n)
Next
     If BolAcao Then
         Cripto = EHtmlEncode(X)
      Else
        Cripto = EHtmlDecode(X)
      End If
End Function
Function EHtmlEncode(StrString)
StrString = Replace(StrString, ",", ",")
StrString = Replace(StrString, "'", "'")
StrString = Replace(StrString, """", """")
StrString = Replace(StrString, "=", "=")
StrString = Replace(StrString, ".", ".")
StrString = Replace(StrString, "(", "(")
StrString = Replace(StrString, "set", "set")
StrString = Replace(StrString, "SET", "SET")
StrString = Replace(StrString, " where ", "where")
StrString = Replace(StrString, " WHERE ", "WHERE")
StrString = Replace(StrString, ")", "(")
StrString = Replace(StrString, Chr(32), Chr(32))
StrString = Replace(StrString, Chr(13), Chr(13))
StrString = Replace(StrString, Chr(0), Chr(0))
StrString = Replace(StrString, Chr(10) & Chr(10), Chr(10) & Chr(10))
StrString = Replace(StrString, Chr(10), Chr(10))
StrString = Replace(StrString, Chr(9), Chr(9))
StrString = Replace(StrString, Chr(11), Chr(11))
StrString = Replace(StrString, Chr(12), Chr(12))
StrString = Replace(StrString, Chr(60), Chr(60))
StrString = Replace(StrString, "/", "/")
StrString = Replace(StrString, "\", "\")
EHtmlEncode = StrString
End Function
Function EHtmlDecode(StrString)
StrString = Replace(StrString, "_a", "_a")
StrString = Replace(StrString, "_b", "_b")
StrString = Replace(StrString, "_c", "_c")
StrString = Replace(StrString, "_d", "_d")
StrString = Replace(StrString, "_e", "_e")
StrString = Replace(StrString, "_f", "_f")
StrString = Replace(StrString, "_g", "_g")
StrString = Replace(StrString, "_h", "_h")
StrString = Replace(StrString, "_i", "_i")
StrString = Replace(StrString, "_j", "_j")
StrString = Replace(StrString, "_l", "_l")
StrString = Replace(StrString, "_m", "_m")
StrString = Replace(StrString, "_n", "_n")
StrString = Replace(StrString, "_o", "_o")
StrString = Replace(StrString, "_p", "_p")
StrString = Replace(StrString, "_q", "_q")
StrString = Replace(StrString, "_r", "_r")
StrString = Replace(StrString, "_s", "_s")
StrString = Replace(StrString, "_t", "_t")
StrString = Replace(StrString, "_u", "_u")
StrString = Replace(StrString, "_v", "_v")
StrString = Replace(StrString, "_x", "_x")
EHtmlDecode = StrString
End Function%><!-- #include file="skin.asp" -->

[xanburzum 169]

verifique se as permissoes estão corretas e tem direitos administrativos e se estiver testando no localhost, veja se o access não esta aberto com o arquivo do bd

[lezão 0]

bd.asp

 

<%
'********************************************************************************
' AS CONFIGURAÇÕES ABAIXO REFEREM-SE AO USO DE MS ACCESS
'********************************************************************************
strDatabaseName = "loja.mdb" 'NOME DO ARQUIVO DE BANCO DE DADOS DA LOJA
strDatabaseCEP = "cep.mdb" 'NOME DO ARQUIVO DE BANCO DE DADOS DE CEPS
strDatabasedir = "C:\loja" 'DIRETÓRIO ONDE SE ENCONTRA A PASTA DE DADOS
strDatabasePath = "db" 'PASTA ONDE SE ENCONTRA O BANCO DE DADOS

DBQ = strDatabasedir&"\"&strDatabasePath&"\"&strDatabaseName
DBQc = strDatabasedir&"\"&strDatabasePath&"\"&strDatabaseCEP
DBQp = strDatabasePath&"\"&strDatabaseName
String_conexao = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&DBQ


'********************************************************************************
' AS CONFIGURAÇÕES ABAIXO REFEREM-SE AO USO DE MS SQL SERVER
'********************************************************************************

'strDatabaseCEP = "cep.mdb" 'NOME DO ARQUIVO DE BANCO DE DADOS DE CEPS
'strDatabasedir = "C:\loja" 'DIRETÓRIO ONDE SE ENCONTRA A PASTA DE DADOS DO CEP
'strDatabasePath = "db" 'PASTA ONDE SE ENCONTRA O BANCO DE DADOS
'MSSQLSERVER = "000.000.000.00" 'IP DO SERVIDOR MS SQL SERVER
'MSSQLUSER = "seulogin" ' LOGIN DE USUÁRIO DA BASE DE DADOS
'MSSQLSENHA = "suasenha" ' SENHA DE USUÁRIO DA BASE DE DADOS
'MSSQLBASE = "suabase" ' NOME DA BASE DE DADOS
'DBQc = strDatabasedir&"\"&strDatabasePath&"\"&strDatabaseCEP
'String_conexao ="Provider=sqloledb;Data Source="&MSSQLSERVER&";Initial Catalog="&MSSQLBASE&";User Id="&MSSQLUSER&";Password="&MSSQLSENHA&";"
'************************************************************************************************%>

 

agora esta dando este erro :

 

ADODB.Connection error '800a0e78' 

Operation is not allowed when the object is closed. 

/public_html/loja_demo1/admin/libraries/conectar.asp, line 19 

 

Depois q mexi aki

 

bd.asp

<% 
'******************************************************************************** 
' AS CONFIGURAÇÕES ABAIXO REFEREM-SE AO USO DE MS ACCESS 
'******************************************************************************** 
strDatabaseName = "loja.mdb" 'NOME DO ARQUIVO DE BANCO DE DADOS DA LOJA 
strDatabaseCEP = "cep.mdb" 'NOME DO ARQUIVO DE BANCO DE DADOS DE CEPS 
strDatabasedir = "C:\loja" 'DIRETÓRIO ONDE SE ENCONTRA A PASTA DE DADOS 

strDatabasePath = "[u]db\loja.mdb[/u]" 'PASTA ONDE SE ENCONTRA O BANCO DE DADOS 

[xanburzum 169]

Este erro pode ser causado quando você tentar acessar os valores de um conjunto de registros vazio ou de um conjunto de registros que já foi fechado. A causa mais comum, no entanto, parece resultar de chamar um procedimento armazenado que não usa NOCOUNT SET ON. , veja também a sua versão do MDAC,e se esta instalado corretamente

[lezão 0]

Blza Xan, mas uma vez você me salvou deu certo cara muito obrigado !

[xanburzum 169]

vlz....beleza...

 

+ 1 resolvido