ERRO !
Bom dia Pessoal, sou iniciante em ASP, estou com um problema ao executar uma pagina de login
Retorno do Browser:
----------------------------------------------------
Script error detected at line 3.
Source line: Conn.provider="Microsoft.Jet.OLEDB.4.0"
Description: Objeto necessário: 'Conn'
Pagina inicial em HTML:
----------------------------------------------------
<body bgcolor="#808000">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber3">
<tr>
<td width="50%" bgcolor="#000000">
<p align="right">
<img border="0" src="Imagens/access.bmp" width="72" height="72"></td>
<td width="50%" bgcolor="#000000">
<font color="#FF0000" face="Tahoma" size="4"> <u>Ã Ârea Restrita</u></font></td>
</tr>
</table>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber6">
<tr>
<td width="100%" bgcolor="#808000"> </td>
</tr>
<tr>
<td width="100%" bgcolor="#808000">
<p align="center"><font face="Tahoma">
<b><span style="background-color: #808000">Por favor entre com os dados de acesso.</span></b><span style="background-color: #808000">
</span>
</font></td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber5">
<tr>
<td width="100%" bgcolor="#808000">
<p align="center"> </td>
</tr>
</table>
<form action="login.asp" method="post">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber4">
<tr>
<td width="44%" bgcolor="#808000">
<p align="right"><font face="Tahoma" size="2">
<span style="background-color: #808000">Usuário:</span></font></td>
<td width="56%" bgcolor="#808000">
<font face="Tahoma">
<span style="background-color: #808000">
<input name=txt_login type=Text size="20" style="float: left"></span></font></td>
</tr>
<tr>
<td width="44%" bgcolor="#808000"><p align="right">
<font face="Tahoma" size="2"><span style="background-color: #808000">Senha:</span></font></td>
<td width="56%" bgcolor="#808000">
<font face="Tahoma">
<span style="background-color: #808000">
<input name=txt_senha type=password size="20" style="float: left"></span></font></td>
</tr>
</table>
<p align="center"><font face="Tahoma">
<Input type=submit value=Acessar></font></td>
</tr>
</table>
<p align="center"><font size="2" face="Tahoma"></td> </tr></table></font><p>
<font face="Tahoma"><span style="background-color: #808000"> </span></font></form>
</div>
Pagina de login em ASP:
----------------------------------------------------
<%
'Efetuando a conexão com a base de dados criada
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("\banco.mdb")
Conn.open
'Vamos capturar o login e a senha digitada no firmulário
login2 = Request.Form("txt_login")
senha2 = Request.Form("txt_senha")
'Agora verificamos se o usuário e a senha estão corretos
SQL = "select * from usuarios where login = '" & login2 & "' and senha = '" & senha2 & "' "
Set RS = Conn.Execute(SQL)
'Caso não esteja correto, indicamos o erro
If RS.EOF Then
Response.Write "usuário ou senha inválida!"
Response.End
End If
'Se chegou até aqui, é porque o login e senha estão corretos.
'Vamos então verificar o nÃvel de acesso do usuário.
session("Acesso") = "ok"
Response.Redirect "adm.asp" 'página restrita
%>
Aguardo ajuda dos colegas
sds a todos,
Ruan
Retorno do Browser:
----------------------------------------------------
Script error detected at line 3.
Source line: Conn.provider="Microsoft.Jet.OLEDB.4.0"
Description: Objeto necessário: 'Conn'
Pagina inicial em HTML:
----------------------------------------------------
<body bgcolor="#808000">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber3">
<tr>
<td width="50%" bgcolor="#000000">
<p align="right">
<img border="0" src="Imagens/access.bmp" width="72" height="72"></td>
<td width="50%" bgcolor="#000000">
<font color="#FF0000" face="Tahoma" size="4"> <u>Ã Ârea Restrita</u></font></td>
</tr>
</table>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber6">
<tr>
<td width="100%" bgcolor="#808000"> </td>
</tr>
<tr>
<td width="100%" bgcolor="#808000">
<p align="center"><font face="Tahoma">
<b><span style="background-color: #808000">Por favor entre com os dados de acesso.</span></b><span style="background-color: #808000">
</span>
</font></td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber5">
<tr>
<td width="100%" bgcolor="#808000">
<p align="center"> </td>
</tr>
</table>
<form action="login.asp" method="post">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber4">
<tr>
<td width="44%" bgcolor="#808000">
<p align="right"><font face="Tahoma" size="2">
<span style="background-color: #808000">Usuário:</span></font></td>
<td width="56%" bgcolor="#808000">
<font face="Tahoma">
<span style="background-color: #808000">
<input name=txt_login type=Text size="20" style="float: left"></span></font></td>
</tr>
<tr>
<td width="44%" bgcolor="#808000"><p align="right">
<font face="Tahoma" size="2"><span style="background-color: #808000">Senha:</span></font></td>
<td width="56%" bgcolor="#808000">
<font face="Tahoma">
<span style="background-color: #808000">
<input name=txt_senha type=password size="20" style="float: left"></span></font></td>
</tr>
</table>
<p align="center"><font face="Tahoma">
<Input type=submit value=Acessar></font></td>
</tr>
</table>
<p align="center"><font size="2" face="Tahoma"></td> </tr></table></font><p>
<font face="Tahoma"><span style="background-color: #808000"> </span></font></form>
</div>
Pagina de login em ASP:
----------------------------------------------------
<%
'Efetuando a conexão com a base de dados criada
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("\banco.mdb")
Conn.open
'Vamos capturar o login e a senha digitada no firmulário
login2 = Request.Form("txt_login")
senha2 = Request.Form("txt_senha")
'Agora verificamos se o usuário e a senha estão corretos
SQL = "select * from usuarios where login = '" & login2 & "' and senha = '" & senha2 & "' "
Set RS = Conn.Execute(SQL)
'Caso não esteja correto, indicamos o erro
If RS.EOF Then
Response.Write "usuário ou senha inválida!"
Response.End
End If
'Se chegou até aqui, é porque o login e senha estão corretos.
'Vamos então verificar o nÃvel de acesso do usuário.
session("Acesso") = "ok"
Response.Redirect "adm.asp" 'página restrita
%>
Aguardo ajuda dos colegas
sds a todos,
Ruan
Oi
Cara coloca isso no lugar da conexao, por que o problema é no seu código, ou tenta mudar para uma versão do adodb anterior:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = caminho do seu banco de dados;"
OU
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.3.0; Data Source = caminho do seu banco de dados;"
Cara coloca isso no lugar da conexao, por que o problema é no seu código, ou tenta mudar para uma versão do adodb anterior:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = caminho do seu banco de dados;"
OU
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.3.0; Data Source = caminho do seu banco de dados;"
Tópico encerrado , respostas não são mais permitidas