Ir para conteúdo
Fórum Script Brasil
  • 0

Bolão


fantasma

Pergunta

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(cool.gif=int(rs("resultado2")) then

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

objDB.Execute(Executar1)

elseif int(a)>int(cool.gif 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(cool.gif 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(cool.gif 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...........??????????

Link para o comentário
Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

  • 0

>> 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!

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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(cool.gif=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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...