Bolão

[fantasma]

O sistema de pontuação funciona da seguinte forma:

- 1 ponto caso o participante acerte o resultado mas erre o placar do jogo;

- 3 pontos caso o participante acerte o resultado e o placar;

- 0 ponto caso o participante erre o resultado do jogo.

set rs = objdb.execute("select * from teste where id_jogo='"& id &"'")

a=Request.Form("resultado1")

b=Request.Form("resultado2")

' "a" = campo do resultado oficial do jogo

response.write a

response.write ("<br>")

' "b" = campo do resultado oficial do jogo

response.write b

response.write ("<br>")

do while not rs.Eof

response.write rs("resultado1")

response.write ("<br>")

response.write rs("resultado2")

response.write ("<br>")

if int(a)=int(rs("resultado1")) and int(=int(rs("resultado2")) then

Executar1 = "UPDATE teste SET pontos = '3' where id_jogo='"& id &"'"

objDB.Execute(Executar1)

elseif int(a)>int( and int(rs("resultado1"))>int(rs("resultado2")) then

Executar2 = "UPDATE teste SET pontos = '1' where id_jogo='"& id &"'"

objDB.Execute(Executar2)

elseif int(a)<int( and int(rs("resultado1"))<int(rs("resultado2")) then

Executar3 = "UPDATE teste SET pontos = '1' where id_jogo='"& id &"'"

objDB.Execute(Executar3)

elseif int(a)=int( and int(rs("resultado1"))=int(rs("resultado2")) then

Executar4 = "UPDATE teste SET pontos = '1' where id_jogo='"& id &"'"

objDB.Execute(Executar4)

else

Executar5= "UPDATE teste SET pontos = '0' where id_jogo='"& id &"'"

objDB.Execute(Executar5)

end if

rs.movenext

loop

******** nâo esta incluindo os valores corretos...........??????????

[marcos_804]

>> acho que voce não esta fechando a conexao!

Cara que não entendi muito o seu codigo, mas acho que voce poderia fazer um sistema de atualizacao mais facil.

faz assim oh:

SQL = "Puxa a conexao WHERE id=" & id
       'Campo que puxa o campo de pontos
rs("pontos") = numero da atualizacao
       'Aqui atualiza
rs.Update
       'Aqui fecha a conexao
rs.Close

Cara eu estou te dando esta dica por que há algum tempo eu tive este problema de não atualizacao. e eu testei este e logo deu certo.

Se não funcionar acho que valeu a intencao!

[fantasma]

Não entendi vo pode explicar mehlor

[marcos_804]

Cara o que eu vi é que você dá um monte de "execute" mas não fecha a conexao... dai se ela ficar aberta não vai atualizar...

faca desta forma que eu falei para vc

SQL = "Puxa a conexao WHERE id=" & id
rs("pontos") = numero da atualizacao
rs.Update
rs.Close

Este tipo é mais facil de ser feita e da para fechar facilmente...rs

[fantasma]

Error Type:

ADODB.Recordset (0x800A0CB3)

Object or provider is not capable of performing requested operation.

/copa/alterar.asp, line 59

set rs = objdb.execute("select * from teste where id_jogo='"& id &"'")

a=Request.Form("resultado1")

b=Request.Form("resultado2")

do while not rs.Eof

if int(a)=int(rs("resultado1")) and int(=int(rs("resultado2")) then

SQL = "UPDATE teste SET WHERE id_jogo=" & id

'Campo que puxa o campo de pontos

rs("pontos") = 3

'Aqui atualiza

rs.Update

'Aqui fecha a conexao

rs.Close

end if

rs.movenext

loop

esta dando este erro

[fantasma]

alguém pode ajudar

[fantasma]

alguém pode dar uma luzzzzzzzzzzzzz

[.Andreia.]

id_jogo é texto no BD? não sei se o código é todo esse porque não achei o request do ID

[fantasma]

eu mudei alguma coisa no codigo e coloquei tudo em uma tabela

id_cod =texto

cod é este

set rs = objdb.execute("select * from teste where id_jogo='"& request.form("id") &"'")

do until rs.Eof

if rs("res_pl1")=rs("resultado1") and rs("res_pl2")=rs("resultado2") then

Executar = "UPDATE teste SET pontos = '3' where id_jogo='"& request.form("id") &"'"

objDB.Execute(Executar)

elseif rs("res_pl1")>rs("resultado1") and rs("res_pl2") >rs("resultado2") then

Executar = "UPDATE teste SET pontos = '1' where id_jogo='"& request.form("id") &"'"

objDB.Execute(Executar)

ELSEif int(rs("res_pl1"))<int(rs("res_pl2")) and int(rs("resultado1"))<int(rs("resultado2")) then

Executar = "UPDATE teste SET pontos = '1' where id_jogo='"& request.form("id") &"'"

objDB.Execute(Executar)

ELSEif int(rs("res_pl1"))=int(rs("res_pl2")) and int(rs("resultado1"))=int(rs("resultado2")) then

Executar = "UPDATE teste SET pontos = '1' where id_jogo='"& request.form("id") &"'"

objDB.Execute(Executar)

else

Executar5 = "UPDATE teste SET pontos = '0' where id_jogo='"& request.form("id") &"'"

objDB.Execute(Executar5)

end if

rs.movenext

loop

não esta fazendo a comparação exata, sempre cai no else

[marcos_804]

não meu caro você não deve fazer isso

SQL = "UPDATE teste SET WHERE id_jogo=" & id

mas sim isso:

SQL = "[b]SELECT * FROM[/b] teste WHERE id_jogo=" & id

sera que agora funciona?

rs? tenta ai....

[colerus]

só um detalhe... se "pontos" for do tipo numero, retire a " ' ".

assim:

"UPDATE teste SET pontos = 3 where id_jogo='"& id &"'"

e não assim:

"UPDATE teste SET pontos = '3' where id_jogo='"& id &"'"

[fantasma]

beleza ta atualizando, mas qunando eu tenho dois id de jogo ele insere os pontos nos dois registro,

e o caso é o seguinte

pode ter varios registros com o mesmo id assim o programa tem que verificar um a um.......

aguem ajuda

[fantasma]

Obrigado a todos acabei de resolver o problema