PRISCILA STOCHINI

JÁ COLOQUEI...

Ai não consegui solucionar o erro da line 12 da valida.asp

E o que eu faço então???

CONECTA.ASP <% Sub AbreConn Dim bco, sql, rs Set bco = Server.CreateObject("ADODB.connection") bco.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb") End Sub '----------------------------- Sub FechaConn bco.close Set bd = Nothing End sub %> VALIDA.ASP <!--#include file="conecta.asp"--> <% vuser = Request.Form("nome") vpass = Request.Form("senha") Dim sql, rs, bco sql = "SELECT * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'" Abreconn Set rs = bco.execute(sql) If Not rs.eof Then rs.close Set rs = Nothing Fechaconn Response.Redirect("index.asp?erro=1") Else Session("login") = True Session("nome") = vuser rs.Close Set rs = Nothing Fechaconn Response.Redirect("SIM/PRINCIPALXYZ000.htm") End if %>

Microsoft VBScript runtime error '800a01a8' Object required: '' /valida.asp, line 12 <!--#include file="conecta.asp"--> <% vuser = Request.Form("nome") vpass = Request.Form("senha") Dim sql, rs, bco sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'" Abreconn (line 12) Set rs = bco.execute(sql) If rs.eof Then rs.close Set rs = Nothing fechaconn Response.Redirect("index.asp?erro=1") Else Session("login") = True Session("nome") = vuser rs.Close Set rs = Nothing fechaconn Response.Redirect("SIM/PRINCIPALXYZ000.htm") End if %>

ADODB.Field error '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /asp/valida.asp, line 17 <!--#include file="conecta.asp"--> <% Dim bco, sql, rs vuser = Replace(Trim(request.form("nome")), "'", "/") vpass = Replace(Trim(request.form("senha")), "'", "/") sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'" Abreconn Set rs = bco.execute(sql) If rs.eof Then Session("login") = True (line 17) Session("nome") = vuser rs.Close Set rs = Nothing fechaconn Response.Redirect "PRINCIPALXYZ000.htm" Else rs.close Set rs = Nothing fechaconn Response.Redirect "index.asp?erro=1" End if %>

SIM, E DEU O PROBLEMA ASSIM!!!!

Microsoft VBScript runtime error '800a01a8' Object required: 'bco' /asp/valida.asp, line 11 VALIDA.ASP <!--#include file="conecta.asp"--> <% vuser = Replace(Trim(request.form("nome")), "'", "/") vpass = Replace(Trim(request.form("senha")), "'", "/") sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'" Abreconn ( LINE 11)Set rs = bco.execute(sql) If rs.eof Then Session("login") = True Session("nome") = rs("nome") rs.Close Set rs = Nothing fechaconn Response.Redirect "PRINCIPALXYZ000.htm" Else rs.close Set rs = Nothing fechaconn Response.Redirect "index.asp?erro=1" End if %>

o QUE QUEREM QUE EU POSTE???

Set rs = bco.execute(sql)

ME AJUDEM.....

Microsoft VBScript runtime error '800a01a8' Object required: '' /asp/valida.asp, line 13 VALIDA.ASP <!--#include file="conecta.asp"--> <% vuser = Replace(Trim(request.form("nome")), "'", "/") vpass = Replace(Trim(request.form("senha")), "'", "/") Dim sql, rs, bco sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'" Abreconn Set rs = bco.execute(sql) If rs.eof Then Session("login") = True Session("nome") = rs("nome") rs.Close Set rs = Nothing fechaconn Response.Redirect "PRINCIPALXYZ000.htm" Else rs.close Set rs = Nothing fechaconn Response.Redirect "index.asp?erro=1" End if %>

Vou testar...outra coisa..como eu faço pra essa mensagem de erro aparecer como uma mensagem de "alert" do windows??? Como javascript...posso colocar a variavel mensagem dentro da tag de alert do javascript????

SESSION.ASP <% If Session ("login") = False Then Response.Redirect "index.asp?erro=2" End If Response.Expires = -1000 %>

como faço isso???

RETIFICANDO....O NOME TANTO DO BD quanto DA TABELA É USUARIOS...

É UMA ACCESS NORMAL DE TITULO USUARIOS.MDB ...TABELA USUARIO CAMPOS NOME E SENHA

Não sei mais o que fazer... Vou colocar aqui todo os códigos, por favor pço imploradamente que alguém me ajude a responder... INDEX.ASP <% MSN = request.querystring("erro") If MSN = 1 Then mensagem = "Usuário e/ou Senha inválido!" End If If MSN = 2 Then mensagem = "Você precisa se logar para visualizar o conteúdo deste site!" End If If MSN = 3 Then mensagem = "Você deslogou do sistema. Obrigado e volte sempre." Response.AddHeader "refresh","3;url=index.asp" End if %> <html> <head> <title>Multiplus - Softwares Tecnicos</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); //--> </script> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .link02{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#000000; font-weight: normal; font-size: 12px; } a.link02:hover{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FF0000; font-weight: normal; font-size: 12px; } .link01{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#ffffff; font-weight: bold; font-size: 12px; } a.link01:hover{ font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#FF0000; font-weight: normal; font-size: 12px; } .titulo { font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold; text-decoration: none; color: #000000; line-height: normal; font-style: normal; } .link021 { font-family: Arial, Helvetica, sans-serif; font-style: normal; line-height: normal; text-decoration: none; color:#000000 } .style12 {font-family: Arial, Helvetica, sans-serif} .style15 {font-family: Arial, Helvetica, sans-serif; font-size: 14px; font-weight: bold; } .style3 {font-size: 12px} .rodape { font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; } .style5 {font-size: 12px; font-family: Arial, Helvetica, sans-serif; } --> </style> </head> <body scroll="no"> <table width="100%" height="594" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="140" height="60" background="Pictures_Inicial/fundo_1.gif"><div align="center"><font color="#FFFFFF" size="5" face="Arial, Helvetica, sans-serif"><strong>MULTIPLUS<br> <font size="2">Softwares T&eacute;cnicos</font></strong></font></div> </td> <td colspan="2" valign="bottom" background="Pictures_Inicial/fundo_2.gif" bgcolor="#FFFFFF"><div align="right"><font color="#FFFFFF"><a href="http://www.cype.com.br" class="link01">Home</a> | <a href="Empresa.htm" class="link01">Empresa</a> | <a href="Treinamentos.htm" class="link01">Cursos e Eventos</a> | <a href="Atendimento_VIP.htm" class="link01">Atendimento Vip</a> | <a href="Precos.htm" class="link01">Pre&ccedil;os</a> | <a href="Oportunidades.htm" class="link01">Oportunidades</a> | <a href="Fale_Conosco.htm" class="link01">Fale Conosco</a></font></div></td> </tr> <tr> <td width="140" height="10" rowspan="3" valign="top" bgcolor="#FFFFFF"><table width="140" border="0" cellspacing="1"> <tr> <td width="200" height="19" rowspan="2" bgcolor="#00CCFF"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>CONCRETO ARMADO</strong></font></td> </tr> <tr> </tr> <tr> <td width="200" height="19" bgcolor="#C7E7FE"><a href="CYPECAD/CYPECAD.htm" class="link02">CYPECAD</a></td> </tr> <tr> <td width="200" height="19" bgcolor="#C7E7FE"><a href="PRE_MOLDAR/Pre-Moldar.htm" class="link02">Pr&eacute; - MOLDAR</a></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C7E7FE"><a href="PRO_ARMAR/Pro_Armar.htm" class="link02">PR&Oacute; - Armar</a></div> </td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C7E7FE"><a href="PRO_ALVENARIA/PRO-Alvenaria.htm" class="link02">PR&Oacute; - Alvenaria</a></div> </td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C7E7FE"><a href="FUNDACOES/Fundacoes.htm" class="link02">Funda&ccedil;&otilde;es</a></div> </td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C7E7FE"><a href="GALERIAS/Galerias.htm" class="link02">Galerias</a></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C7E7FE"><a href="MURO_DE_ARRIMO/Muro de Arrimo.htm" class="link02">Muro de Arrimo</a></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C7E7FE"><a href="CORTINAS/Cortinas Atirantadas.htm" class="link02">Cortinas Atirantadas</a></td> </tr> </table> <br> <table width="140" border="0" cellspacing="1"> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#33CCCC"><div align="center"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>MET&Aacute;LICAS</strong></font></div></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C8F7F2"><a href="METALICAS_3D/Metalicas3D.htm" class="link02">Met&aacute;licas 3D</a></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C8F7F2"><span class="style5">Gerador de Galp&otilde;es</span></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C8F7F2"><a href="TECNOMETAL/TecnoMetal.htm" class="link02">TecnoMETAL</a></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C8F7F2"><span class="style5">TecnoSTEEL</span></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C8F7F2"><span class="style5">Gest&atilde;o de Materiais</span></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C8F7F2"><span class="style5">Gest&atilde;o de Fabrica</span></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C8F7F2"><span class="style5">Controle - CAM</span></td> </tr> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#C8F7F2"><span class="style5">MultiMETAL</span></td> </tr> </table> <br> <table width="140" border="0" cellspacing="1"> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#66cdaa"><div align="center"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>TUBULA&Ccedil;&Acirc;O</strong></font></div></td> </tr> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#e0ffff"><a href="EPLANT/EPLANT.htm" class="link02">EPLANT</a></td> </tr> </table> <br> <table width="140" border="0" cellspacing="1"> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#FF666A"><div align="center"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>ELEMENTOS FINITOS</strong></font></div></td> </tr> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#FFAEBC"><a href="SAP/SAP.htm" class="link02">SAP2000</a></td> </tr> </table> </td> <td width="699" height="110" align="center" valign="middle"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="698" height="110"> <param name="movie" value="FLASH/Abertura_site.swf"> <param name="quality" value="high"> <embed src="FLASH/Abertura_site.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="698" height="110"></embed></object></td> <td width="140" height="18" rowspan="3" valign="top" bordercolor="#FFFFFF"><table width="140" border="0" cellspacing="1"> <tr> <td width="200" height="19" bordercolor="#FFFFFF" bgcolor="#FF9598"><div align="center"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>ARQUITETURA</strong></font></div></td> </tr> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#FFE4E1"><a href="M2ARQ/M2ARQ.htm" class="link02">M2*Arq</a></td> </tr> </table> <br> <table width="140" border="0" cellspacing="1"> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#04DD20"><div align="center"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>OR&Ccedil;AMENTO</strong></font></div></td> </tr> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#CAFEC9"><a href="ARQUIMEDES/Apresentacao.htm" class="link02">Arquimedes</a></td> </tr> </table> <br> <table width="140" border="0" cellspacing="1"> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#FF8C69"><div align="center"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>INSTALA&Ccedil;&Otilde;ES</strong></font></div></td> </tr> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#FFE4C4"><a href="ELETRICA/PRO-Eletrica.htm" class="link02">PRO - Eletrica</a></td> </tr> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#FFE4C4"><a href="HIDRAULICA/PRO-Hidraulica.htm" class="link02">PRO - Hidraulica</a></td> </tr> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#FFE4C4"><a href="AR_CONDICIONADO/PRO-ArCondicionado.htm" class="link02">PRO - ArCondicionado</a></td> </tr> <tr> <td height="19" bordercolor="#FFFFFF" bgcolor="#FFE4C4"><a href="REDES_URBANAS/Redes_Urbanas.htm" class="link02">Redes Urbanas</a></td> </tr> </table> <br> <table width="140" border="0" cellspacing="1"> <tr> <td height="20" bordercolor="#FFFFFF" bgcolor="#8F9A99"><div align="center"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>SUPORTE T&Eacute;CNICO</strong></font></div> </td> </tr> <tr> <td height="20" bordercolor="#FFFFFF" bgcolor="#DDDDDD"><div align="center" class="style5">SIM - Suporte por Internet Multiplus</div></td> </tr> <tr> <td height="20" bordercolor="#FFFFFF" bgcolor="#DDDDDD"><div align="center"><strong><font color="#000033" size="2" face="Arial, Helvetica, sans-serif">ACESSO USU&Aacute;RIOS</font></strong></div></td> </tr> <tr> <td height="70" align="center" bordercolor="#FFFFFF" bgcolor="#DDDDDD"> <form method="post" action="valida.asp"> <font size="2" face="Arial, Helvetica, sans-serif">Login:</font> <input type="text" name="nome" size="11"> <br/> <font size="2" face="Arial, Helvetica, sans-serif">Senha:</font> <input type="password" name="senha" size="11"> <input type="submit" value="[ OK ]" style="background-color:#dddddd; border:1px; border-color:#dddddd; cursor:hand;"> <br><font face="Arial, Helvetica, sans-serif" size="2"> <script language="javascript"> alert { ("<%=mensagem%>") } </script> </font> </form> </td> </tr> </table> <br> <table width="140" height="43" border="0" cellspacing="1"> <tr> <td height="20" bgcolor="#009DDC"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>NOTICIAS</strong></font></td> </tr> <tr> <td height="20" bgcolor="#66CCFF"> </td> </tr> </table> </td> </tr> <tr> <td height="380" align="center" valign="middle"><p align="center" class="style12"><font size="4">Software em destaque: <A href="http://www.multiplus.com/Softwares/Metalicas/Detalhamento/TecnoMetal/tecnometal_4.htm" class="link021"><strong>TecnoMETAL- 4D</strong></A></font><br> <br> <span class="style15">O software mais utilizado no Brasil para&nbsp; Detalhamento e Fabrica&ccedil;&atilde;o de Estruturas Met&aacute;licas</span></p> <p align="center" class="style3"><img src="file:///C|/Documents and Settings/I-Parc3/Meus documentos/SITE/METALICAS_3D/Imagens/GIF_PRINCIPAL.gif" width="318" height="236"><br> <br> <span class="style12">Conhe&ccedil;a tamb&eacute;m:</span><strong>&nbsp; <A href="http://www.multiplus.com/Softwares/Metalicas/Detalhamento/TecnoMetal/tecnometal_2004.htm" class="link021">TecnoMETAl-2D</A> </strong><span class="style12">e</span><strong> <A href="http://www.multiplus.com/Softwares/Metalicas/Detalhamento/TecnoMetal/tecnometal_2002.htm" class="link021">TecnoMETAL-EL</A>&nbsp;<BR> </strong><span class="style12">Conhe&ccedil;a nossa&nbsp; <A href="http://www.multiplus.com/Softwares/Metalicas/metalicas_2000.htm" class="link021"><strong>Linha de Softwares para Estruturas Met&aacute;licas</strong></A> </span></p> </td> </tr> <tr> <td><hr width="80%" color="#CCCCCC"> <div align="center"><span class="rodape">Multiplus Softwares T&eacute;cnicos - Pra&ccedil;a da Republica, 386 - 6&ordm; andar - Republica - S&atilde;o Paulo/SP</span></div></td> </tr> </table> </body> </html> VALIDA.ASP <!--#include file="conecta.asp"--> <!--#include file="session.asp"--> <% vuser = Replace(Trim(request.form("nome")), "'", "/") vpass = Replace(Trim(request.form("senha")), "'", "/") 'vuser = Request.Form("nome") 'vpass = Request.Form("senha") Dim sql, rs, bco 'sql = "select nome, senha from usuarios where nome='"&vuser&"' and senha='"&vpass&"'" Abreconn Set rs = bco.execute("select nome, senha from usuarios where nome='"&vuser&"' and senha='"&vpass&"'") If rs.eof Then Session("login") = True Session("nome") = rs("nome") rs.Close Set rs = Nothing fechaconn Response.Redirect "PRINCIPALXYZ000.htm" Else rs.close Set rs = Nothing fechaconn Response.Redirect "index.asp?erro=1" End if %> CONECTA.ASP <% Sub AbreConn Dim bco, sql, rs Set bco = Server.CreateObject("ADODB.Connection") bco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb") End Sub '----------------------------- Sub FechaConn bco.close Set bd = Nothing End sub %> BOM O ERRO QUE DÁ É O 2...EU DIGITANDO A SENHA E O LOGIN CORRETO, SEM DIGITAR E DIGITANDO ERRADO, DÁ O MESMO ERRO ..... estou IMPLORANDO PRA ALGUÉM ME AJUDAR...URGENTE!!!!!

Alguém em ajuda...não que uero mudar muito meu código porque tenho um padrão..só não sei porque está dando esse erro maluco... qualquer cois que eu faço dá o mesmo erro!!!

QUEM PODE ME AJUDAR...preciso resolver isso hoje!!!

O erro que dá é o programado no INDEX...dá o erro 2 If MSN = 2 Then mensagem = "Você precisa se logar para visualizar o conteúdo deste site!"

INDEX <% MSN = request.querystring("erro") If MSN = 1 Then mensagem = "Usuário e/ou Senha inválido!" End If If MSN = 2 Then mensagem = "Você precisa se logar para visualizar o conteúdo deste site!" End If If MSN = 3 Then mensagem = "Você deslogou do sistema. Obrigado e volte sempre." Response.AddHeader "refresh","3;url=index.asp" End if %> (...) <form method="post" action="valida.asp"> <font size="2" face="Arial, Helvetica, sans-serif">Login:</font> <input type="text" name="nome" size="11"> <br/> <font size="2" face="Arial, Helvetica, sans-serif">Senha:</font> <input type="password" name="senha" size="11"> <input type="submit" value="[ OK ]" style="background-color:#dddddd; border:1px; border-color:#dddddd; cursor:hand;"> (...) VALIDA <!--#include file="conecta.asp"--> <!--#include file="session.asp"--> <% vuser = Request.Form("nome") vpass = Request.Form("senha") Dim sql, rs, bco sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'" Abreconn Set rs = bco.execute(sql) If rs.eof Then rs.close Set rs = Nothing fechaconn Response.Redirect "index.asp?erro=1" Else Session("login") = True Session("nome") = vuser rs.Close Set rs = Nothing fechaconn Response.Redirect "PRINCIPALXYZ000.htm" End if %> CONECTA <% Sub AbreConn Dim bco, sql, rs Set bco = Server.CreateObject("ADODB.Connection") bco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb") End Sub '----------------------------- Sub FechaConn bco.close Set bd = Nothing End sub %>

Bom, estou desenvolvendo um sistema de login, com senha... Então eu crio o formulario para acesso...esse conecta uma página de validação...e essa deveria conectar o bd e liberar o acesso... Bom já testei de tudo....o problema está sendo... quando eu coloco o login dá um erro....sem o login dá o mesmo erro e com o login errado também... O que pode ser..qm pode me ajudar...

O PROBLEMA ACHO QUE ESTA NA HORA DE CONECTAR O BANCO... porque ELE DÁ A MENSANGEM ESTÁ DANDO QUE EU PRECISO ME LOGAR ...

Bom, posso dizer que agora a página valida está funcionando..mas não estou conseguindo logar, sendo que o nome e a senha estão corretos... Qual pode ser o problema...quando eu logo dá a mensagem de erro 2