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

alguém pode dar uma luzzzzzzzzzzzzz

alguém pode ajudar

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

Não entendi vo pode explicar mehlor

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...........??????????

set rs_soma=objdb.execute("select sum(pontos),nome from teste GROUP BY nome") erro Error Type: ADODB.Recordset (0x800A0CC1) Item cannot be found in the collection corresponding to the requested name or ordinal. /copa/pontuacao.asp, line 112 linha que esta dando erro <% do while not rs_soma.eof%> <tr> <td height="26" width="531" bgcolor="#FFFFFF"> <div align="center"><font face="Verdana, Arial, sans-serif" size="2"><a href="ver_apostas.asp?email="><%=rs_soma("nome") %></a></font></div> </td> <td height="26" width="69" bgcolor="#FFFFFF"> <div align="center"><font face="Verdana, Arial, sans-serif" size="2"><%=rs_soma("pontos") %></font></div> </td> <tr> <% rs_soma.movenext %> <%loop %>

http://www.connectionstrings.com/

IP=Request.ServerVariables("REMOTE_ADDR") if IP="10.2.3.121" or IP="10.2.3.79" or then Response.Write "<script>history.back();alert('Você não tem permissão !!!')</script>" Else faça End If

posta o cod

Procedimento armazenado ou Stored Procedure é uma coleção de comandos em SQL para gerenciamento de Banco de dados. Encapsula tarefas repetitivas, aceita parâmetros de entrada e retorna um valor de status (para indicar aceitação ou falha na execução). O procedimento armazenado pode reduzir o tráfego na rede, melhorar a performance, criar mecanismos de segurança, etc. Exemplo: (MS-SQL Server) Create procedure busca @nomedebusca varchar (50) as select nome1, nome2 from nome_da_tabela where nome = @nomedebusca DISTINCTROW Omite os dados com base em registos duplicados completos e não apenas em campos duplicados. Por exemplo, pode criar uma consulta que associe as tabelas Clientes e Encomendas no campo CódigoDoCliente. A tabela Clientes não contém campos CódigoDoCliente mas a tabela Encomendas tem porque cada cliente pode ter muitas encomendas. A seguinte instrução SQL mostra a forma como pode utilizar DISTINCTROW para produzir uma lista de empresas que tenham, pelo menos, uma encomenda mas sem detalhes sobre essas encomendas: SELECT DISTINCTROW NomeDaEmpresa FROM clientes INNER JOIN encomendas ON clientes.CódigoDoCliente = encomendas.CódigoDoCliente ORDER BY NomeDaEmpresa; Se omitir DISTINCTROW, esta consulta produz várias linhas para cada empresa que tenha mais do que uma encomenda. DISTINCTROW tem efeito apenas quando selecciona campos de algumas, não todas, tabelas utilizadas na consulta. DISTINCTROW é ignorado se a consulta incluir apenas uma tabela ou se exportar campos de todas as tabelas obrigado por sua resp, mas não ajudou............... pode fecha o post

comparação de duas tabelas diferentes e quatro campos operador =

qual a linha que esta dando erro

Obrigado a todos

<% 'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br" 'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'porta do CDO objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'timeout objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon 'e-mail do remetente objCDOSYSMail.From = "eu@MeuDominio.com.br" 'e-mail do destinatário objCDOSYSMail.To = "destinatario@dominio.com.br" 'assunto da mensagem objCDOSYSMail.Subject = "Teste do CDOSYS" 'conteúdo da mensagem objCDOSYSMail.TextBody = "Teste do componente CDOSYS" 'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS" 'objCDOSYSMail.fields.update 'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write "E-mail enviado para destinatario@dominio.com.br ..." %>

muito legal, mas eu quero que so entra letra e não numeros

tenho uma caixa de texto e quero que tudo digitado nesta caixa seja apenas texto

qual é a linha 181

quer saber quantas paralavras normal tem no campo...?????????alquem pode me ajudar Set objRS = objDB.Execute("SELECT * FROM informativo where status<>'normal' ")

obrigado cara deu certo

quero fazer uma busca em dosi campos Set objRS = objDB.Execute("SELECT * FROM tabela WHERE campo2 LIKE '%" & Request.Form("busca") & "%'")

coloque o script DeAaZmostra.asp , para olhar o cod

você verificou se o componete esta rodando

objRS.Close con.Close Set objRS = Nothing Set con = Nothing

A onde da pau