ERRO CONEXAO BANCO DADOS ACCESS

MAFACILITY 28/10/2013 23:11:41
#430460
Este código abaixo de paginação está dando esse erro abaixo, não sei porque, pois o mesmo código hospedado no mesmo servidor Kinghost, só os domínios são diferentes. não sei o que está acontecendo.
Microsoft OLE DB Provider for ODBC Drivers erro [ô]80004005[ô]

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave [ô]Temporary (volatile) Jet DSN for process 0x356c Thread 0x400c DBC 0x193c49c Jet[ô] do Registro.

/principal.asp, line 57



<LINK REL=stylesheet HREF=[Ô]liks_etc.css[Ô] TYPE=[Ô]text/css[Ô]
<head>
<style type=[Ô]text/css[Ô]>
.style2
{
font-weight: bold;
}
.style3
{
height: 15px;
}
.style4
{
height: 174px;
text-align: justify;
}
</style>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<body style=[Ô]background-color: #FFFFFF[Ô]>
<table cellspacing=[Ô]1[Ô] cellpadding=[Ô]8[Ô]
bgcolor=[Ô]<%= trback%>[Ô] bordercolorlight=[Ô]<%= mainborderlight%>[Ô]
bordercolordark=[Ô]<%= mainborderdark%>[Ô] style=[Ô]width: 153px[Ô]>

<%
Dim objConn, objRs, strQuery, strConnection, url_conexao

url_conexao = Server.MapPath([Ô]adm.mdb[Ô])
set objConn = Server.CreateObject([Ô]ADODB.Connection[Ô])
objConn.open [Ô]DRIVER={Microsoft Access Driver (*.mdb)};DBQ=[Ô]&url_conexao


[ô]Seleciona da tabela imovel

strQuery = [Ô]SELECT * FROM imovel where status=[ô]Sim[ô] order by preco asc[Ô]
set objRs = objConn.Execute(strQuery)
%>
<%Set objrs = Server.CreateObject([Ô]ADODB.RecordSet[Ô])

objrs.MaxRecords = 15
objrs.open strQuery,objConn %>

<%


Do While Not objRs.eof
%>
<tr>
<%
Dim n
n = 0

Do While n < 5 And Not objRs.eof

%>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<span style=[Ô]color: #FF9900; background-color: #FFFFFF;[Ô]>
<td width=[Ô]<%= tdwidth%>%[Ô] valign=[Ô]top[Ô] class=[Ô]style4[Ô]>
<a href=[Ô]folder2.asp?radio=<%=objRs([Ô]autonum[Ô])%>[Ô]>
<img src=[Ô]<%=objRs([Ô]foto1[Ô])%>[Ô] alt=[Ô]<%=objRs([Ô]local[Ô])%>[Ô]

style=[Ô]border: medium solid #FFCC00; background-color: #C0C0C0; width: 164px; height: 163px;[Ô]
border=[Ô]0[Ô] title=[ô]<%=objRs([Ô]local[Ô])%>[ô]></a><span class=[Ô]style53[Ô]
style=[Ô]font-family: Tahoma; color: #FFCC00; font-weight: normal; font-size: 10pt;[Ô]><br>
</span>
<span class=[Ô]style2[Ô]
style=[Ô]font-family: Tahoma; color: #333333; font-size: 8pt;[Ô]>
<%=objRS([Ô]titulo[Ô])%>

<br />
<br /><%=FormatCurrency(objRS([Ô]preco[Ô]))%>
</td>
</span>
<%
objRs.Movenext()
n = n + 1
loop
%>
</tr>
<tr>
<td width=[Ô]<%= tdwidth%>%[Ô] valign=[Ô]top[Ô] class=[Ô]style3[Ô]>
</td>
</tr>
<%loop%>
NETMANIA 29/10/2013 08:22:31
#430462 Resposta escolhida
Você já tentou executar esta consulta direto no Access para ver o que acontece? Este erro só acontece no ambiente de produção ou no seu computador também?

O que indica, pode ser algum problema no banco que você está usando.
Tópico encerrado , respostas não são mais permitidas
Voltar