Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

TaP

Deem uma olhada nesse codigo

Por , em ASP Clássico

Recommended Posts

TaP    0

TaP
Postado

<!--#include file="bib_conexao.asp"-->

<%

dim sql,rs,vnom,vsen,vent,sql2,rs2

 

vent = Request.Form("ent")

vnom = Request.Form("nom")

vsen = Request.Form("senha")

 

sql = "select * from funcionarios where nome = '"& vnom &"' and senha = '"& vsen &"'"

sql2 = "select data from relatorio"

 

rs = conn.execute(sql)

rs2 = conn.execute(sql2)

 

if not rs.eof then

Response.Write "<center>Senha incorreta, favor corrifir!</center><BR>"

Response.Write ("<center><a href='index.asp'>Voltar</a></center>")

end if

%>

 

Tah dando o seguinte erro

 

Tipo de erro:

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

Esta propriedade ou método não tem suporte do objeto: 'eof'

/pontocerto/inclusao.asp, line 15

 

oque sera????

Compartilhar este post

Link para o post
Compartilhar em outros sites

TaP    0

TaP
Postado

e se eu tiro o rs.eof olha o erro que dah!

 

Tipo de erro:

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/pontocerto/inclusao.asp

 

mas como pode dar esse erro sendo que a 1ª pagina antes dessa lista o campo que ele fala que agora eh nulo???

Compartilhar este post

Link para o post
Compartilhar em outros sites

rafazanoni    0

rafazanoni
Postado

Faça o seguinte:

 

<!--#include file="bib_conexao.asp"-->

<%

dim sql,rs,vnom,vsen,vent,sql2,rs2

 

vent = Request.Form("ent")

vnom = Request.Form("nom")

vsen = Request.Form("senha")

 

sql = "select * from funcionarios where nome = '"& vnom &"' and senha = '"& vsen &"'"

sql2 = "select data from relatorio"

 

rs = server.createobject("adodb.recordset")

rs2 = server.createobject("adodb.recordset")

rs.open (sql)

rs2.open (sql2)

 

if rs.eof then

Response.Write "<center>Senha incorreta, favor corrifir!</center><BR>"

Response.Write ("<center><a href='index.asp'>Voltar</a></center>")

end if

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

TaP    0

TaP
Postado

Faça o seguinte:

 

<!--#include file="bib_conexao.asp"-->

<%

dim sql,rs,vnom,vsen,vent,sql2,rs2

 

vent = Request.Form("ent")

vnom = Request.Form("nom")

vsen = Request.Form("senha")

 

sql = "select * from funcionarios where nome = '"& vnom &"' and senha = '"& vsen &"'"

sql2 = "select data from relatorio"

 

rs = server.createobject("adodb.recordset")

rs2 = server.createobject("adodb.recordset")

rs.open (sql)

rs2.open (sql2)

 

if rs.eof then

Response.Write "<center>Senha incorreta, favor corrifir!</center><BR>"

Response.Write ("<center><a href='index.asp'>Voltar</a></center>")

end if

%>

dah o seguinte erro

 

 

Tipo de erro:

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

Esta propriedade ou método não tem suporte do objeto: 'open'

/pontocerto/inclusao.asp, line 14

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Aqui:

rs = conn.execute(sql)

rs2 = conn.execute(sql2)

você faz isso:

set rs = conn.execute(sql)
set rs2 = conn.execute(sql2)

E depois de ter usado você faz:

set rs = nothing
set rs2 = nothing

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
valeu salgado!!!!

 

 

eu tinha esquecido do set!!!!

 

 

uhuahuaha!!

 

 

valeu mesmo!!!!!

Sempre q precisar tamos ai.

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

TaP    0

TaP
Postado

O mano beleza deu certo soh que agora ele tah falando que a senha tah errada e naum tah!!!!!

 

 

eu coloquei assim (a hp inteira)

 

<!--#include file="bib_conexao.asp"-->

<%

dim sql,rs,vnom,vsen,vent,sql2,rs2

 

vent = Request.Form("ent")

vnom = Request.Form("nom")

vsen = Request.Form("senha")

 

sql = "select * from funcionarios where nome = '"&vnom&"' and senha = '"&vsen&"'"

sql2 = "select data from relatorio"

 

set rs = conn.execute(sql)

set rs2 = conn.execute(sql2)

 

if not rs.eof then

Response.Write "<center>Senha incorreta, favor corrigir!</center><BR>"

Response.Write ("<center><a href='index.asp'>Voltar</a></center>")

else

%>

<html>

<head>

<title>::Ponto Certo::</title>

</head>

<body bgcolor="#FFCC00">

<form action="incluso.asp" method="post">

<div align="center">

<p>Confira a Data. Se estiver correta clique em <strong>OK</strong>,

se estiver errada porfavor entre em contato cm o administrador

.</p>

<p><strong>ATENÇÃO:</strong><br>

A senha é <strong>PESSOAL</strong>, sendo assim <strong>NÃO</strong> é permitido

dar entrada no ponto para o colega.<br>

Se isso ocorrer os funcionários que cometeram a infração

serão <strong>punidos</strong> de acordo com as regras da Farmácia.</p>

<p>

<input name="textfield" type="text" value='<%=rs2("data")%>'><br>

<input name="nome" type="hiden" value="<%=(vnom)%>"><br>

<input name="tipo" type="hiden" value="<%=(vest)%>"><br>

</p>

<p>

<input type="submit" name="Submit" value="OK">

</p>

</div>

<%

end if

 

%>

</form>

</body>

</html>

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Dá uma olhada aqui:

if not rs.eof then

_^ retire esse Not daqui pq assim ele tá fazendo o sequinte: se não for o fim do rs ele diz que a senha está errada, o q não é verdade, pois o usuario/senha só estarão errados qd rs estiver vazio.

 

Valeu? :P

Compartilhar este post

Link para o post
Compartilhar em outros sites

TaP    0

TaP
Postado

quando eu tiro o NOT dah o seguinte erro

 

 

Tipo de erro:

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/pontocerto/inclusao.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
Dá uma olhada aqui:

if not rs.eof then

_^ retire esse Not daqui pq assim ele tá fazendo o sequinte: se não for o fim do rs ele diz que a senha está errada, o q não é verdade, pois o usuario/senha só estarão errados qd rs estiver vazio.

 

Valeu? :P

Coloque:

if rs.eof or rs.bof then

 

E qual a linha q deu na msg de erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

TaP    0

TaP
Postado

Ele não fala a linha

 

olha soh

 

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

 

Tipo de erro:

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/pontocerto/inclusao.asp

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

 

Página:

POST 41 bytes to /pontocerto/inclusao.asp

 

POST Data:

nom=Thiago&ent=Entrada&senha=a&submit1=OK

 

Hora:

segunda-feira, 9 de junho de 2003, 15:34:17

 

 

Mais informações:

Suporte da Microsoft

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Faça o seguinte teste:

Copie:

<!--#include file="bib_conexao.asp"-->
<%
dim sql,rs,vnom,vsen,vent,sql2,rs2

vent = Request.Form("ent")
vnom = Request.Form("nom")
vsen = Request.Form("senha")

sql = "select * from funcionarios where nome = '"&vnom&"' and senha = '"&vsen&"'"

set rs = conn.execute(sql)

if rs.eof or rs.BOF then
Response.Write "<center>Senha incorreta, favor corrigir!</center><BR>"
Response.Write ("<center><a href='index.asp'>Voltar</a></center>")
else
Response.Write "OK"
end IF%>

em uma nova pag só para testar

ex teste_login.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

d.eleete    0

d.eleete
Postado

if rs.EOF thenresponse.write"Senha ou Login inválido!Volte e tente novamente."elsesession("logado")="sim" response.redirect"pagina_protegida.asp"end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Seu erro está no segundo rs, este aqui:

sql2 = "select data from relatorio"

set rs = conn.execute(sql)
set rs2 = conn.execute(sql2)

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito