Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

[Resolvido] erro no includes/config.asp

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola boa noite!

 

Caros amigos sou meio meigo nessa parte.

Mas estou precisando de vcs, oq tenho q fazer nesta parte do codigo?

 

Só sei q é o caminho do banco de dados

naun sei oq colocar 

Banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\home\loja\DataBase\DBLojaVirtual.mdb;"

esta dando este erro!

Microsoft JET Database Engine error '80004005' 

Disk or network error. 

/public_html/loja/Includes/Config.asp, line 33

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Poste teu code completo.

 

Esse code ai é o bd... nele consta o comando para identificar o bd, neste caso é o caminho, fazendo a conexão da pagina com o bd, pelo caminho posso afirmar que este caminho é do server... se estiver em localhost terá que colocar o caminho inteiro da pasta... exemplo... C:\Inetpub\wwwroot\caminhodobd\nomedobanco.mdb

 

Porém poste seu code para uma melhor avaliação do problema.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

completo

<%
	
'Código do Brasil
	Session.LCID = 1046
	
	Session.Timeout = 1400
	
'Declaração de variáveis
	Dim Banco
	Dim BooErr
	Dim Voltar
	Dim EmailPadrao
	Dim EmailContato
	Dim ServerAddress
	Dim FundoBarraEsq
	Dim TabelaBarraEsq
	Dim FundoTitulo
	Dim LinhaHorizontal
	Dim PrazoEntrega
	Dim CamposObrigatorios
	Dim LinhaHorizontal2
	Dim ComponenteUpload
	Dim ComponenteEmail
	Dim VoltarADM
	Dim SubjectIndique
	Dim FundoCelula1
	Dim FundoCelula2
	Dim Minimo
	
'Abertura de Banco de dados
	Function AbreBanco()
		Set Banco = Server.CreateObject("ADODB.Connection")
		Banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Projetos\Testes\LojaVirtual\DataBase\DBLojaVirtual.mdb;"
		'Banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\NomeDoProjeto\Dados\DBLojaVirtual.mdb;"
	End Function

'Fechamento de Banco de dados
	Function FechaBanco()
		Banco.Close
		Set Banco = Nothing
	End Function

'Variáveis constantes
	Const Local = "http://192.168.0.1/Testes/LojaVirtual/" 'Domínio do site. Obs.: Não esquecer da Barra(/) depois do domínio.
	Const LocalIMG = "http://192.168.0.1/Testes/LojaVirtual/Imagens/Produtos/" 'Local onde ficarão as fotos.
	Const CaminhoUpload = "D:\Projetos\Testes\LojaVirtual\Imagens\Produtos\" 'Caminho físico onde ficarão as imagens
	
	'Const Local = "http://192.168.0.1/" 'Domínio do site. Obs.: Não esquecer da Barra(/) depois do domínio.
	'Const LocalIMG = "http://192.168.0.1/Imagens/Produtos/" 'Local onde ficarão as fotos.
	'Const CaminhoUpload = "e:\home\NomeDoProjeto\web\Imagens\Produtos\" 'Caminho físico onde ficarão as imagens
	
	Const JumpLine = "<br />"
	Const NomedaLoja = "NomeDoProjeto" 'Nome da Loja
	Const VerifyString = "ABCDEFGHIJKLMNOPQRSTUVJXYZabcdefghijklmnopqrstuvwxyz1234567890_@.-" 'Caracteres válidos para log.
	Const TotalPorPagina = 10 'Total de registros por página.
	Const QtdEstoque = 5 'Quantidade mínima para alerta de falta em estoque
	Const CNPJ = "000.000.000/0001-00" 'CNPJ
	Const Var1 = "m"
	Const Var2 = "p"
	Const Var3 = "w"
	Const Var4 = "n"
	Const Var5 = "h"
	Const Var6 = "e"
	Const Var7 = "t"
	Const Var8 = "o"
	Const Var9 = "c"
	Const Var10 = "r"
	Const Var11 = "s"
	Const Var12 = "i"
	Const Var13 = "g"
	Const Var14 = "a"
	
	'#########################################################################################################################################################
	'Dados bancarios para depósito
	Const DSeuBanco = "Ex.: Banco do Brasil" 'Seu banco
	Const DSuaAgencia = "0000-0" 'Sua Agência
	Const DSuaConta = "0000000-0" 'Sua Conta
	Const DNomeCedente = "Nome do Favorecido" 'Favorecido
	
	'#########################################################################################################################################################
	'Dados para configuração do boleto bancário (Itaú)
	Const vBancoItau = "341" 'código do banco
    Const vDVBancoItau = "7" 'Digito verificador do banco
    Const vAgenciaItau = "0000" 'agencia
    Const vContaItau = "00000" 'conta
    Const vDVContaItau = "0" 'digito verificador da conta
    Const vCarteiraItau = "175" 'código da carteira
    Const vLetraCarteiraItau = "" 'sigla da carteira
    Const vMoedaItau = "9" 'tamanho da moeda
    Const vEspecieItau = "R$" 'cifra da moeda
    Const vCodigoCedenteItau = "" 'código do cedente
    Const vCedenteItau = "Exemplo: João da Silva" 'nome do cedente
    Const vDadosCedenteItau = "Exemplo: Rua Fernandes da Costa, 125 - Centro - São Paulo-SP - CEP 00000-000" 'dados do cedente
    Const vCNPJItau = "00.000.000/0001-00"
	Const vVencimentoItau = 10
	
	
	'#########################################################################################################################################################
	'Dados para configuração do boleto bancário (Bradesco)	
	Const vBancoBradesco = "237" 'código do banco
    Const vDVBancoBradesco = "2" 'Digito verificador do banco
    Const vAgenciaBradesco = "0000" 'agencia
    Const vContaBradesco = "00000" 'conta
    Const vDVContaBradesco = "0" 'digito verificador da conta
    Const vCarteiraBradesco = "06" 'código da carteira
    Const vLetraCarteiraBradesco = "" 'sigla da carteira
    Const vMoedaBradesco = "9" 'tamanho da moeda
    Const vEspecieBradesco = "R$" 'cifra da moeda
    Const vCodigoCedenteBradesco = "" 'código do cedente
    Const vCedenteBradesco = "Exemplo: João da Silva" 'nome do cedente
    Const vDadosCedenteBradesco = "Exemplo: Rua Fernandes da Costa, 125 - Centro - São Paulo-SP - CEP 00000-000" 'dados do cedente
    Const vCNPJBradesco = "00.000.000/0001-00"
	Const vVencimentoBradesco = 10

			
	'#########################################################################################################################################################
	'Dados para configuração do boleto bancário (Caixa Econômica Federal)	
	Const vBancoCaixa = "104" 'código do banco
    Const vDVBancoCaixa = "0" 'Digito verificador do banco
    Const vAgenciaCaixa = "0000" 'agencia
    Const vContaCaixa = "00000" 'conta
    Const vDVContaCaixa = "0" 'digito verificador da conta
    Const vCarteiraCaixa = "SR" 'código da carteira
    Const vLetraCarteiraCaixa = "" 'sigla da carteira
    Const vMoedaCaixa = "9" 'tamanho da moeda
    Const vEspecieCaixa = "R$" 'cifra da moeda
    Const vCodigoCedenteCaixa = "" 'código do cedente
    Const vCedenteCaixa = "Exemplo: João da Silva" 'nome do cedente
    Const vDadosCedenteCaixa = "Exemplo: Rua Fernandes da Costa, 125 - Centro - São Paulo-SP - CEP 00000-000" 'dados do cedente
    Const vCNPJCaixa = "00.000.000/0001-00"
	Const vVencimentoCaixa = 10
		
	'#########################################################################################################################################################
	'Dados para configuração do boleto bancário (Banco do Brasil)	
	Const vBancoBB = "001" 'código do banco
    Const vDVBancoBB = "9" 'Digito verificador do banco
    Const vAgenciaBB = "0000" 'agencia
    Const vContaBB = "00000" 'conta
    Const vDVContaBB = "0" 'digito verificador da conta
    Const vCarteiraBB = "18" 'código da carteira
    Const vLetraCarteiraBB = "" 'sigla da carteira
    Const vMoedaBB = "9" 'tamanho da moeda
    Const vEspecieBB = "R$" 'cifra da moeda
    Const vCodigoCedenteBB = "" 'código do cedente
    Const vCedenteBB = "Exemplo: João da Silva" 'nome do cedente
    Const vDadosCedenteBB = "Exemplo: Rua Fernandes da Costa, 125 - Centro - São Paulo-SP - CEP 00000-000" 'dados do cedente
    Const vCNPJBB = "00.000.000/0001-00"
	Const vVencimentoBB = 10	
	
	'#########################################################################################################################################################
	'Dados para configuração do boleto bancário (Banco Real)	
	Const vBancoReal = "356" 'código do banco
    Const vDVBancoReal = "5" 'Digito verificador do banco
    Const vAgenciaReal = "0000" 'agencia
    Const vContaReal = "00000" 'conta
    Const vDVContaReal = "0" 'digito verificador da conta
    Const vCarteiraReal = "57" 'código da carteira
    Const vLetraCarteiraReal = "" 'sigla da carteira
    Const vMoedaReal = "9" 'tamanho da moeda
    Const vEspecieReal = "R$" 'cifra da moeda
    Const vCodigoCedenteReal = "" 'código do cedente
    Const vCedenteReal = "Exemplo: João da Silva" 'nome do cedente
    Const vDadosCedenteReal = "Exemplo: Rua Fernandes da Costa, 125 - Centro - São Paulo-SP - CEP 00000-000" 'dados do cedente
    Const vCNPJReal = "00.000.000/0001-00"
	Const vVencimentoReal = 10	
	
	'#########################################################################################################################################################
	'Dados extras para configuração do boleto bancário
	vInstrucoesBoleto = "<B><BR>Este boleto é apenas para fins de demonstração. Não pagar e/ou aceitar o pagamento desde boleto.<BR></b>"
	vOBSBoleto = "<B> <BR> Pagamento referente a compra efetuada na loja Exemplo.<BR> <BR> <BR> <BR></b>"
	
	'#########################################################################################################################################################

'Variáveis	
	Voltar = "<a href="& Chr(34) &"javascript:history.go(-1)"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Voltar</a>"
	VoltarADM = "<a href="& Chr(34) & Session("Endereco") & Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Voltar</a>"
	BooErr = False
	EmailPadrao = "ganhetempo@ganhetempo.com" 'E-mail padrão.
	EmailContato = "ganhetempo@ganhetempo.com" 'E-mail para contato. Obs.: Poderá ser o mesmo do e-mail do E-mail padrão.
	ServerAddress = "smtp.ganhetempo.com" 'Endereço do Host para envio de e-mail.
	FundoBarraEsq = "#F7F7F7" 'Cor de fundo da barra esquerda.
	TabelaBarraEsq = "#C2C2C2" 'Cor de fundo da tabela da barra esquerda
	FundoTitulo = "#F5F5F5" 'Fundo dos títulos da loja.
	LinhaHorizontal = "<tr><td colspan=2><img src=Imagens/LinhaCinzaClaro.gif width='100%' height=1></td></tr>"
	LinhaHorizontal2 = "<tr><td colspan=2><img src=../Imagens/LinhaCinzaClaro.gif width='100%' height=1></td></tr>"
	CamposObrigatorios = "<tr><td colspan=2 align=right><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">* Campos obrigatórios</span></td></tr>"
	ComponenteUpload = 2 '1 = ASPUpload / 2 = Dundas Upload
	ComponenteEmail = 1 '1 = CDONTS / 2 = ASPMail
	SubjectIndique = "Você acaba de receber uma indicação!" 'Assunto que o usuário receberá em sua mensagem de e-mail quando alguem indicar algum produto.
	FundoCelula1 = "#FFFFFF"
	FundoCelula2 = "#F7F7F7"
	Minimo = 0 'preço minimo que o usuário pode comprar
	
'Texto de "Prazo para entrega"
	PrazoEntrega = "<strong>1 dia útil: </strong> Cidade de São Paulo e ABCD.<br />"
	PrazoEntrega = PrazoEntrega & "<strong>2 dias úteis: </strong> Cidades: Rio de Janeiro, Belo Horizonte, Curitiba, Porto Alegre, Brasília, Goiânia, Salvador,Fortaleza, Recife, Olinda, Cidades do Interior de SP (Área 1): Americana, Baixada Santista, Campinas, Itu, Jundiaí, Limeira, Piracicaba, Ribeirão Preto, Sorocaba, São José dos Campos e Taubaté.<br />"
	PrazoEntrega = PrazoEntrega & "<strong>3 dias úteis: </strong> Cidades: Vitória, Florianópolis, Aracaju, Maceió, João Pessoa, Natal, Teresina, São Luís, Campo Grande, Cuiabá, Belém Manaus e Porto Velho.<br />"
	PrazoEntrega = PrazoEntrega & "<strong>Até 4 dias úteis: </strong> Outras localidades."

%>
<title>Modelo de Loja Virtual</title>

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

como eu faço isso ?

 

 

 

 

 

 

 

 

 

 

me add msn:

leandro.sowza@hotmail.com

estou on line

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

faz o seguinte... crie um arquivo chamado pasta.asp e coloque o seguinte code

 

<%Response.Write(Request.ServerVariables("APPL_PHYSICAL_PATH"))%>

coloque na raiz do seu servidor.. e teste no navegador apontando para este arquivo...

 

seusite.com.br/pasta.asp

 

e me poste o caminho da pasta que aparecer ai.

 

Verifique também se a pasta esta com as permissões de escrita e leitura certinha.

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