Ir para conteúdo

Arquivado

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

DackAle

2 Erros =(

Por , em ASP Clássico

Recommended Posts

DackAle    0

DackAle
Postado

Ola galera ó eu denovo aqui enchendo vcs hehehehe to precisando de um help, eu tinha feito uma pagina de cadastro e tava tudo OK, só que não tinha feito nenhuma verificação pra ver tinha campos em branco, se ja existia o login e etc, agora fui fazer e não ta dando certo hehehehe da o seguinte erro: O objeto não dá suporte para a propriedade ou método: 'eof'

/DackAle Site/processo.asp, line 42

 

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

<%

Dim SQL,RS,nick,email,senha,repetir,nome,sobrenome,sexo,dia,mes,ano,icq,site

Dim cidade,estado,pais,assinatura,avatar,data,ip,level,erro

nick=Server.HTMLEncode(Request.Form("nick"))

email=Server.HTMLEncode(Request.Form("email"))

senha=Server.HTMLEncode(Request.Form("senha"))

repetir=Server.HTMLEncode(Request.Form("repetir"))

nome=Server.HTMLEncode(Request.Form("nome"))

sobrenome=Server.HTMLEncode(Request.Form("sobrenome"))

sexo=Request.Form("sexo")

dia=Request.Form("dia")

mes=Request.Form("mes")

ano=Request.Form("ano")

icq=Server.HTMLEncode(Request.Form("icq"))

site=Server.HTMLEncode(Request.Form("site"))

cidade=Server.HTMLEncode(Request.Form("cidade"))

estado=Server.HTMLEncode(Request.Form("estado"))

pais=Server.HTMLEncode(Request.Form("pais"))

assinatura=Server.HTMLEncode(Request.Form("assinatura"))

avatar=Request.Form("avatar")

data=Request.Form("dia") & "/" & Request.Form("mes") & "/" & Request.Form("ano")

ip=Request.ServerVariables("REMOTE_ADDR")

level = (1)

erro = (0)

 

if nick = "" or avatar = "" or senha = "" or repetir = "" or email = "" or nome = "" or sobrenome = "" or sexo = "" or data = "" Then

Response.Write "<font color=red>Preencha os campos obrigatorios</font>"

erro = erro + 1

End if

 

if repetir <> senha Then

Response.Write "<font color=red>Senhas não conferem</font>"

erro = erro + 1

end if

 

SQL="SELECT * From Membros WHERE nick='" & nick & "'"

Call AbreConexao

 

Set Rs=conexao.execute(sql)

nick=rs("nick") ** Aqui é a linha 42 **

if not rs("nick").eof Then

Response.Write "nick Em uso"

erro = erro + 1

End If

 

rs.close

 

SQL="SELECT * From Membros WHERE email=' " & email & "'"

email=rs("email")

if not email.eof Then

Response.Write "E-mail Em uso"

erro = erro + 1

End If

rs.close

 

if erro = 0 Then

Response.Redirect "concluido.asp"

End if

 

Set rs=Nothing

Call FechaConexao

%>

 

Aonde esta em vermelho em meio que inventei heheh tipo é pra fazer uma verificação cada vez que tiver um erro acrescenta + 1 no erro e no final ele verifica se não tiver erro ele manda pra outra pagina aonde vai mandar os dados pro banco de dados, queria saber se a logica disso ta certo, e o que ta dando de errado provavel que na parte do SELECT...

***********************************************

heheheeh agora abusando heheheeh pra não abrir outro topico estou com esse erro nessa pagina Erro de sintaxe na instrução INSERT INTO. o campo "carinha" e numeroforum no banco de dados são NUMEROS então eu ja tirei as aspas simples deles....e continua dando esse erro alguem tem alguma ideia do que pode ser ???

 

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

<%

Dim SQL,numeroforum,mensagem,nome,carinha,data

numeroforum=Request.querystring("cod")

mensagem=Request.form("mensagem")

nome=Request.form("nome")

carinha=Request.form("carinha")

data=now()

 

mensagem = "'" & mensagem & "'"

nome = "'" & nome & "'"

SQL="Insert INTO Forum (numeroforum,mensagem,nome,carinha) VALUES (" & numeroforum & "," & mensagem & "," & nome & "," & carinha & ")"

 

Call AbreConexao

On Error Resume Next

Conexao.Execute(SQL)

Call FechaConexao

%>

<html>

<head>

<title>Processo</title>

</head>

<body>

<%

if err.number=0 Then

Response.Write "Mensagem postado com sucesso"

Else

Response.Write "Ocorreu o seguinte erro " & err.description

end if

%>

</body>

</html>

 

esse include funcao.asp ta o codigo para ligar meu bd...e ja tenho varias paginas em asp que fiz funcionando certinho o banco de dados, então o bd não é =(

 

GALERA BRIGADÃO DESDE JA E DESCULPE A ENCHEÇÃO HEHEHEHE espero um dia poder recomepensar ajudando todos vcs =)

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

1ª- você errou a linha, a linha 42 é essa:

if not rs("nick").eof Then
O erro apresentado é referente a um uso inválido de propriedade, no caso rs("nick").EOF não aceita .EOF. Tente trocar por:
if not rs.eof Then

2ª- Os campos "mensagem" e "nome", não são numeros certo, entã coloque as '(aspas simples).

 

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

DackAle    0

DackAle
Postado

nossa deu um erro cabuloso hahahah eu fiz o que se falou e puis rs.eof la e deu esse erro:

Operação não permitida quando o objeto está fechado.

/DackAle Site/processo.asp, line 50

 

no caso ficou assim:

 

SQL="SELECT * From Membros WHERE nick='" & nick & "'"

Call AbreConexao

 

Set Rs=conexao.execute(sql)

nick=rs("nick")

if not rs.eof Then

Response.Write "nick Em uso"

erro = erro + 1

End If

 

rs.close

 

SQL="SELECT * From Membros WHERE email=' " & email & "'"

email=rs("email")

if not rs.eof Then

Response.Write "E-mail Em uso"

erro = erro + 1

End If

rs.close

 

no caso 2 eu ponho aspas simples aqui óóó:

mensagem = "'" & mensagem & "'"

nome = "'" & nome & "'"

SQL="Insert INTO Forum (numeroforum,mensagem,nome,carinha) VALUES (" & numeroforum & "," & mensagem & "," & nome & "," & carinha & ")"

 

é que aqui no forum não da pra ver mais esta assim " ' " nessa linha mensagem = "'" & mensagem & "'", é como se estivesse assim mensagem = " ' " & mensagem & " ' " =(

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

1º- Seu erro está aqui:

Set Rs=conexao.execute(sql)

nick=rs("nick")

if not rs.eof Then

Response.Write "nick Em uso"

erro = erro + 1

End If

rs.close

set rs.nothing 'esqueçeu de destruir

SQL="SELECT * From Membros WHERE email=' " & email & "'"

Set Rs=conexao.execute(sql) esqueceu de setar de novo

email=rs("email")

if not rs.eof Then

Response.Write "E-mail Em uso"

erro = erro + 1

End If

rs.close

Teste agora

2º- Foi mal não tinha percebido :lol: , então pode ter alguma variável vazia.

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