Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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> <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> response.write "</tr><tr>"
q = 0
End If
intrec = intrec + 1
Wend </tr>
</table> </body>
</html>Carregando comentários...