Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Legionario-rs

Caminho do Servidor

Por , em ASP Clássico

Recommended Posts

Legionario-rs    0

Legionario-rs
Postado

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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Coloque um ".." no trecho onde informa o caminho do banco:

caminho = Server.MapPath("../banco/loja.mdb")

Compartilhar este post

Link para o post
Compartilhar em outros sites

Legionario-rs    0

Legionario-rs
Postado

Já tentei o servidor não aceita Server.MapPath(""), pelo menos foi o que eles me disseram...

 

Modifiquei e tá aparecendo o erro:

 

ADODB.Recordset error '800a0cb3'

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

 

/paginacao.asp, line 44

 

Valeu pela ajuda!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Que linha é essa?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Onde está o trecho que você define a quantidade de registros por página?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Legionario-rs    0

Legionario-rs
Postado

Salgado, fiz algumas modificações que continuaram dando erro se puder olhar o código na integra e me dizer o que tem de errado agradeço..

 

<%
Dim conexao, objConn, rsBuscaProdutos, strBuscaProdutos, caminho
strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])"

SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\lojasadri.com.br\banco\loja.mdb"

Set rsBuscaProdutos = objConn.Execute(strBuscaProdutos)

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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Legionario-rs    0

Legionario-rs
Postado

Bom dia galera do Fórum,

 

O que eu preciso na verdade não é uma paginação seria uma função que mostrasse os 6 produtos que foram cadastrados no banco posteriormente mas estes 6 produtos tem que estar dispostos em 2 linhas de 3 colunas e preciso que apareça a imagem do produto o nome do mesmo e o preço. O código que tenho no iis localmente funciona perfeitamente quando envio para o servidor não funciona pq o servidor não aceita a função "Server.MapPath()" então tenho que usar outro tipo de função. Se alguém puder me ajudar preciso disso com urgencia e se possivel nada muito complicado pois não tenho mta habilidade com asp...

 

Abraço a todos.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito