O que há de errado com o caminho do meu banco de dados que não tem jeito de conectar no servidor de hospedagem??? Localmente funciona beleza...
meu banco fica na pasta do servidor: C:\Inetpub\vhosts\site.com.br\banco\loja.mdb
O erro é:
Microsoft JET Database Engine error '80004005'
'C:\Inetpub\vhosts\site.com.br\httpdocs\banco\loja.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.
/paginacao.asp, line 7
A quem puder ajudar o meu muito obrigado!!!
<%
'Abrimos a Conexão com o Banco
Dim caminho
Dim conexao
caminho = Server.MapPath("banco/loja.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"
'Selecionamos todos os Produtos da Tabela
Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")
strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])"
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3
'Criamos as Validações
if rsBuscaProdutos.eof then
Mensagem = "Nenhum Registro Encontrado"
Response.End
else
'Definimos em qual pagina o visitante está
if Request.QueryString("pagina")="" then
intpagina = 1
else
if cint(Request.QueryString("pagina"))<1 then
intpagina = 1
else
if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then
intpagina = rsBuscaProdutos.PageCount
else
intpagina = Request.QueryString("pagina")
end if
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title></title>
</head>
<body>
<br>
<font face="verdana" size="2" color="black">
<b>Confira alguns destaques de nossa loja...
</font>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
'Iniciamos o Loop
rsBuscaProdutos.AbsolutePage = intpagina
intrec = 0
q = 0
While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof
q = q + 1
%>
<td width="567">
<center>
<img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0 style="border:0;position:relative; left:12; top:19;"></a>
<br>
<font face="verdana" size="2" color="black">
<b><br><br><%=rsBuscaProdutos("nome")%>
<font face="verdana" size="2" color="Red"><br>
<%="R$: "%>
<%=rsBuscaProdutos("preço")%>,00
<br><br><br><br>
</font>
</td>
<%
rsBuscaProdutos.MoveNext
if q = 3 and not rsBuscaProdutos.eof then
response.write "</tr><tr>"
q = 0
End If
intrec = intrec + 1
Wend
%>
</tr>
</table>
<%
end if
rsBuscaProdutos.Close
Set rsBuscaProdutos = nothing
%>
</body>
</html>
Pergunta
Legionáriors
Boa noite pessoal,
O que há de errado com o caminho do meu banco de dados que não tem jeito de conectar no servidor de hospedagem??? Localmente funciona beleza...
meu banco fica na pasta do servidor: C:\Inetpub\vhosts\site.com.br\banco\loja.mdb
O erro é:
Microsoft JET Database Engine error '80004005'
'C:\Inetpub\vhosts\site.com.br\httpdocs\banco\loja.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.
/paginacao.asp, line 7
A quem puder ajudar o meu muito obrigado!!!
<% 'Abrimos a Conexão com o Banco Dim caminho Dim conexao caminho = Server.MapPath("banco/loja.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Selecionamos todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Criamos as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title></title> </head> <body> <br> <font face="verdana" size="2" color="black"> <b>Confira alguns destaques de nossa loja... </font> <table width="780" border="0" cellspacing="0" cellpadding="0"> <tr> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 q = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof q = q + 1 %> <td width="567"> <center> <img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0 style="border:0;position:relative; left:12; top:19;"></a> <br> <font face="verdana" size="2" color="black"> <b><br><br><%=rsBuscaProdutos("nome")%> <font face="verdana" size="2" color="Red"><br> <%="R$: "%> <%=rsBuscaProdutos("preço")%>,00 <br><br><br><br> </font> </td> <% rsBuscaProdutos.MoveNext if q = 3 and not rsBuscaProdutos.eof then response.write "</tr><tr>" q = 0 End If intrec = intrec + 1 Wend %> </tr> </table> <% end if rsBuscaProdutos.Close Set rsBuscaProdutos = nothing %> </body> </html>Editado por LegionáriorsLink para o comentário
Compartilhar em outros sites
43 respostass a esta questão
Posts Recomendados