[Resolvido] conexão ASP no BD

[tomgomes 0]

Tisgrila,

tento acessar a default.asp com o end http://localhost/forum/web/www/default.asp que deveria abrir a pagina indice.asp. SOCORRO. Vem a informação certa do pedido da pagina, no browser:

 

•Page:

GET /forum/web/www/indice.asp

no entanto na pasta lib q tem o path do bd em txt aparece no browser a informação:

 

•Error Type:

Microsoft VBScript compilation (0x800A0400)

Expected statement

/forum/web/www/lib/const.inc, line 3, column 2

C:/localhost/forum/dados/forum.db

 

No entanto a linha 3 é

C:/localhost/forum/dados/forum.db e está tudo de acôrdo. Não percebo o que há.

 

é erro HTTP 500.100 - Internal Server Error - ASP error

Internet Information Services

O site quando está hospedado em servidor externo, e o path do bd na pasta lib é diferente, fundiona bem.

________________________________________

 

 

Alguém pode ajudar?

[th4deu 4]

Bom dia, amigo!

 

O banco de dados é Access? Se for, a extensão não seria .mdb?

 

De qualquer forma, verifique se o caminho do banco de dados não está escrito corretamente entre "" (aspas).

Ou então, dê uma revisada no teu código e veja se não tem nenhum "if" aberto, ou alguma estrutura de "laço" aberta.

 

Geralmente isso ocorre pra informar que até aquele ponto (o ponto da linha do banco de dados) não houve fechamento de algum laço específico!

 

Abraço!

[tomgomes 0]

Bom dia, amigo!

 

O banco de dados é Access? Se for, a extensão não seria .mdb?

 

De qualquer forma, verifique se o caminho do banco de dados não está escrito corretamente entre "" (aspas).

Ou então, dê uma revisada no teu código e veja se não tem nenhum "if" aberto, ou alguma estrutura de "laço" aberta.

 

Geralmente isso ocorre pra informar que até aquele ponto (o ponto da linha do banco de dados) não houve fechamento de algum laço específico!

 

Abraço!

***************

Pois é amigo.

incognita, não acredito que seja algum dos tópicos q o amigo diz. Pois como disse acima, O site quando está hospedado em servidor externo, e o path do bd na pasta lib é diferente, fundiona bem.

***************

fiz a questão em Inglês . Tem mais informações. Veja.

Hallo,

I created a virtual site in the IIS and I can run the HTML pages but the asp pages of the site that has a Access BD I can’t open any page. The error is the same from all pages .

The browser get me an error and information:

 

-Page:

GET /forum/web/www/indice.asp

-Error Type:

Microsoft VBScript runtime (0x800A004C)

Path not found

/forum/web/www/lib/const.inc, line 25

 

Where lib is the folder that has the .txt const.inc file with the scripts to *.*.mdb . I put an HTML page in the directory and the browser open well.

 

The error line 25 in the const.inc is “objFSO.CreateTextFile(arquivo)” or

Set ObjFSO = CreateObject("Scripting.FileSystemObject")

If ObjFSO.FileExists(arquivo) = False then ----------------Where arquivo is the same thing that files-------------

objFSO.CreateTextFile(arquivo)

End If

 

The files of the site are in the root C: (C:forumjuridico1)

The virtual site in the ISS has the alias name Forum.

The path from bd access I think that must be:

Const BancodeDados1 = "C:/forumjuridico1/dados/forum.db"

Please , help me.

[Salgado 4]

Dê uma pesquisada por Server.MapPath e passe a usá-lo nos casos em que necessite passar caminhos físicos em seus scripts.

[tomgomes 0]

Dê uma pesquisada por Server.MapPath e passe a usá-lo nos casos em que necessite passar caminhos físicos em seus scripts.

Pois é Salgado

este Honda Civic tem q sair.

E veja você, configurei o OBDC e o Microsoft drive do .mdb e as dsn , de acôrdo? Uso o access 2007

Quanto ao Server.MapPath nunca usei. Fui no Bill em http://msdn.microsoft.com/en-us/library/ms524632.aspx mas não pude ainda saber.

Estou tendo q fazer umas implementacões no site www.forumjuridico.com.br e procurando alguém q não tenha se esquecido de ASP.

Sabendo, diz

obrigado

contato@forumjuridico.com.br

[Salgado 4]

O Sever.MapPath é uma função que retorna o caminho físico completo de um arquivo a partir de um caminho relativo válido. Por exemplo:

Const BancodeDados1 = "C:/forumjuridico1/dados/forum.db"

Ficaria assim:

Const BancodeDados1 = Server.MapPath("dados/forum.db")

E caso no servidor on-line seja mantida essa hierarquia o sistema irá funcionar sem alteração em parte nenhuma.

[tomgomes 0]

Salgado,

no browser em http://localhost/forum/web/www/default.asp

deu erro mas diferente.

mudou a linha de erro no const.inc

 

Error Type:

Microsoft VBScript compilation (0x800A0415)

Expected literal constant

/forum/web/www/lib/const.inc, line 2, column 53

Const BancodeDados = Server.MapPath("dados/forum.db")

******************

 

Esta coluna é o parenteses do path do BD!?

dei refresh no browser e no ISS. Veja o cont. in como está:

***********************

<%
Const BancodeDados = Server.MapPath("dados/forum.db")


Const BancodeDadosUsuario = "Admin"
Const BancodeDadosSenha = ""

Const Cookie = "tom"
Const CookieUser = "User"

'Log
User = Request.Cookies(Cookie)(CookieUser)
If User="" Then
 User = Request.ServerVariables("REMOTE_HOST")&"-"&Date()&"-"&Time()
 Response.Cookies(Cookie)(CookieUser)= User
 Response.Cookies(Cookie).Expires = DateAdd("yyyy",10, Date)
End If

Const forReading = 1, forWriting = 2, forAppending = 8
Const TriDef = -2, TriTrue = -1, TriFalse = 0

arquivo = "C:/forumjuridico1/dados/forum.db"

Set ObjFSO = CreateObject("Scripting.FileSystemObject")
If ObjFSO.FileExists(arquivo) = False then
objFSO.CreateTextFile(arquivo)
End If
Set ObjFile = objFSO.GetFile(arquivo)
Set objStream = ObjFile.OpenAsTextStream(forAppending,TriDef) 

Dia = Day(Date())&"/"&Month(Date())&"/"&Year(Date())

If InStr(Request.ServerVariables("HTTP_REFERER"),"?")>0 Then
 ObjStream.WriteLine(Dia&" "&Time&","&Request.ServerVariables("REMOTE_ADDR")&","&User&","&Request.ServerVariables("PATH_INFO")&","&Left(Request.ServerVariables("HTTP_REFERER"),InStr(Request.ServerVariables("HTTP_REFERER"),"?")-1)&","&Request.ServerVariables("HTTP_USER_AGENT"))
Else
 ObjStream.WriteLine(Dia&" "&Time&","&Request.ServerVariables("REMOTE_ADDR")&","&User&","&Request.ServerVariables("PATH_INFO")&","&Request.ServerVariables("HTTP_REFERER")&","&Request.ServerVariables("HTTP_USER_AGENT"))
End If

ObjStream.close 
Set ObjStream = nothing

%>

[Salgado 4]

Nesse caso não use a definição como constante.

 

 

Uma dica de segurança:

Nunca use a extensão .INC para arquivos de inclusão em scripts, use sempre .ASP. Daí você pergunta: "mas porque?"; e a resposta é que os arquivos .INC não são interpretados pelo servidor, então em casos de requisição pelo browser ele entrega todo o conteúdo com ose fosse texto puro.

[tomgomes 0]

Salgado

veja a mancada e que corrigida não mudou nada. Faltou o m do .mdbdb,

Const BancodeDados = Server.MapPath"(dados/forum.db)"

Const BancodeDados = Server.MapPath"(dados/forum.mdb)"

tentando corrigir e perguntando se está certo? Vejamos: NO "(dados/forum.mdb)" a barra não é invertida? ou seja "(dados\forum.mdb)" ?

 

continua dado o erro da linha 2 coluna 35

tom

E você disse:

Nesse caso não use a definição como constante.

 

 

Uma dica de segurança:

Nunca use a extensão .INC para arquivos de inclusão em scripts, use sempre .ASP. Daí você pergunta: "mas porque?"; e a resposta é que os arquivos .INC não são interpretados pelo servidor, então em casos de requisição pelo browser ele entrega todo o conteúdo com ose fosse texto puro.

**********

e pedí..........

 

ajuda teu irmão ( isto é biblico)

 

neste caso de usar .asp e não .inc como fica minha pasta lib onde está o const.inc abaixo:

 

**********

<%

Const BancodeDados = Server.MapPath"(dados/forum.db)"





Const BancodeDadosUsuario = "Admin"

Const BancodeDadosSenha = ""



Const Cookie = "tom"

Const CookieUser = "User"



'Log

User = Request.Cookies(Cookie)(CookieUser)

If User="" Then

User = Request.ServerVariables("REMOTE_HOST")&"-"&Date()&"-"&Time()

Response.Cookies(Cookie)(CookieUser)= User

Response.Cookies(Cookie).Expires = DateAdd("yyyy",10, Date)

End If



Const forReading = 1, forWriting = 2, forAppending = 8

Const TriDef = -2, TriTrue = -1, TriFalse = 0



arquivo = "C:/forumjuridico1/dados/forum.db"



Set ObjFSO = CreateObject("Scripting.FileSystemObject")

If ObjFSO.FileExists(arquivo) = False then

objFSO.CreateTextFile(arquivo)

End If

Set ObjFile = objFSO.GetFile(arquivo)

Set objStream = ObjFile.OpenAsTextStream(forAppending,TriDef) 



Dia = Day(Date())&"/"&Month(Date())&"/"&Year(Date())



If InStr(Request.ServerVariables("HTTP_REFERER"),"?")>0 Then

ObjStream.WriteLine(Dia&" "&Time&","&Request.ServerVariables("REMOTE_ADDR")&","&User&","&Request.ServerVariables("PATH_INFO")&","&Left(Request.ServerVariables("HTTP_REFERER"),InStr(Request.ServerVariables("HTTP_REFERER"),"?")-1)&","&Request.ServerVariables("HTTP_USER_AGENT"))

Else

ObjStream.WriteLine(Dia&" "&Time&","&Request.ServerVariables("REMOTE_ADDR")&","&User&","&Request.ServerVariables("PATH_INFO")&","&Request.ServerVariables("HTTP_REFERER")&","&Request.ServerVariables("HTTP_USER_AGENT"))

End If



ObjStream.close 

Set ObjStream = nothing



%>

[Salgado 4]

Aqui Const BancodeDados = Server.MapPath"(dados/forum.mdb)" seria:

Const BancodeDados = Server.MapPath("dados/forum.mdb")

Se não resolver retire a palavra CONST do início dessa mesma linha.

 

E eu ajudo sempre que posso e que não coloque minha vida em risco (hehehehehehehe).

 

A pasta fica normal. O que terá que alterar é a extensão dos arquivos e a extensão em todos os includes de seu sistema.

[tomgomes 0]

Puts

já é abuso, né. Não achei ainda um men.asp para me ajudar. Se souber me avisa.

 

coloquei o Server.MapPath no servidor externo e veja o erro que deu no browser.

Microsoft VBScript compilation error '800a0415'

 

Expected literal constant

 

/www/lib/const.inc, line 3

 

Const BancodeDados = Server.MapPath"(dados/forum.mdb)" (?!)

__________

e você manda tirar o const e A pasta fica normal. O que terá que alterar é a extensão dos arquivos e a extensão em todos os includes de seu sistema.

tomgomes Postado Ontem, 23:29

Em todas as paginas do site? mais de 40

[Mário Monteiro 179]

mas sao replaces diretos, se usa o dw ele faz isso automatico quando renomeia um arquivo, senao ai terá que substituir mas 40 paginas nao é um numero tao grande com uns 5 a 10 minutos se resolve

[tomgomes 0]

Monteiro, sou noviço. Não sei fazer. meu primeiro problema é rodar o site em asp como está acima.

Eu faço parte da campanha: Doe um HONDA CIVIC SI para o Salgado e um TOYOTA COROLLA 2008 para o Mário Monteiro.

 

Pode ajudar? o browser dá o erro que paerce ser de path. já se viu até erro de / e\ e de .bd em vez de .mdbresolvendo isso, o passo é gigantesco. vou entrar para a campnha do helicóptero do Tom Gomesabrs .

 

*****************

Epa

o Salgado disse:

Não estou entendendo, está sendo irônico ou o que? Ajudando nós estamos, fazer por você é que não iremos. Se interpretei errado peço desculpas, mas peço que poste com mais clareza.

 

Está vendo fantasmas. As vezes , como vocês, brinco para relaxar mas nunca deixei de agradecer. E tenho pedido a indicaçào de alguém para fazer por tarefa. Os equivocos que tem ocorrido, comento até por obrigação profissional de alertar ou mostrar erros q estão passando e ninguem vê.

 

Deveria esta estressaqdo e não estou, muito menos gozando? o que , quem , porque? Sou noviço como disse e muitas coisa q dizem, não posso avaliar ou usar.

 

qualquer coisa , desculpe me. como disse meu primeiro problema é rodar o site no IIS em asp como está acima.

Não posso perder o foco.

[Salgado 4]

Puts

já é abuso, né. Não achei ainda um men.asp para me ajudar. Se souber me avisa.

Não estou entendendo, está sendo irônico ou o que? Ajudando nós estamos, fazer por você é que não iremos. Se interpretei errado peço desculpas, mas peço que poste com mais clareza.

 

coloquei o Server.MapPath no servidor externo e veja o erro que deu no browser.

Microsoft VBScript compilation error '800a0415'

 

Expected literal constant

 

/www/lib/const.inc, line 3

 

Const BancodeDados = Server.MapPath"(dados/forum.mdb)" (?!)

A algumas postagens atrás eu escrevi o código correto, onde essas aspas estão DENTRO dos parenteses. Se isso não funcionar retire a palavra CONST que aparece no início dessa linha e teste novamente

 

e você manda tirar o const e A pasta fica normal. O que terá que alterar é a extensão dos arquivos e a extensão em todos os includes de seu sistema.

tomgomes Postado Ontem, 23:29

Em todas as paginas do site? mais de 40

A dica da extensão .INC é uma dica de segurança, se acha que não vale a pena mecher em 40 arquivos para que ninguém saiba os dados "internos" que estão cadastrados alí não tem problema. O problema de pegar sistemas prontos é esse, para colocar ele da melhor forma (funcional, seguro, adaptado aao cliente, etc...) tem se muitas vezes mais trabalho do que desenvolver do zero.

[Mário Monteiro 179]

como o salgado disse os casos do inc nao causarão erro na aplicação so nao escondem alguns dados

 

mas vamos atacar os seus erros por hora

 

qual o erro atual?

[tomgomes 0]

como o salgado disse os casos do inc nao causarão erro na aplicação so nao escondem alguns dados

 

mas vamos atacar os seus erros por hora

 

qual o erro atual?

Boa noite,

 

Veja Monteiro.

Luto há uma semana com isto.

Tenho o site virtual no IIS de nome forum.

Naò consigo rodar o site na máquina.

 

Os arquivivos estão em C:forumjuridico1

Configurei o ODBC com as DSN para o forum.mdb que esta na pasta dados em C:forumjuridico1

A outra pasta que está como subpasta de forumjuridico1 é a pasta web onde estão as outras pasta e arquivos.

A pasta lib que tem o const.inc está em C:/forumjuridico/web/www/lib/const.inc

Para acessar o site tenho o path http://localhost/web/www/default.asp que chama a pagina indice.asp

 

Ocorre que o browser dá erro:

 

HTTP 500.100 - Internal Server Error - ASP error

Internet Information Services

 

Technical Information (for support personnel)

 

• Error Type:

  Microsoft VBScript compilation (0x800A0415)

  Expected literal constant

  /forum/web/www/lib/const.inc, line 2, column 35

  Const BancodeDados = Server.MapPath"(dados\forum.mdb)"

  ----------------------------------^

Page:

GET /forum/web/www/indice.asp

 

_________________________________________

 

nO script que deveria acessar o .mdb a linha do erro é a do path, q no entanto

nào parece estar errada.

 

<%

 

Const BancodeDados = Server.MapPath ("dados\forum.mdb")

 

Antes estava: Const BancodeDados= “C:\forumjuridico1\web\www\dados\forum.mdb”

 

 

 

Não sei o erro. Como saber?

[Salgado 4]

Retire a palavra CONST no início dessa linha e teste novamente.

[Mário Monteiro 179]

a aspa ta no,lugar errado

 

Const BancodeDados = Server.MapPath"(dados\forum.mdb)"

 

Era pra ser assim

 

Const BancodeDados = Server.MapPath("dados\forum.mdb")

 

se nao funcionar tira este lance de const que nao vejo muita utilidade nao

[tomgomes 0]

Retire a palavra CONST no início dessa linha e teste novamente.

Oi Salgado, o site imaster está um chumbo. paginas não carregam fácil. tenho banda larga.

mas vamos lá.

tirei o const da primeira linha. O erro mudou. veja

Error Type:

Microsoft JET Database Engine (0x80004005)

'C:\forumjuridico1\web\www\dados\forum.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.

/forum/web/www/indice.asp, line 7

---------------

o browser diz: 'C:\forumjuridico1\web\www\dados\forum.mdb' is not a valid path

com certeza. O path é C:\forumjuridico1\dados\forum.mdb

-------------

a linha 16 do cont.inc está com o path certo: arquivo = "C:\forumjuridico1\dados\logserver.txt"

é o const.inc q está dando este path? errado?

[Mário Monteiro 179]

como esta o codigo agora?