Como Usar O Include Em Dois Níveis? é Possível?

[py2tz]

Na página principal do site, onde possui um include que carrega o menu do lado direito.

Neste menu do lado direito tem um outro include que chama uma determinada página que esta na raiz do servidor e funciona direitinho.

Porem quando se esta navegando em demais pastas secundárias, este mesmo include não funciona pois nele consta o caminho do BD, ou seja esta ../db/arquivo.mdb, sendo que nas pastas secundárias deveria estar com ../../db/arquivo.mdb,

ou seja indicando que ele volte dois diretorios atrás até achar o BD.

Tentei fazer dois includes,

um com direçao ../db/arquivo.mdb

e outro com direção ../../db/arquivo.mdb

Mas não fica 100%

alguém teria alguma dica para este caso. Agradeço desde já

Fausto

[filipeflc00]

se não está buscando o banco e por que o include não esta funfando

veja se nas outras pastas seu include esta certo

você não deve mexer no caminho do banco mais sem no caminho do include

qualquer duvida poste ai parceiro

abraços

[cyberalexxx]

Uma solução seria colocar o caminho do banco em uma variavel application no global.asa, ai no include ao invés do caminho voce coloca application("caminho")

[py2tz]

Olá Turma,

Entendi mais ou menos,

A conexão esta assim:

<%

strAccessDB = "../db/arquivo_db"

Set adoCon = Server.CreateObject("ADODB.Connection")

Set rsWeeklyPoll = Server.CreateObject("ADODB.Recordset")

strCon="DRIVER={Microsoft Access Driver (*.mdb)};"

strCon = strCon & "DBQ=" & Server.MapPath(strAccessDB)

strSQL = "SELECT * FROM arquivo_dados "

strSQL = strSQL & " ORDER By arquivo_dados.id_no DESC;"

rsWeeklyPoll.Open strSQL, strCon, 3

rsWeeklyPoll.PageSize = intRecordsPerPage

E usando o appication ficará como?

CONST C_dbConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\www\brasil\db\arquivo.mdb"

Mas eu não sei muito, se puder montar como usa o aplication ficari gratissimo ou onde achar um exemplo.

Fausto

[Espartaco]

No arquivo que conecta faz o seguinte:

DBQEXEMPLO = "D:\www\brasil\db\arquivo.mdbb"
Set adoCon = Server.CreateObject("ADODB.Connection")
Set rsWeeklyPoll = Server.CreateObject("ADODB.Recordset")
strCon="DRIVER={Microsoft Access Driver (*.mdb)};"
strCon = strCon & "DBQ=" & DBQEXEMPLO
strSQL = "SELECT * FROM arquivo_dados "
strSQL = strSQL & " ORDER By arquivo_dados.id_no DESC;"
rsWeeklyPoll.Open strSQL, strCon, 3
rsWeeklyPoll.PageSize = intRecordsPerPage

[py2tz]

Olá Turma,

Fiz a dica do DBQ, que pelo que entendi são duas linhas a alterar. deixei da forma que esta abaixo, mas não funcionou, deu um erro de conexão e não abria os dados do BD.

DBQcon = "D:\www\brasil\db\arquivo_db.mdb"

strCon = strCon & "DBQ=" & DBQcon

O interessante é que são 3 páginas que compoeem o sisteminha, porem nas 3 páginas ele não usa o .mdb no final do nome do arquivo do acess, somente o arquivo sem a extensão, e funciona normalmente.

strAccessDB = "../db/arquivo_db"

Set adoCon = Server.CreateObject("ADODB.Connection")

Set rsWeeklyPoll = Server.CreateObject("ADODB.Recordset")

strCon="DRIVER={Microsoft Access Driver (*.mdb)};"

strCon = strCon & "DBQ=" & Server.MapPath(strAccessDB)

Pergunto, USO ou NÃO uso o .mdb no caminho?

Obrigado

Fausto

[py2tz]

O erro que aparece com o exemplo dado é

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'DBQEXEMPLO'

/teste.asp, line 52

Até +

Fausto