Ir para conteúdo
Fórum Script Brasil

®HEX®

Membros
  • Total de itens

    57
  • Registro em

  • Última visita

Posts postados por ®HEX®

  1. Obrigado ADL Ajudou sim e bastante... :D

    fiz assim...

    SQLt="select Voto from Voto where CodPerg="&codp&""

    set Rst=conn.Execute(SQLt)

    Total=0

    Dim Vetor(3)

    i = 0

    while not Rst.EOF

    Total=Total+Rst("Voto")

    Vetor(i)=Rst("Voto")

    i = i + 1

    Rst.MoveNext

    wend

    'Depois foi so armazenar nas variaveis

    Valor1=Vetor(0)

    Valor2=Vetor(1)

    Valor3=Vetor(2)

    Resolveu meu problema... obrigado... :D

  2. Boa Noite Pessoal to com um problema q é o seguinte:

    Esse codigo busca as informações no banco de acordo com o "codp",

    depois no while ele soma os valores da tabela Voto

    gostaria de saber como pegar cada valor da tebela voto individualmente...

    sei que é atraves de um vetor mas não tenho ideia de como criar esse vetor...

    se alguém puder me dar uma luz fico grato...

    SQLt="select Voto from Voto where CodPerg="&codp&""
    set Rst=conn.Execute(SQLt)
    Total=0
    
        while not Rst.EOF
        Total=Total+Rst("Voto")
        Rst.MoveNext
        Wend

    desde já agradeço :D

  3. Ola Galera tudo beleza,

    Tenho que desenvolver um site com uma função que mostra ao usuario a que velocidade de conexao ele esta acessando, seria algo tipo nesse site, q você inicia o processo e ele te dar a velocidade...

    Sera q alguém tem alguma ideia de como posso fazer isso? sad.gif

    Ok galera e isso aew desde já agradeço biggrin.gif

  4. a variavel ip q voce esta pegando e numerico?

    se for faça assim:

    Set rs = conn.execute("Select * From cadastro where perlog=lembrarme AND ip=" & ip & " ")

    * sem aspas simples...

    testa ae... beleza

  5. Ola galera a duvida e o seguinte preciso inserir registros em um .mdb

    mas esses registros estao em um xml

    como faço isso em asp...

    inserir registros de um xml no access ultilizando asp

    e isso ai pessoal, desde já agradeço... wink.gif

  6. ola galera beleza...

    E o seguinte quero contar caracters em uma frase mas por letra...

    eu sei que .length ele conta todas as letras mas eu quero determinar apenas uma letra a ser contado.

    exemplo:

    quero so o "S"

    ScriptBrasil Fórum = 2 Caracters "s"

    pra voces isso deve ser bobagem mas pra mim ta osso...

    mas é so isso mesmo...

    valeu pessoal... biggrin.gif

  7. Ola amigo num precisa alterar o nome do campo so o valor...

    faz assim:

    <form action="pagina.asp">
    <%while not Rs.EOF%>
    <input type="checkbox" name="box" value="<%=Rs("ID")%>">
    <%Rs.MoveNext
    wend%>
    </form>
    
    pagina.asp
    FOR nI = 1 to request("box").count
      SQL="delete * from news where ID_news="&request("box")(nI)&""
    set Rs=conn.Execute(SQL)
    

    tenta ai e vê se é isso mesmo... wink.gif

  8. <!--

    Escrito por Edson Marco Ferrari Junior

    edmafer@itasoa.com.br

    http://www.itasoa.com.br

    05 de fevereiro de 2004

    Este é um código em JavaScript que ira fazer a contagem e a mostrará em tempo real no browser para o usuário quantos caracteres restam para ele digitar antes do limite, e não deixará que o usuário digite mais caracteres além do especificado. É um código interessante para quem tem um campo textarea no seu form e quer limitar a quantidade de caracteres.

    -->
    <html>
    <head>
    <title> Contagem de caracteres - 05/02/2004 - Edson Marco Ferrari Junior - www.itasoa.com.br </title>
    <head>
    <body onLoad= "document.formulario.comentario.focus()">
    <!--
    O onLoad ai é só para o cursor já estar no campo textarea quando o browser terminar de carrgar a página. O que deve ser alterado ai no caso é:
    
    » formulario = ao nome do form
    » comentario = nome do textarea
    -->
    <form method="post" action="" name="formulario">
    <table width="100%">
    	<tr>
      <td align="center">
      	<textarea rows= "5" cols= "40" name="comentario" onkeyup="textCounter(this.form.comentario,this.form.charRestantes,202);" onkeydown="textCounter(this.form.comentario,this.form.charRestantes,202);">
      	</textarea>
      </td>
    	</tr>
    	<!-- 
    	Vamos as explicações: como já havia dito antes, comentario é o nome do campo textarea e formulario é o nome do form. textCounter é o nome da função que veremos mais abaixo. Note que eu coloquei form e não o nome do formulário e logo após ele o nome do textarea, e charRestantes será o nome do campo text que irá exibir quantos caracteres o usuário ainda pode inserir, e 203 foi o limite estipulado por mim.
    	-->
    	<tr>
      <td align="center">
      	Você ainda pode digitar: <!-- Só um texto para agradar -->
      	<input type="text" name="charRestantes" value="200" size="3" maxlength="3">
      	caracteres
      	<!-- 
      	Campo que exibirá em tempo real quantos caracteres restam, não sei se você reparou, mas existe uma diferença entre o limite estipulado, e o exibido neste campo. Isto acontece por que, eu não sei, só sei que no primeiro caracter ele come 3, por ist a diferença.
      	-->
    
      	<script language="JavaScript"> //Lembre-se que este JavaScript deve estar bem abaixo dos campos
      	<!--
    
        function textCounter(campo, countcampo, maxlimit){ //Esta função que irá contar, mostrar e restringir o tamanho do campo
            if (campo.value.length > maxlimit) { //se passar do limite não deixará entrar o caracter
          campo.value = campo.value.substring(0, maxlimit);
        	}
        	else { //aqui, enquanto não se chegar ao limite, a cada caracter inserido ele reduzira -1 da contagem
                countcampo.value = maxlimit - campo.value.length;
        	}
        }
        
      	//-->
      	</script>
    
      </td>
    	</tr>
    	<tr>
      <td align="center">
      	<input type="button" value="Enviar comentário">	<!-- Só para enfeitar, não serve para nada -->
      </td>
    	</tr>
    </table>
    </body>
    </html>

  9. crie um campo na sua tabela em que você colocou o usuario e a senha la no BD, com o nome de "nivel" e coloque numeros para controla-los

    ex:

    usuario  senha nivel

    Fulano    123      1

    Bertano  321      2

    ai é so você fazer uma rotina... tipo

    <%
    If nivel='1' Then
    response.redirect "user1.asp" 
    Else
    response.redirect "user2.asp"
    End If
    %>
    

    para identificar se os usuario e senhas estao corretos e so fazer o que o Felipe postou...

    mas a ideia é essa... qualquer duvida posta ai

    para nos podermos esclarecer melhor... wink.gif

  10. >>>VALEU Galera!!! biggrin.gif

    o problema aqui e o que o mbLeonardo Postou...

    eu não havia copiado o arquivo php4ts.dll para C:/windows/system32 mas mas isso já foi corrigido e ta tudo funcionando perfeito!!!

    Brigadão pela força galera...

    Um abraço!!! wink.gif

  11. já desinstalei e reinstalei e reiniciei, e nada ta dando o mesmo erro:

    to ultilizando:

    >>php-4.3.10-Win32

    >>Win Xp Pro

    >>iis 5.0

    1-copio a pasta do php-4.3.10-Win32 para C:

    2-renomeio ela para php

    3-copiei o arquivo php.ini-dist para C:\Windows e renomeie para php.ini

    4-mudei o arquivo php.ini extension_dir = "C:\php\extensions\"

    5-configurei o iis

    e nada... perdi meu domingo inteiro tentado configurar isso da uma força ai galera isso já aconteceu com algum de vocês...

    isso ta me matando...

    valeu...

  12. Ola pessoal to tendo problema em instalar o php no meu pc:

    Win XP Pro

    iis 5.0

    toda vez que tento rodar uma pagina.php da essa mensagem

    Não foi possível encontrar o módulo especificado.

    e não exibe mais nada o que eu tenho que fazer para corrigir isso...

    desde já obrigado...

  13. Saudaçoes Galera...

    O negocio e o seguinte criei um rotina para verificar se existe arquivos .jpg na pasta do servidos... utilizando FSO ate ai beleza...

    Set arq = Server.CreateObject("Scripting.FileSystemObject")
    arquivo = "C:\Inetpub\wwwroot\site\fotos\"&MyRs("foto")
    
    <img src="fotos/<%if arq.FileExists(arquivo) = true Then%><%=MyRs("foto")%>
    	<%else%>
    	<%?????%>'problema ta aqui como faço...
    	<%end if%>"width="167" height="125" border="1">
    

    O problema e o seguinte queria que quando o arquivo não existisse ele pulasse para a proxima foto da pasta... huh.gif

    Desde já agradeço...

  14. Saudaçoes galera...

    tenho uma duvida boba... huh.gif

    Mas e o seguinte como faço para comentar varias linhas de codigo em asp:

    exemplo:

    1 linha

    ' SQL="select * from tabela"

    e como faço para comentar varias linhas de codigo sem ter de ficar colocando aspas simples em uma por uma...

    e só isso galera valeu...

  15. Caro amigo Ursolouco obrigado pela ajuda,

    apos horas tentando adaptar as informações que você me passou para o que eu precisava em fim consegui... ufa!!!

    se alguém um dia tiver a mesmo problema tai...

    set conn=Server.CreateObject("ADODB.Connection")
    conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("BD.mdb")
    conn.cursorlocation=3
    
    SQL="select Top 9 * from Tabela where foto <>' '"
    set Rs=conn.Execute(MySQL)
    
    Total = Rs.RecordCount
    Randomize Timer
        intRnd = Int((Total * Rnd)+0)
        Rs.MoveFirst
        Rs.Move intRnd
    

    Um abraço...

×
×
  • Criar Novo...