Ir para conteúdo
Fórum Script Brasil

Marcos-rj

Membros
  • Total de itens

    638
  • Registro em

  • Última visita

Tudo que Marcos-rj postou

  1. eu já não havia colocado esta paginação p/ você funcionando?
  2. 2 juntas ou nenhuma também funciona.
  3. já vi da erro comigo quando quero pegar um campo numerico como texto, tipo da conflito...
  4. Pelo que eu saiba é da mesma forma! SELECT * FROM tabela WHERE horas between '"&hora1&"' and '"&hora2&"'
  5. Marcos-rj

    Leitor D Barras

    tenta assim: <script language="JavaScript" type="text/javascript"> function envia(){ document.form1.submit(); } </script> <INPUT TYPE="text" NAME="teste" onKeyUp="if(value.length==4)java script:envia();" maxlength="4"> Testei aqui e rodou legal!
  6. tenta assim: <script language="JavaScript" type="text/javascript"> function envia(){ document.form1.submit(); } </script> <INPUT TYPE="text" NAME="teste" onKeyUp="if(value.length==4)java script:envia();" maxlength="4"> Testei aqui e rodou legal!
  7. Marcos-rj

    Horas

    você já tentou executar o comando <%=Hour(Now)%> para ver o que retorna? Ele não retorna os minutos, por isso não funciona. No caso, agora são 14:01 aqui, ele me retorna 14.
  8. Marcos-rj

    Erro Com O Odbc

    a permissão para gravar está liberada? deve ser por isso!
  9. Como você não sabe nada de programação fica dificil! Qual versão do Dataform você usou, pois ele não é gratis, por isso você não deve ter conseguido usar. Qualquer coisa me passa seu email, tenho ele completo.
  10. Marcos-rj

    Leitor D Barras

    Tenta alguma coisa do tipo: onKeyUp="if(value.length==4)document.formulario.submit();"
  11. Pelo que vi, este Asprunner é igual ao Datafom, baixa o dataform2 que ele faz a mesma coisa que c fez com o runner, mas com opção de login com senha.
  12. Marcos-rj

    Http://www.brinkster.com

    Ele é bem antigo, já usei, há muito tempo. nunca tive problemas.
  13. valeu Kuroi, era isso mesmo, eu escrevi errado. conexo olha que revi o código p/ ver se tinha algo escrito errado e não vi isso. valeu T+
  14. Oi galera, já pesquisei, quebrei a cabeça mas não to conseguindo um UPDATE FUNCIONAR! Só dá este erro desgraçado: Set alt1 = conexo.execute("UPDATE categoria SET nome = '"&request.form("nome")&"' WHERE id = '"&request.form("idalt")&"' ") não é possivel, o cadastro e exclusão funcionam normal, menos o UPDATE que dá este erro! Num outro form com o mesmo código funcina normal!
  15. Um que eu já usei e que gostei é o MetaTraffic ele faz isso que você quer e +. www.metasun.com
  16. Putz, o avast é muito melhor que o AVG. hoje estou usando o Nod32, muito bom e leve!
  17. Essse é o problema, por isso tem os spam.
  18. São de usuarios sem registro no forum.
  19. case.asp <% ' Declarar variaveis Dim iChoice ' Ler a escolha do click do utilizador. ' Isto é igual a "" (uma string vazia) se não houve escolha iChoice = Request.QueryString("choice") ' Executa a acção apropriada baseada no valor da variavel que escolhemos. Select Case iChoice Case "1" %> <H3>Isto é o que acontece quando clica em Case 1</H3> <% Case "2" %> <H3>Isto é o que acontece quando clica em Case 2</H3> <% Case "3" %> <H3>Surpresa, Isto é o que acontece quando clica em Case 3</H3> <% Case Else ' Isto é o que é executado se nenhuma situação for encontrada End Select %> Clica num case diferente :<BR> <A HREF="case.asp?choice=1">Case 1</A>&nbsp; <A HREF="case.asp?choice=2">Case 2</A>&nbsp; <A HREF="case.asp?choice=3">Case 3</A>
  20. Function Valida_TE(NumTE As String) As Boolean '------------------------------------------------------------------------------------------------------ 'Esta função valida o Título de Eleitor, através do dígito verificador 'Autor: José Maria Macedo do Vale (www.guiadoeleitor.com.br) 'Baseada no artigo 12 da Resolução TSE nº 21538/2003 '------------------------------------------------------------------------------------------------------ Dim soma, resto, i, digito1, digito2 As Integer If Len(NumTE) < 12 Then NumTE = String(12 - Len(NumTE), "0") + NumTE If Len(NumTE) > 12 Then Valida_TE = False: Exit Function 'valida a unidade da federação do TE If Val(Mid(NumTE, 9, 2)) < 1 Or Val(Mid(NumTE, 9, 2)) > 28 Then Valida_TE = False: Exit Function 'valida o primeiro dígito soma = 0 For i = 1 To 8 soma = soma + Val(Mid$(NumTE, i, 1)) * (10 - i) Next i resto = soma Mod 11 If resto = 0 Then If Mid(NumTE, 9, 2) = "01" Or Mid(NumTE, 9, 2) = "02" Then digito1 = 1 Else digito1 = 0 Else If resto = 1 Then digito1 = 0 Else digito1 = 11 - resto End If If digito1 <> Val(Mid$(NumTE, 11, 1)) Then Valida_TE = False: Exit Function 'valida o segundo dígito soma = 0 For i = 9 To 10 soma = soma + Val(Mid$(NumTE, i, 1)) * (13 - i) Next i soma = soma + digito1 * 2 resto = soma Mod 11 If resto = 0 Then If Mid(NumTE, 9, 2) = "01" Or Mid(NumTE, 9, 2) = "02" Then digito2 = 1 Else digito2 = 0 Else If resto = 1 Then digito2 = 0 Else digito2 = 11 - resto End If If digito2 <> Val(Mid$(NumTE, 12, 1)) Then Valida_TE = False: Exit Function Valida_TE = True End Function
  21. Marcos-rj

    Select Tadando Erro

    Daki a pouco você vai ver que não é tão complicado assim!
  22. Marcos-rj

    Select Tadando Erro

    Heehehe, ele havia me passado por e-mail as paginas e o banco de dados no outro post.
  23. Marcos-rj

    Select Tadando Erro

    Sim há um erro! No Select você está mandando ordenar pelo campo ID, mas na sua tabela não tem este campo. mande ordenar pelo codigo. buscar = "SELECT * FROM cadastro order by codigo DESC"
×
×
  • Criar Novo...