na minha máquina o sistema roda filé, porém no provedor onde hospedo o site está dando esse 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 0xf48 Thread 0x270 DBC 0x8bfe024 Jet'.
/web/commonN.asp, line 74
O pessoal do suporte me passou essa conexão abaixo:
- Iniciar conexão:
<%
cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("data/database.mdb")
set conn = CreateObject("ADODB.Connection")
conn.open cst
sql = "select * from tabela"
set consulta = conn.execute(sql)
%>
- Finalizar Conexão (muito importante):
<%
conn.close
Set conn = Nothing
%>
-----------------------------------------------------------------------------------------------------------------------------
Só que até 03 semanas atráz o site estava funcionado normalmente com essa conexão abaixo, e de uma hora para outra ficou dando o erro acima mostrado.
<%
Dim adoCon
Dim rsConfiguration
Dim strCon
Dim strSQL
Dim intRecordsPerPage
Dim strBgColour
Dim strTextColour
Dim strTextType
Dim intHeadingTextSize
Dim intTextSize
Dim intSmallTextSize
Dim strLinkColour
Dim strTableColour
Dim strTableBorderColour
Dim strTableTitleColour
Dim strVisitedLinkColour
Dim strActiveLinkColour
Dim blnLCode
Dim blnEmail
Dim strCode
Dim strCodeField
Dim strWebSiteEmailAddress
Dim strMailComponent
Dim strSMTPServer
Dim strLoggedInUserCode
Dim strTitleImage
Dim intMsgCharNo
Dim blnCookieSet
Dim blnIPBlocking
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../data/news.mdb")
adoCon.Open strCon
strCodeField = "Code"
strCode = "nolinks2002"
Set rsConfiguration = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblConfigurationN.* From tblConfigurationN;"
'abaixo a linha 74
rsConfiguration.Open strSQL, strCon
If NOT rsConfiguration.EOF Then
'Read in the configuration details from the recordset
intRecordsPerPage = CInt(rsConfiguration("No_records_per_page"))
strBgColour = rsConfiguration("bg_colour")
strTextColour = rsConfiguration("text_colour")
strTextType = rsConfiguration("text_type")
intHeadingTextSize = CInt(rsConfiguration("heading_text_size"))
intTextSize = CInt(rsConfiguration("text_size"))
intSmallTextSize = CInt(rsConfiguration("small_text_size"))
strTableColour = rsConfiguration("table_colour")
strTableBorderColour = rsConfiguration("table_border_colour")
strTableTitleColour = rsConfiguration("table_title_colour")
strLinkColour = rsConfiguration("links_colour")
strVisitedLinkColour = rsConfiguration("visited_links_colour")
strActiveLinkColour = rsConfiguration("active_links_colour")
strWebSiteEmailAddress = rsConfiguration("email_address")
blnLCode = CBool(rsConfiguration("Code"))
blnEmail = CBool(rsConfiguration("email_notify"))
strTitleImage = rsConfiguration("Title_image")
intMsgCharNo = rsConfiguration("Message_char_no")
blnCookieSet = CBool(rsConfiguration("Cookie"))
blnIPBlocking = CBool(rsConfiguration("IP_blocking"))
strMailComponent = rsConfiguration("mail_component")
strSMTPServer = rsConfiguration("mail_server")
End If
rsConfiguration.Close
Set rsConfiguration = Nothing
%>
Por favor me ajudem preciso deixar o site funcionando novamente pois o cliente está me precionando, já quebrei o pau com o suporte, mais os cara só falam isso que é erro no caminho do bando de dados.
Edição feita por: flavio_fs, 03/01/2007, 11:55.
