Logando

kaolapso · Abril 22, 2004

Ola pessoal....estou fazendo um pagina de login mas esta dando erro.Ele da erro de object required:" na linha em vermelho.Vejam o codigo:

<%

Dim login , senha , RS_Consulta , user , pass

user = Request.Form("login")

pass = Request.Form("senha")

%>

<html>

<head>

<title>Untitled Document</title>

</head>

<body>

<%

call abre_conexao

Set RS_Consulta = Conexao.Execute("SELECT * FROM usuarios WHERE login='" & user & "' and senha='" & pass & "'")

If RS_Consulta.EOF then

response.write "Você não tem permissão para acessar esta área!"

else

session("logado")="sim"

response.Redirect(logado.asp)

end if

%>

</body>

</html>

bolomaster · Abril 22, 2004

o que tem no seu abre conexao

porque quando diz objcet requerid é porque ta faltando algo ...

tipo confere os dados da sua conexao para ver

tipo deve tar faltaldando alguma conexao como

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

ta ligado

abraços

e fui

Victor · Abril 22, 2004

Tente esse:

<%set conexao = server.createobject("adodb. conection")
set RecSet = server.createobject("adodb.recordset")%>
<!--#include file="bib_conection.asp"-->
<%
Dim login , senha , RS_Consulta , user , pass
user = Request.Form("login")
pass = Request.Form("senha")

%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
call abre_conexao
Conexao.Execute "SELECT * FROM usuarios WHERE login='"&user& "'and senha='"&pass &"'"
If RS_Consulta.EOF then
response.write "Você não tem permissão para acessar esta área!"
else
session("logado")="sim"
response.Redirect(logado.asp)
end if
%>

Se tiver mais dúvidas poste ai, qualquer coisa é só chamar!!!

[]'s

Victor

kaolapso · Abril 22, 2004

Num ta não...da uma olhada :

<%

sub abre_conexao

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

Conexao.Open "DBQ=C:\PontoMc\DB\pontomc.mdb;Driver={Microsoft Access Driver (*.mdb)}"

end sub

sub fecha_conexao

Conexao.Close

Set Conexao=nothing

end sub

%>

ou Tá?

valeu...

Victor · Abril 22, 2004

Tente esse então:

conecta.asp

<%
local=Request.ServerVariables("SERVER_NAME")

if local="nome+do_pc" or local="localhost" then
	conexao= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\pasta\database\bd.mdb;Persist Security Info=False"
	endereco_virtual="http://"&local&"/pasta"
	endereco_fisico="C:/Inetpub/wwwroot/pasta"
end if

set conn = Server.CreateObject("adodb.connection")
conn.open conexao
%>

index.asp

<!--#include file="conecta.asp"-->
<br><br><br>
<center>
<table width=50% border=1 bordercolor="000000" bgcolor="#000000" cellpadding=1 cellspacing=0>
<tr>
<td>
	<table width=100% border=0 bgcolor="#ECE9E9" cellpadding=0 cellspacing=0>
	<tr>
	<td colspan="2" class=font_preto><br><center><big><b>Login</big><hr size=1 color=ff0000 width=96% align="center"></center>&nbsp;&nbsp;<font color="#000099" size=2 face=verdana>Área de Login</font></b><br><br></td>
	</tr>
	<tr>
	<form action="index.asp" method=post onsubmit="return submit_page(this);" id=form1 name=form1><input type=hidden name=acao value=login>
	<td align=right width=20% class=font_preto><b><font color="#ff0000" face=verdana>* </font>Usuário</b><br><br></td>
	<td>&nbsp;&nbsp;<input type=text name=login><br><br></td>
	</tr>
	<tr>
	<td align=right width=20% class=font_preto><b><font color="#ff0000" face=verdana>* </font>Senha:</b><br><br></td>
	<td>&nbsp;&nbsp;<input type=password name=senha><br><br></td>
	</tr>
	<tr>
	<td align=right width=20% class=font_preto>&nbsp;&nbsp;</td>
	<td>&nbsp;&nbsp;<input type=submit value=login id=submit1 name=submit1></form></td>
	</tr>
	</table>
</td>
</tr>
</table>

<%end if%>

<%
su = RecSet("senha")
if request.form("acao")="login" then

	Set RecSet=Server.CreateObject("adodb.recordset")

	RecSet.Open "Select * from usuario where login = '"&Request.Form("login")&"'", conn, 3
  if RecSet.EOF then
  	response.write "<font color=#000000>login inválido <a href=index.asp>clique aqui</a> e tente novamente..."
  else
  	if Request.Form("login") = "administrador" and Request.form("senha") = su then
    session("login") = true
    session("usuario") = Request.Form("login")
  	end if
  	response.redirect "página.asp"
  end if
	RecSet.Close
end if
%>

Tente esse ai que acabei de fazer, se tiver mais alguma dúvida poste ae, que te ajudaremos!!!

[]'s

Victor

Deividy · Abril 22, 2004

sua senha no db é com letras ou numeros ou os dois?

kaolapso · Abril 22, 2004

fiz tudo quase tido certinho e agora ta dando erro:

Type mismatch : 'abre_conexao' e como já foi postado o codigo acima , você sconseguem identificar algum erro no bib_conection?

E outra coisa...quando coloco o <--!#include file ...>dentro das tags asp da um erro de objeto required:" , e quando fica fora das tags da essr erro acima.

valeu

Deividy · Abril 22, 2004

uma pergunta

você esta fazzendo assim

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

Conexao.Open "DBQ=C:\PontoMc\DB\pontomc.mdb;Driver={Microsoft Access Driver (*.mdb)}"

end sub

sub fecha_conexao

Conexao.Close

Set Conexao=nothing

end sub

kaolapso · Abril 23, 2004

Agora eu consegui...mas tem um porem.....só consegui colocando as string de conexão na propria pagina , quando tento usar o bib_conexao ele da o erro de objetc required , e esta completo.Testei em outro site que havia feito e deu certo,alguém saberia explicar?....ou terei que digitar as strings :

Set Conexao = Server.CreateObject("adodb.connection")

Conexao.Open "DBQ=C:\PontoMC\DB\pontomc.mdb;Driver={Microsoft Access Driver (*.mdb)}"

Em todas as paginas?....valeu galera vocês são feras e muito pacientes.....

dark0 · Abril 23, 2004

você deve utilizar em todas sim!

mas não é mais facil você criar um arquivo só.. que faz a conexao com o banco

e depois, coloca ele como include em todas as paginas?

pois, se o caminho do banco mudar, você muda em um arquivo, e já tá funcionando! senao, tem que mudar em todas as paginas.. já pensou na mão..?

kaolapso · Abril 23, 2004

Sim...estava fazendo isso e a dando certo.....não sei porque?meu bib_conexao é assim :

<%
sub abre_conexao
	Set Conexao = Server.CreateObject("adodb.connection")
	Conexao.Open "DBQ=C:\Pasta\DB\banco.mdb;Driver={Microsoft Access Driver (*.mdb)}" 
end sub

sub fecha_conexao
	Conexao.Close
	Set Conexao=nothing
end sub 
%>

e nas paginas eu usava: ---  e não funciona...da o erro do bjetc required na linha de Set rs = Conexao.Execute

O que será?

dark0 · Abril 23, 2004

não, não , não.. hehehe

ta errado!

ou melhor, ta certo! mas ta errado!

tipo:

nessa bib_conexao, você esta fazendo a conexao com o banco, certo?

mas veja só: você esta usando uma SUB para fazer a conexao!

quando você faz uma SUB, ela só vai ser executada, se você chamar ela!

pra chamar, usa:

call nome_da_sub

ou só

nome_da_sub

assim, você esta executando a sub!

entendeu?

na sua pagina, você apenas criava ela.. mas não chegava a executar.. e por isso dava erro!

ate mais

kaolapso · Abril 23, 2004

não deu certo olha só....

<%
Dim login , senha , Rs , user , pass
user = Request.Form("txt_login")
pass = Request.Form("txt_senha")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Call abre_conexao
Set Rs = Conexao.Execute ("SELECT * FROM usuarios")
Call abre_conexao
If user = Rs("login") and pass = Rs("senha") then
session("logado")="sim"
response.redirect "logado.asp"
else
response.write "Você não tem permissão para acessar esta área!"
end if

Call fecha_conexao
Set Rs = Nothing

%>
</body>
</html>

Erro de object required na lina grifada

Victor · Abril 23, 2004

não deu certo olha só....

<%
Dim login , senha , Rs , user , pass
user = Request.Form("txt_login")
pass = Request.Form("txt_senha")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Call abre_conexao
Set Rs = Conexao.Execute ("SELECT * FROM usuarios")
Call abre_conexao
If user = Rs("login") and pass = Rs("senha") then
session("logado")="sim"
response.redirect "logado.asp"
else
response.write "Você não tem permissão para acessar esta área!"
end if

Call fecha_conexao
Set Rs = Nothing

%>
</body>
</html>
Erro de object required na lina grifada

Ta certo com a conexão com banco de dados??

bolomaster · Abril 23, 2004

E outra coisa...quando coloco o <--!#include file ...>dentro das tags asp da um erro de objeto required:" , e quando fica fora das tags da essr erro acima.

cara o include sempre tem que ficar fora das tags <% %> do ASP, pois se não dá pau ....

<%
Call abre_conexao 'já abriu aqui não precisa abrir de novo em baixo!!!
sql = "SELECT * FROM usuarios"
Set Rs = Conexao.Execute(sql)
If user = Rs("login") and pass = Rs("senha") then
session("logado")="sim"

response.redirect "logado.asp"
else
response.write "Você não tem permissão para acessar esta área!"
end if
Call fecha_conexao
Set Rs.Close
Set Rs = Nothing
%>

Confere e olha se agora vai funcionar .. meu abraços e fui

dark0 · Abril 23, 2004

o que você alterou bolo?

só tirou uma linha "call .." que estava a mais, ou mecheu em algo a mais..?

bolomaster · Abril 23, 2004

Separei isso também oh

Set Rs = Conexao.Execute ("SELECT * FROM usuarios")

Coloquei assim oh

sql = "SELECT * FROM usuarios"
Set Rs = Conexao.Execute(sql)

e também adicionei

Set Rs.Close

so isso

kaolapso · Abril 23, 2004

EURECAAAAAA!!!!

Valeu galera,consegui ! Mas o pior é que perdi um tempão só porque não estava declarando a variavel Conexao...é mole?.....gente muito obrigado e parabens....este é o melhor forum que existe na web.....

VALEU

dark0 · Abril 23, 2004

é isso aí kaolapso!

E nós estamos crescendo cada vez mais, por ter membros como vc! Que nos ajuda a crescer cada vez mais!

Abração, e vamos lá! A vida continua !!

hehehe

t+!

Entrar

Logando

Pergunta

Link para o comentário

Compartilhar em outros sites

18 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns