Ir para conteúdo
Fórum Script Brasil

renatacm

Membros
  • Total de itens

    126
  • Registro em

  • Última visita

Posts postados por renatacm

  1. Galerinha, venho eu novamente "sugar" o conhecimento de vocês...

    Tenho a seguinte situação:

    Numa table do .mdb (access) tenho um campo (ole) que armazena um arquivo PDF...

    Consigo abrir diretamente ou vou precisar de algum componente especial pra isso?

    Bjocas...

    ;oÞ

  2. Ou, poderia ficar assim:

    <%
    'Cria a conecxao com o banco de dados 
    Set Conectar = Server.CreateObject("ADODB.Connection")
    Conectar.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("enquetes.mdb")
    
    'Determina o sql a ser usado na colsulta
    strSQL = "select * from Sistemas"
    Set RS = Conectar.Execute(strSQL) 
    
    'Soma os valores de cada sistema
    Total = RS("votos1") + RS("votos2") + RS("votos3")
    
    'Variaveis de porcentagem 
    Dim v1, v2, v3
    'Determina a porcentagem de cada sistema, multiplica a quantd de votos por 100 e divide pelo total de votos
    v1 = RS("votos1") * 100 / Total
    v2 = RS("votos2") * 100 / Total
    v3 = RS("votos3") * 100 / Total
    'Soma dos percentuais para resultar na base 100%
    v4 = v1+v2+v3
    
    'Determina a largura da barra de windows
    L_win = 400 * v1 / 100
    
    'Determina a largura da barra de linux
    L_lin = 400 * v2 / 100
    
    'Determina a largura da barra para outros sistemas
    L_out = 400 * v3 / 100
    
    %>
    

    []'s

    ;oÞ

  3. Pode usar qualquer CD do XP Pro, mesmo de versão anterior q vai funcionar na boa...

    Precisei fazer isso com um micro meu e funcionou normal...

    ;oÞ

  4. Oi, pessoal...

    Eu gostaria de possibilitar ao usuário da minha page que me adicionasse no MSN automaticamente...

    Dei uma olhada no código fonte aki do scriptbr e encontrei o link

    <a href="javascript:MsgrApp.LaunchAddContactUI('nick@hotmail.com');">Adicione este membro a sua lista do MSN</a>

    Mas não encontrei a função MsgrApp.LaunchAddContactUI na página...

    Alguém sabe me dizer onde posso encontrar a função completa?

    []'s

    ;oÞ

  5. Delphi... o pessoal que trabalha comigo precisou desenvolver uma aplicação que usava 240 e poucas Conn num único bd...

    Rodava normal, sem lentidão...

    Precisaram mudar apenas o tipo de hospedagem pra serv. semi-dedicado...

    PS: Mas não sei se era Access... dry.gif

    []'s

    ;oÞ

  6. Tenta fazer o seguinte (fiz uma vez e deu certo):

    y = tamanho máximo q a barra pode ter

    z = percentual para a barra

    x = y vezes z / 100

    por exemplo:

    tamanho máximo da barra será 400pixels e você tem 26% para o item OUTROS, então:

    x = 400 x 26 / 100

    x = 104

    defina a largura da imagem da barra como <%=x%> e a barra terá 104pixels de tamanho, que representa 26% do total.

    Entendeu?

    qualquer coisa, posta o código pra gente ver...

    Bjocas...

    ;oÞ

  7. Pessoal, esses dias criei um tópico sobre FSO e vocês me ajudaram a resolver...

    No final deste tópico eu postei que quando executava uma determina aplicação no localhost essa aplicação entrava em loop...

    Precisei trabalhar com FSO em outra aplicação e agora esta também entra em loop quando executada em localhost...

    Matando a charada: quando preciso rodar FSO, meu IIS não responde.

    Quando faço upload pro servidor de Internet: funciona normalmente!!!!

    Pergunta:

    Preciso instalar algum "componente" no meu IIS para fazer as aplicações com FSO rodarem normalmente????

    Bjocas...

    ;oÞ

  8. Na boa, não sei o q pode ser, pois isso só acontece quando rodo os scripts de uma única aplicação...

    Todas as outras q rodo no localhost estão executando normalmente...

    Bom, deixa pra lá...

    O importante é q a questão sobre FSO já foi resolvida com o auxílio de vocês.

    Muito obrigada, pessoal.

    Pode fechar o tópico.

    Bjocas...

    ;oÞ

  9. Bom dia, pessoal!!!

    Novamente venho recorrer ao conhecimento de vocês...

    Tenho a seguinte situação:

    O usuário entrou no sistema informando corretamente seus dados de acesso e senha.

    Dentro do sistema estou disponibilizando a opção de alteração dos dados cadastrais e da senha.

      SQLUSer1 = "SELECT * FROM user WHERE condcod='"&SESSION("parte1")&"' AND prediocod='"&SESSION("parte2")&"' AND unidadecod='"&SESSION("parte3")&"'"
    	SET RSUser1 = Server.CreateObject("ADODB.Recordset")
    	SET RSUser1 = Conexao.EXECUTE(SQLUSer1)  	
        	
    	IF RSUser1.EOF THEN
      Response.Write "<script>alert('O Usuário não cadastrado. Certifique-se de ter informado corretamente os códigos.');javascript:history.back(-1);</script>"    	
    	ELSE
      SQLUSer2 = "UPDATE user SET tppessoa='"&request.form("tipofj")&"', usercpf='"&request.form("docusu")&"', usercnpj='"&request.form("docusu")&"', usernome='"&request.form("nomeusu")&"', useremail='"&request.form("emailusu")&"', userpass='"&request.form("senhausu")&"' WHERE condcod='"&SESSION("condcod_adm")&"' AND prediocod='"&SESSION("prediocod_adm")&"' AND unidadecod='"&SESSION("unidadecod_adm")&"'"
      Set RSUser2 = Server.CreateObject("ADODB.Recordset")
      Set RSUser2 = Conexao.EXECUTE(SQLUSer2)
      Response.Write "<script>alert('Alteração concluída com sucesso.');javascript:history.back(-1);</script>"    	
    	END IF
    	RSUser1.Close
    	Set RSUser1 = Nothing
    
    

    Não dá mensagem de erro, mostra o alert 'Alteração concluída com sucesso' mas simplesmente não atualiza o banco!!!

    O que pode ser?

    Bjocas...

    ;oÞ

  10. Tenho a seguinte situação:

    O usuário entrou numa área restrita e optou por excluir um registro.

    quando ele clica em "OK" eu gostaria de dar uma mensagem (alert) com a seguinte instrução:

    Este procedimento excluirá permanentemente o registro do banco de dados.

    Tem certeza que deseja excluir o registro? [sIM] [NÃO]

    Se o usuário clicar no botão [sIM], prossigo com a exlusão se ele clicar no botão [NÃO] saio da rotina de exclusão e voltou para a página anterior.

    Dá pra fazer isso?

    ;oÞ

×
×
  • Criar Novo...