Erro Ao Conectar Ao Banco De Dados

[shikamaru]

Não etsou conseguindo conectar ao BD eta dando a seguinte mensagem

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

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

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xa38 Thread 0xc64 DBC 0x15e1024 Jet' do Registro.

/login.asp, line 4

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; FunWebProducts)

Página:

GET /login.asp

E esse é codigo q eu estoou usando para fazer a conecção:

conexao="DBQ=c:\wwwroot\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&"' ")

e tentei um outro tb

url_conexao = Server.MapPath("senha.mdb")
set BD = Server.CreateObject("ADODB.Connection")
BD.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

[fercosmig]

da uma olhada ae, vê se ajuda

http://scriptbrasil.com.br/forum/index.php...=0entry148642

[shikamaru]

Agora deu certo aki so q agora deu outro erro

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: 'DB'

/login.asp, line 12

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; FunWebProducts)

Página:

GET /login.asp

Codigo:

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

[Guest - koal40 -]

como fiko sua conexao, o nome dela e DB?

[shikamaru]

Vou colocar tudo aki:

<% 'Conexão com o banco de dados

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

set BD = Server.CreateObject("ADODB.Connection")

BD.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

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

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

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

' Caso os dados não estiverem corretos o usuário é enviado para a acesso.asp

if acesso.eof then

Response.Redirect"negado.asp"

Response.End

else

Session("login")=login

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

Response.Redirect"acesso.asp"

Response.End

end if

DB.close

%>

Erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: 'DB'

/login.asp, line 8

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; FunWebProducts)

Página:

GET /login.asp

[fercosmig]

<% 'Conexão com o banco de dados

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

set BD = Server.CreateObject("ADODB.Connection")

BD.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

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

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

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

' Caso os dados não estiverem corretos o usuário é enviado para a acesso.asp

if acesso.eof then

Response.Redirect"negado.asp"

Response.End

else

Session("login")=login

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

Response.Redirect"acesso.asp"

Response.End

end if

DB.close

%>

dei uma olhada no seu código ae e ví que o erro tá ae

abraços

[shikamaru]

Eu vi meu vacilo depois... esse foi foda e o pior q eu demorei muito tempo para ver ....