Drivers Error '80004005'

[Guest - Renato -]

e ae pessoal firmeza? seguinte to desenvolvendo um site q tem autenticacao de usuarios e quanto tento me logar da a seguinte msg:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x614 Thread 0xaf4 DBC 0x916a024 Jet'.

/login2.asp, line 4

codigo do login2.asp [o banco de dados esta no servidor, mas a locaweb informou q tudo tinha q ser colocado em uma pasta chamada web, sera q é isso]

<%

conexao="DBQ=senha.mdb;Driver={Microsoft Access Driver (*.mdb)}"

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

DB.Open conexao

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

set acesso=DB.Execute("SELECT * FROM acesso WHERE login='"&login&"' AND senha='"&senha&"' ")

if acesso.eof then

Response.Redirect"error.asp"

else

Session("login")=login

'Session("usuario")= acesso("usuario")

'Session("Email")= acesso("Email")

Session("login")= acesso("login")

Response.Redirect"acesso.asp"

end if

DB.close

%>

Atenciosamente,

Renato

[ursolouco]

Verifique as permissões de acesso!!!

[Guest - Renato -]

Como assim urso.loco? explicar melhor se possivel pois sou iniciante no assunto por genteliza

Atenciosamente,

Renato

[ursolouco]

Brother

A tarde eu mando um Print da Tela, onde você tem que mudar e verificar estas opções, agora estou aqui no suporte e não tenho acesso.

T+

[Guest - Renato -]

Firmao valeu mesmo truta, to na espera

t+

[Reginaldo ASP]

você não tá indicando o caminho do arquivo a ser conectado...

Tenta assim:

FilePath = Server.MapPath("seuBancodeDados.mdb")

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

conexao .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

[Guest - Renato -]

e ae reginaldo, entaum o erro mudou agora é esse:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/login2.asp, line 5

conexao .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

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

{conexao com o bando de dados em acess]

<%

FilePath = Server.MapPath("senha.mdb")

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

conexao .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

set acesso=DB.Execute("SELECT * FROM acesso WHERE login='"&login&"' AND senha='"&senha&"' ")

if acesso.eof then

Response.Redirect"error.asp"

else

Session("login")=login

'Session("usuario")= acesso("usuario")

'Session("Email")= acesso("Email")

Session("login")= acesso("login")

Response.Redirect"acesso.asp"

end if

DB.close

%>

atenciosamente,

Renato

[Guest Guest]

conexao .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Desculpe-me... Tem um espaço: conexao_.Open

Faz assim conexao.Open Tudo junto

[Guest - Renato -]

e ae pessoal valeu, mas ae o erro mudou agora é esse:

Microsoft VBScript runtime error '800a01a8'

Object required: 'DB'

/login2.asp, line 8

[conexao]

<%

FilePath = Server.MapPath("senha.mdb")

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

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

set acesso=DB.Execute("SELECT * FROM acesso WHERE login='"&login&"' AND senha='"&senha&"' ")

[if acesso.eof then] - "erro"

Response.Redirect"error.asp"

else

Session("login")=login

'Session("usuario")= acesso("usuario")

'Session("Email")= acesso("Email")

Session("login")= acesso("login")

Response.Redirect"acesso.asp"

end if

DB.close

%>

[Reginaldo ASP]

I&acute;m sorry... Era eu aí acima...

[ursolouco]

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath 

Pode ser assim ?

strConn = "Provider = Microsoft.Jet.oledb.4.0; Data Source ="& filePath &";"
Conn.Open(strConn)

As Permissões, como dito anteriormente...

Abraços!!!

[Reginaldo ASP]

e ae pessoal valeu, mas ae o erro mudou agora é esse:

Microsoft VBScript runtime error '800a01a8'

Object required: 'DB'

/login2.asp, line 8

Isso é porque está usando DB em vez de conexão;

Errado

set acesso=DB.Execute("SELECT * FROM acesso WHERE login='"&login&"' AND senha='"&senha&"' ")

Correto

set acesso=conexao.Execute("SELECT * FROM acesso WHERE login='"&login&"' AND senha='"&senha&"' ")