PROBLEMA COM ASP E ADO !

USUARIO.EXCLUIDOS 20/11/2006 12:09:44
#185367
Olá pessoal, não consigo logar em uma pagina em ASP, isso ocorre em apenas uma maquina. O erro é o seguinte:

Script error detected at line 6.
Source line: conn.Open drv
Description: Objeto necessário: 'conn'

deve ser por falta de alguma atualização?

sds a todos,
USUARIO.EXCLUIDOS 20/11/2006 13:01:55
#185378
Vc declarou a variavel conn??

Veja este exemplo aqui
Creio que pode lhe ajudar.
ESLEYSANCHES 20/11/2006 13:32:15
#185386
Opa é verdade hein MARCELO :-D !!

Amigão você deve ter declarado tudo certinho RecordSet e etc, mais pode ter esquecido da conexão tente assim:

'Delcara variaveis para conexao em ADO
Dim SQL, RS, CONEXAO

Set CONEXAO = server.CreateObject("ADODB.Connection")
Set RS = server.CreateObject("ADODB.Recordset")

CONEXAO.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath("seu_mdb_aqui.mdb") & ";Uid=Admin;Pwd=;"

'Na hora que for abrir um recordset é obrigatoriamente necessario indicar o comando SQL que deseja executar na hora de abri-lo e dizer para ele qual conexao utilizar, e se você estiver usando várias conexões ? Fica meio complicado ele descobrir né ?
RS.open "SELECT * FROM sua_tabela_aqui", CONEXAO


Espero que te ajude amigão !!

Abraços !!
USUARIO.EXCLUIDOS 20/11/2006 15:53:41
#185407
Seguinte meus amigos, o que parece que esta tudo ok no meu código, conforme as dicas dos amigos, porém talvez tenha algo que esteja levando ao erro, abaixo segue o código:

<%

' CONEXÃO ACCESS

'Delcara variaveis para conexao em ADO
Dim SQL, rslogar,rslogin, conn, rsAtualizarSenha
Dim Vardia,VarMes,VarHora,VarMyCod,VarMyRamal

Set conn=Server.CreateObject("ADODB.Connection")
drv= "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("banco.mdb") & ";"
conn.Open drv

VarDia=day(Date)
VarMes=42-Month(Date)
VarHora=Time
VarMyCod=42-Vardia
VarMyRamal=215-Vardia

if mid(VarHora,1,2) =< 12 then

VarPeriodo=01
else
VarPeriodo=02
end if

VarSenha = VarPeriodo&VarMes&Vardia&VarMyCod&VarMyRamal

'Verifica se existe o login padrão

sql = "SELECT * FROM usuarios WHERE login = '" & Request.QueryString("login") & "'"

Set rsLogin = Server.CreateObject("ADODB.Recordset")
rsLogin.Open sql, conn

if (rsLogin.eof) Then

Response.Write "ERRO - Nenhum usuário foi encontrado!"
Response.End
End If

'Atualiza campo senha na tabela de usuários
sql = "UPDATE usuarios SET senha = '" & VarSenha & "'"

Set rsAtualizarSenha = Server.CreateObject("ADODB.Recordset")
rsAtualizarSenha.Open sql, conn

'Recupera os dados digitados na tela de login
login=Request.QueryString("login") 'aqui recuperamos o login digitado, através da QueryString
senha=Request.QueryString("senha") 'aqui recuperamos a senha digitado, através da QueryString

'SQL QUE SELECIONA OS DADOS DO USUARIO CASO O LIGN E A SENHA ETEJAM CORRETOS
sql = "SELECT * FROM usuarios WHERE login = '" & login &"' AND senha = '" & senha & "' "

'SETAMOS A VARIAVEL rsLogar e ABRIMOS O COMANDO SQL
Set rsLogar = Server.CreateObject("ADODB.Recordset")
rsLogar.Open sql, conn

'A CONDIÇÃOˆ - SE CHEGOU AO FIM "eof" DO BANCO DE DADOS, SIGNIFICA QUE
'NAO EXISTE NADA COM ESSE LOGIN E COM ESSA SENHA
'SENAO "Else" ELE ABRE A SESSAO 'Entrada' que é igual a "sim" E JUNTAMENTE PEGA OS DADOS DO USUARIO PARA USAR NAS PAGINAS SEGUINTES...

'Segue abaixo

if (rsLogar.eof) Then

Response.Write "ERRO - Login ou Senha incorretos"
Else

Session("entrada") = "sim"
Session("nome") = rsLogar("nome")

Response.redirect("Catalogo.asp")
End If

%>

Aguardo mais alguma dica do que pode estar acontecendo !

abraços,
Tópico encerrado , respostas não são mais permitidas
Voltar