Onde Foi Q Eu Errei

[Rickardo]

Codigo

<%

Dim conLiveSuporte

Dim rectblChat

const cntCaminho = "c:\Inetpub\wwwroot\brc\loja\chat\LiveSuporte.mdb"

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

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

conLiveSuporte.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &cntCaminho

rectblChat.Open "tblChat", conLiveSuporte

Response.Write rectblChat.Fields("Speaker") & " Conversa: " & RectblChat("Speach")

rectblChat.Close

conLiveSuporte.Close

%>

Erro

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] Não foi possível encontrar o arquivo '(desconhecido)'.

/brc/loja/chat/conn.asp, line 8

alguém poderia me dar uma força??

[fantasma]

Confere o caminho da base de dados........

[Rickardo]

Confere o caminho da base de dados........

ae refiz assim

<%

Option Explicit

Dim conexao

Dim tbl

 

set conexao = server.createObject("adodb.connection")

conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("LiveSuporte.mdb")

set tbl = server.createObject("adodb.recordset")

tbl.Open "tblChat", conexao

Response.Write tbl.Fields("Speaker") & " Conversa: " & tbl.Fields("Speach")

tbl.Close

conexao.close

%>

e olha só o erro

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

Não foi possível encontrar o arquivo 'C:\Inetpub\wwwroot\brc\loja\chat\LiveSuporte.mdb'.

/brc/loja/chat/conn.asp, line 9

[Rickardo]

ae galera brigado aê .....já descobrir qual o erro

o problema é q o burro aki usou o nome do bd "LiveSuporte.mdb" o correto é "Livesupport.mdb"

heheheh brigadão mesmo assim.

[fantasma]

falou cara.....mas isssssssssssso é normal