Ir para conteúdo
Fórum Script Brasil

Martinsrj

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    291

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Martinsrj

  2. (Resolvido) Resgatando campos criados dinamicamente...

    em PHP

    Postado

    Olá pessoal, boa noite!

    Possuo um formulário onde os três ultimos campos (Tipo Despesa, Descrição, Valor) poderão ser criados dinamicamente pelo usuario através do javascript.

    Segue o link do formulário: http://martinsrj.com/teste/index1.php

    A pergunta é, como que eu irei resgatar esses valores dinamicamente e colocar em um insert do SQL.

    Aqui eu resgato:

    $optTpDesp = $_POST["optTpDesp"];
$txtDesc = $_POST["txtDesc"];
$txtValor = $_POST["txtValor"];
    Aqui a minha query: 
    $sql = "INSERT INTO tabelaExemplo VALUES(NULL,'".$optTpDesp."','".$txtDesc."','".txtValor."')";

  3. Validação Mobile - Meu código com vários erros

    em HTML, XHTML, CSS

    Postado

    Olá pessoal, boa tarde!

    Venho aqui solicita ajuda na validação do meu código para mobile.

    Segue o código:

    <!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />  
<title>Atualização de Chamado</title>

<style type="text/css">
label {
    font-family:Verdana, Arial, Helvetica, sans-serif;
    font-size:11px;
    color:#000000;
}

input:focus, select:focus, textarea:focus {
    background:#DFDFFF;
    color:white; 
}

body { 
    margin:0; 
    padding:0; 
    background:#FFFFFF;  
} 

table.tabela {   
    /*width:200;
    text-align: center;   
    margin: 0 auto; */
}
</style>

<script type="text/javascript">
function addRowToTable()
{
  var tbl = document.getElementById('AtChamado');
  var lastRow = tbl.rows.length -1;
  var iteration = lastRow;
  var row = tbl.insertRow(lastRow);
  
  var cellRightSel = row.insertCell(0);
  var textTpDespesa = document.createTextNode("Tipo Despesa");
  var fontTpDespesa = document.createElement("label");
  var quebraTpDespesa = document.createElement('BR');
  var sel = document.createElement('select');
  var quebra = document.createElement('BR');
  sel.name = 'selRow' + iteration;
  sel.options[0] = new Option('... Selecione ...', '... Selecione ...');
  sel.options[1] = new Option('Kilometragem', 'Kilometragem');
  sel.options[2] = new Option('Taxi', 'Taxi');
  sel.options[3] = new Option('Onibus', 'Ônibus');
  sel.options[4] = new Option('Refeicao', 'Refeição');
  sel.options[5] = new Option('Outros', 'Outros');

  fontTpDespesa.appendChild(textTpDespesa); 
  cellRightSel.appendChild(fontTpDespesa); 
  cellRightSel.appendChild(quebraTpDespesa);
  
  cellRightSel.appendChild(sel);
  cellRightSel.appendChild(quebra);
  
  var textDesc = document.createTextNode("Descrição");
  var fontDesc = document.createElement("label");
  
  var quebraDesc = document.createElement('BR');
  var el = document.createElement('input');
  var quebra = document.createElement('BR');
  el.type = 'text';
  el.name = 'txtDescD' + iteration;
  el.id = 'txtDescD' + iteration;
  el.size = 10;
  
  el.onkeypress = keyPressTest;

  fontDesc.appendChild(textDesc); 
  cellRightSel.appendChild(fontDesc); 
  cellRightSel.appendChild(quebraDesc);
  cellRightSel.appendChild(el);
  cellRightSel.appendChild(quebra);

  var textValor = document.createTextNode("Valor");
  var fontValor = document.createElement("label");
  var quebraValor = document.createElement('BR');    
  var el = document.createElement('input');
  el.type = 'text';
  el.name = 'txtValorD' + iteration;
  el.id = 'txtValorD' + iteration;
  el.size = 10;  
  
  el.onkeypress = keyPressTest;

  fontValor.appendChild(textValor); 
  cellRightSel.appendChild(fontValor); 
  
  cellRightSel.appendChild(quebraValor);
  cellRightSel.appendChild(el);
   
}

function keyPressTest(e, obj)
{
  var validateChkb = document.getElementById('chkValidateOnKeyPress');
  if (validateChkb.checked) {
    var displayObj = document.getElementById('spanOutput');
    var key;
    if(window.event) {
      key = window.event.keyCode; 
    }
    else if(e.which) {
      key = e.which;
    }
    var objId;
    if (obj != null) {
      objId = obj.id;
    } else {
      objId = this.id;
    }
    displayObj.innerHTML = objId + ' : ' + String.fromCharCode(key);
  }
}
function removeRowFromTable()
{
  var tbl = document.getElementById('AtChamado');
  var lastRow = tbl.rows.length -1;
  if (lastRow > 13) tbl.deleteRow(lastRow - 1);
  
}

function verificaHP(obj) {  
    if (!document.layers) {  
    var txt = document.getElementById("somenteHP");  
        if (obj.value == "f_hp@ntl.com.br") {  
            txt.style.display = "inline";  
            txt.name = "optTipoChamado";  
            obj.name = "";  
        } 
        else {  
            txt.style.display = "none";  
            txt.name = "";  
            obj.name = "optTipoChamado";  
        }  
    } 
}        

</script>


</head>
<body>

<form action="formNtl.html" method="get">
<table class="tabela" id="AtChamado" align="left">
  <tr>
    <td>
    <label class="label" for="optTipoChamado">Tipo do Chamado:</label><br />
    <select name="optTipoChamado" id="optTipoChamado" onchange="verificaHP(this)">
        <option value="">... Selecione ...</option>
        <option value="f_hp@ntl.com.br">HP</option>
        <option value="f_altiris@ntl.com.br">NTL</option>
    </select>    </td>
  </tr>
  <tr>
    <td>
    <label for="txtChamadoAltiris" class="label">Chamado Altiris:</label><br />
        <input class="input" type="text" title="" maxlength="" size="" name="txtChamadoAltiris" id="txtChamadoAltiris" value="" />    </td>
  </tr>
  <tr>
    <td>
    <label for="txtChamadoHP" class="label">Chamado HP:</label><br />
        <input class="input" type="text" title="" maxlength="" size="" name="txtChamadoHP" id="txtChamadoHP" value="" />    </td>
  </tr>
  <tr>
    <td>
    <label for="txtDescServico" class="label">Descrição do Serviço:</label><br />
    <textarea title="" name="txtDescServico" id="txtDescServico" rows="5" cols="25" class="input"></textarea>    </td>
  </tr>
  <tr id="somenteHP" style="display:none;">  
    <td>
    <label for="txtPNRemovido" class="label">PN Removido:</label><br />
    <input class="input" type="text" title="" maxlength="" size="" name="txtPNRemovido" id="txtPNRemovido" value="" />    
    <br />
    <label for="txtNSRemovido" class="label">N/S Removido</label><br />
        <input class="input" type="text" title="" maxlength="" size="" name="txtNSRemovido" id="txtNSRemovido" value="" />
    <br />
    <label for="txtPNInstalado" class="label">PN Instalado:</label><br />
        <input class="input" type="text" title="" maxlength="" size="" name="txtPNInstalado" id="txtPNInstalado" value="" />
    <br />
    <label for="txtNSInstalado" class="label">N/S Instalado</label><br />
        <input class="input" type="text" title="" maxlength="" size="" name="txtNSInstalado" id="txtNSInstalado" value="" />
    
    </td>
  </tr>
  <tr>
    <td>
    <label for="txtQAssRS" class="label">Quem assinou o RS</label><br />
        <input class="input" type="text" title="" maxlength="" size="" name="txtQAssRS" id="txtQAssRS" value="" />    </td>
  </tr>
  <tr>
    <td>
    <label for="txtRS" class="label">RS</label><br />
        <input class="input" type="text" title="" maxlength="" size="" name="txtRS" id="txtRS" value="" />    </td>
  </tr>
  <tr>
    <td>
    <label for="txtDtInicio" class="label">Data Inicio</label><br />
    <input class="input" type="text" title="" maxlength="" size="" name="txtDtInicio" id="txtDtInicio" value="" />    </td>
  </tr>
  <tr>
    <td>
    <label for="txtHrInicio" class="label">Hora Inicio</label><br />
    <input class="input" type="text" title="" maxlength="" size="" name="txtHrInicio" id="txtHrInicio" value="" />    </td>
  </tr>
  <tr>
    <td>
    <label for="txtDtTermino" class="label">Data Término</label><br />
    <input class="input" type="text" title="" maxlength="" size="" name="txtDtTermino" id="txtDtTermino" value="" />    </td>
  </tr>
  <tr>
    <td>
    <label for="txtDtTermino" class="label">Hora Término<br /></label>
    <input class="input" type="text" title="" maxlength="" size="" name="txtDtTermino" value="" />    </td>
  </tr>
  <tr>
    <td>
    <label class="label" id="txtReembolso"><b>Reembolso</b></label>    </td>
  </tr>
  <tr>
    <td>
        <label for="optTpDesp" class="label">Tipo Despesa </label>
    <br />
    <select name="optTpDesp" id="optTpDesp">
        <option value="">... Selecione ...</option>
        <option value="Kilometragem">Kilometragem</option>
        <option value="Taxi">Taxi</option>
        <option value="Onibus">Ônibus</option>
        <option value="Refeicao">Refeição</option>
        <option value="Outros">Outros</option>
     </select><br />
     
     <label for="txtDesc" class="label" onKeyPress="keyPressTest(event, this);">Descrição</label><br />
    <input class="input" type="text" title="" maxlength="" size="10" onKeyPress="keyPressTest(event, this);" name="txtDesc" id="txtDesc" value="" /><br />
    
    <label for="txtValor" class="label" onKeyPress="keyPressTest(event, this);">Valor</label><br />
    <input class="input" type="text" title="" maxlength="" size="10" onKeyPress="keyPressTest(event, this);" name="txtValor" id="txtValor" value="" />
        
    </td>
  </tr>
  
  <tr>
    <td align="left">
    <input type="button" value="Inserir" onclick="addRowToTable();" />
    <input type="button" value="Remover" onclick="removeRowFromTable();" /><br />
    <input name="Enviar" type="submit" id="Enviar" value="Enviar" />    
    </td>
  </tr>
</table>

</form>


</body>
</html>

  4. Imprimir inputs após selecionar opção da combo

    em Ajax, JavaScript, XML, DOM

    Postado · Editado por Martinsrj

    Olá pessoal, bom dia!

    No post anterior informei duas dúvidas. A primeira conforme o texto que está dentro dos parenteses em parte foi resolvido

    ( 1° Preciso criar no final da pagina um link onde o usuario ao clicar crie as linhas abaixo.

    Existe caso que apenas com esses campos irá suprir a necessidade do usuario, porem depedendo do caso irá necessida na pagina de mais campo como esse. Por isso que pensei num link e criando dinamicamente os campos abaixo. )

    Veja neste link como ficou: http://martinsrj.com/teste/index1.php

    A minha segunda dúvida ainda não consegui fazer. No inicio do formulario poussuo uma combo com dois itens HP e NTL. Necessito que os campos abaixo não apareçam quando a pagina for carregada, mas apareça apenas quando o usuario selecionar a opção HP.

    Os itens (labels) são esses: PN Removido, N/S Removido, PN Instalado, N/S Instalado e consequetemente mais os inputs.

    Abraços.

    Acabei de atualizar o código, segue o link:

    Postado no site do pastebin: http://pastebin.com/ZnWucemv

  5. Imprimir inputs após selecionar opção da combo

    em Ajax, JavaScript, XML, DOM

    Postado

    Olá pessoal, bom dia!

    Estou com duas dificuldade em javascript.

    Primeira-

    1° Preciso criar no final da pagina um link onde o usuario ao clicar crie as linhas abaixo.

    Existe caso que apenas com esses campos irá suprir a necessidade do usuario, porem depedendo do caso irá necessida na pagina de mais campo como esse. Por isso que pensei num link e criando dinamicamente os campos abaixo.

    <tr>
    <td>
      <label for="optTpDesp" class="label">Tipo de despesas</label><br />
      <select name="optTpDesp" id="optTpDesp">
        <option>... Selecione ...</option>
        <option value="Kilometragem">Kilometragem</option>
        <option value="Taxi">Taxi</option>
        <option value="Onibus">&Ocirc;nibus</option>
        <option value="Refeicao">Refei&ccedil;&atilde;o</option>
        <option value="Outros">Outros</option>
     </select> 
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtDesc" class="label">Descrição</label><br />
      <input class="input" type="text" title="" maxlength="" size="" name="txtDesc" id="txtDesc" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtValor" class="label">Valor</label><br />
      <input class="input" type="text" title="" maxlength="" size="" name="txtValor" id="txtValor" value="" />
      </td>
  </tr>
  <tr>
    Segunda 2° Quando o usuario selecionar a opção HP da combo (optTipoChamado) imprima tb na tabela as linha abaixo: 
    <tr>
    <td>
      <label for="txtPNRemovido" class="label">PN Removido:</label><br />
      <input class="input" type="text" title="" maxlength="" size="" name="txtPNRemovido" id="txtPNRemovido" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtNSRemovido" class="label">N/S Removido</label><br />
            <input class="input" type="text" title="" maxlength="" size="" name="txtNSRemovido" id="txtNSRemovido" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtPNInstalado" class="label">PN Instalado:</label><br />
            <input class="input" type="text" title="" maxlength="" size="" name="txtPNInstalado" id="txtPNInstalado" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtNSInstalado" class="label">N/S Instalado</label><br />
            <input class="input" type="text" title="" maxlength="" size="" name="txtNSInstalado" id="txtNSInstalado" value="" />
      </td>
  </tr>
    No momento como não estou conseguindo fazer esse script em javascript imprime tudo na tabela, seja ele HP ou NTL Abaixo segue o meu código completo. OBS.: Cheguei a criar uma função para pegar o nome do texto que o usuario selecionou. 
    <!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Atualização de Chamado</title>

<style type="text/css">
.label {
      font-family:Verdana, Arial, Helvetica, sans-serif;
      font-size:11px;
}

input:focus, select:focus, textarea:focus {
      background:#DFDFFF;
      color:white; 
  }

body { 
      margin:0; 
      padding:0; 
      background:#E8E8E8;  
} 
#tudo { 
      width: 760px; 
      margin:0 auto;           
      padding: 10px; 
      text-align:left; /* "remédio" para o hack do IE */   
      background:#FFFFFF;
          
} 
/*#conteudo { 
      padding: 5px; 
      background-color: #FFFFFF;
}*/

table.tabela {   
      width:200;
      text-align: center;   
      margin: 0 auto;
}
</style>

<script type="text/javascript">
function textoCombo(){
      var indice = document.frmPrimeiro.optTipoChamado.selectedIndex
      var textoEscolhido = document.frmPrimeiro.optTipoChamado.options[indice].text
      alert(textoEscolhido)
}
</script>


</head>
<body>
<div id="tudo">
<!--<div id="conteudo">-->
<form id="frmPrimeiro" name="frmPrimeiro" method="post" action="">

<table class="tabela">
  <tr>
    <td>
      <label class="label" for="optTipoChamado">Tipo do Chamado:</label><br />
      <select title="Por favor, selecione o tipo do chamado" name="optTipoChamado" id="optTipoChamado">
            <option value="">... Selecione ...</option>
            <option value="f_hp@ntl.com.br">HP</option>
            <option value="f_altiris@ntl.com.br">NTL</option>
      </select>
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtChamadoAltiris" class="label">Chamado Altiris:</label><br />
            <input class="input" type="text" title="" maxlength="" size="" name="txtChamadoAltiris" id="txtChamadoAltiris" value="" />            
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtChamadoHP" class="label">Chamado HP:</label><br />
            <input class="input" type="text" title="" maxlength="" size="" name="txtChamadoHP" id="txtChamadoHP" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtDescServico" class="label">Descrição do Serviço:</label><br />
      <textarea title="" name="txtDescServico" id="txtDescServico" rows="5" cols="25" class="input"></textarea>

      </td>
  </tr>
  <tr>
    <td>
      <label for="txtPNRemovido" class="label">PN Removido:</label><br />
      <input class="input" type="text" title="" maxlength="" size="" name="txtPNRemovido" id="txtPNRemovido" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtNSRemovido" class="label">N/S Removido</label><br />
            <input class="input" type="text" title="" maxlength="" size="" name="txtNSRemovido" id="txtNSRemovido" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtPNInstalado" class="label">PN Instalado:</label><br />
            <input class="input" type="text" title="" maxlength="" size="" name="txtPNInstalado" id="txtPNInstalado" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtNSInstalado" class="label">N/S Instalado</label><br />
            <input class="input" type="text" title="" maxlength="" size="" name="txtNSInstalado" id="txtNSInstalado" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtQAssRS" class="label">Quem assinou o RS</label><br />
            <input class="input" type="text" title="" maxlength="" size="" name="txtQAssRS" id="txtQAssRS" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtRS" class="label">RS</label><br />
            <input class="input" type="text" title="" maxlength="" size="" name="txtRS" id="txtRS" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtDtInicio" class="label">Data Inicio</label><br />
      <input class="input" type="text" title="" maxlength="" size="" name="txtDtInicio" id="txtDtInicio" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtHrInicio" class="label">Hora Inicio</label><br />
      <input class="input" type="text" title="" maxlength="" size="" name="txtHrInicio" id="txtHrInicio" value="" /> 
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtDtTermino" class="label">Data Término</label><br />
      <input class="input" type="text" title="" maxlength="" size="" name="txtDtTermino" id="txtDtTermino" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtDtTermino" class="label">Hora Término<br /></label>
      <input class="input" type="text" title="" maxlength="" size="" name="txtDtTermino" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label class="label" id="txtReembolso"><b>Reembolso</b></label>
      </td>
  </tr>
  <tr>
    <td>
      <label for="optTpDesp" class="label">Tipo de despesas</label><br />
      <select name="optTpDesp" id="optTpDesp">
        <option>... Selecione ...</option>
        <option value="Kilometragem">Kilometragem</option>
        <option value="Taxi">Taxi</option>
        <option value="Onibus">&Ocirc;nibus</option>
        <option value="Refeicao">Refei&ccedil;&atilde;o</option>
        <option value="Outros">Outros</option>
     </select> 
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtDesc" class="label">Descrição</label><br />
      <input class="input" type="text" title="" maxlength="" size="" name="txtDesc" id="txtDesc" value="" />
      </td>
  </tr>
  <tr>
    <td>
      <label for="txtValor" class="label">Valor</label><br />
      <input class="input" type="text" title="" maxlength="" size="" name="txtValor" id="txtValor" value="" />
      </td>
  </tr>
  <tr>
    <td align="right">
      <input type=button value="Propriedades" onclick="textoCombo()">&nbsp;
      <input name="Enviar" type="submit" id="Enviar" value="Enviar" />
      </td>
  </tr>
</table>

</form>
<!--</div>-->
</div>
</body>
</html>

  6. Padrões Web - Formulário

    em HTML, XHTML, CSS

    Postado

    Olá pessoal, boa tarde!

    Estou com grande dificuldade em validar, digo deixar o meu código 100% no padrão web (celular), pois o código abaixo irá rodar apenas em celular.

    Segue o código hospedado no site pastebin:

    http://pastebin.com/vhyeDD7y

    Utilizei esse site: http://validator.w3.org/

    e apareceu vários erros.

    Desde já agradeço pelas dicas e correções a serem feitos para que o meu código seja perfeito para a visualização no smarthphone.

    Abraços.

  7. API do Google para gerar gráficos

    em ASP

    Postado · Editado por Martinsrj

    Sim, veja:

    <img src="http://chart.apis.google.com/chart?chtt=<%= var_tituloVeiculo %>&chdl=Positivo|Negativo|Neutro&chs=1000x300&cht=bvg&chco=4D89F9,C6D9FD,00FFFF&chd=t:<%= SemAcento(left(var_Serie1,len(var_Serie1)-1))%>|<%= SemAcento(left(var_Serie2,len(var_Serie2)-1))%>|<%= SemAcento(left(var_Serie3,len(var_Serie3)-1))%>&chxl=0:|<%= SemAcento(var_categories) %>&chxt=x,y&chxr=0,0,500&chxp=1,20,40,60,80,100,120,140,160 "/>

    Aqui coloquei no maximo 160, mas necessito que vá até 300.

    Agora realizei alguma modificações no código e deixei dessa forma:

    <img src="http://chart.apis.google.com/chart?chtt=<%= var_tituloVeiculo %>&chdl=Positivo|Negativo|Neutro&chs=1000x300&cht=bvg&chco=4D89F9,C6D9FD,00FFFF&chd=t:<%= SemAcento(left(var_Serie1,len(var_Serie1)-1))%>|<%= SemAcento(left(var_Serie2,len(var_Serie2)-1))%>|<%= SemAcento(left(var_Serie3,len(var_Serie3)-1))%>&chxl=0:|<%= SemAcento(var_categories) %>&chxt=x,y&chxr=0,0,500|1,0,200&chxp=1,20,40,60,80,100,120,140,160,180,200,220 "/>

    Verifique o print que dei da tela do Grafico:

    http://uploaddeimagens.com.br/imagem/index...ficogoogle4.png

    Escrive em duas colunas do grafico 321 e a outra 156, repare que a barra vai até 200, porem coloquei até 220.

    você já definiu a faixa de valores para y?

  8. API do Google para gerar gráficos

    em ASP

    Postado · Editado por Martinsrj

    Não entendi a intenção do Poderoso Google a esse respeito... rsrsrsr

    Valeu aí Bareta pela descoberta. :D

    Coloquei no Pastebin o meu código atualizado (09/04/2010 - 12:59), Segue o link:

    http://pastebin.com/uG6jKVwK

    Uma coisa que está me deixando grilado é que existe valores acima de 100 e o eixo y vai até 100 vejam a imagem no link abaixo:

    http://uploaddeimagens.com.br/imagem/index...ficogoogle3.png

    Abraços.

    Paulo Martins.

    kkkkkkkkkkkkkkkk, muito bom esses gráfico.. mais cliente sem Ç é encomodação.

  9. API do Google para gerar gráficos

    em ASP

    Postado

    Essa foi violento... nunca iria imaginar que o problema era o Ç.... rsrsrsr :D

    Fiz um pequeno ajuste colocando dessa forma:

    http://chart.apis.google.com/chart?chs=1000x300&cht=bvg&chco=4D89F9,C6D9FD,00FFFF&chd=t:30,10,20,22,10,50,156,10,33|10,15,20,8,18,122,50,5,10|5,4,3,5,8,10,20,30,50&chxl=0:|BAND|GLOBONEWS|RECORD|REDE%20GLOBO|REDE%20TV|SBT|TV%20ALERJ|TV%20JUSTICA|TV%20BRASIL&chxt=x
    não aceita Ç 
    http://chart.apis.google.com/chart?chs=1000x300&cht=bvg&chco=4D89F9,C6D9FD,00FFFF&chd=t:30,0,0,22,10,0,156,10,33|10,0,20,0,0,122,0,5,0|0,0,0,0,0,0,0,0,0&chxl=0:|BAND|GLOBONEWS|RECORD|REDE%20GLOBO|REDE%20TV|SBT|TV%20ALERJ|TV%20JUSTICA&chxt=x

  10. API do Google para gerar gráficos

    em ASP

    Postado

    Link do Fórum Imasters:

    http://forum.imasters.uol.com.br/index.php...gerar-gráficos/

    Olá campeão, boa tarde!

    Preciso gerar um grafico onde apenas o primeiro é gerado corretamente o segundo falta dados e ainda aparece apenas numero aos invés de aparecer os dados.

    Link da imagem que está ocorrendo no 2° grafico: http://uploaddeimagens.com.br/imagem/index/graficogoogle.jpg

    Abaixo segue o código:

    <!-----#include file="includes/SmartSourceP.asp"-->
<!-----#include file="includes/SmartSourceS_v01.asp"---------------->
<!-----#include file="includes/SmartSourceR_v05.asp"--------------->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Gráfico</title>


<script type="text/javascript" src="http://www.google.com/jsapi"></script> 

<style>
.legenda {
      font-family:Arial;
      font-size:12px;
}
</style>

</head>

<body>
<% 
vtQuery = Split(Session("gpSQL1"),"from")

'###############################################  MIDIA GRÁFICO    ###############################################
strQueryMidia = "SELECT nomecliente, midia, tipo_medida, sum(qtd) as qtd, sum(qtd_negativa) as qtd_negativa, sum(qtd_neutra) as qtd_neutra, sum(tempo) as tempo, sum(tempo_negativo) as tempo_negativo, sum(tempo_neutra) as tempo_neutra  FROM "& vtQuery(1) & " group by midia, nomecliente, tipo_medida"
      
'Response.Write(strQueryMidia)
Set rs_midia = gpExecuteSQL(strQueryMidia)

var_tituloMidia =  rs_midia.fields("nomecliente") & " - " & rs_midia.fields("midia")  
'Response.Write(var_tituloVeiculo)
'Response.End()


while not rs_midia.eof
      if rs_midia.fields("tipo_medida") <> "TEMPO" then
            
            ctValsQtd = ctValsQtd + CInt(rs_midia.fields("qtd"))
            ctValsQtdNeg = ctValsQtdNeg + CInt(rs_midia.fields("qtd_negativa"))
            ctValsQtdNeu = ctValsQtdNeu + CInt(rs_midia.fields("qtd_neutra"))
      Else
            ctValsQtd = ctValsQtd + CInt(rs_midia.fields("tempo"))
            ctValsQtdNeg = ctValsQtdNeg + CInt(rs_midia.fields("tempo_negativo"))
            ctValsQtdNeu = ctValsQtdNeu + CInt(rs_midia.fields("tempo_neutra"))
      End if

      rs_midia.movenext
wend

%> 
<!--
<img src="http://chart.apis.google.com/chart?chs=480x256&amp;cht=p3&amp;chtt=Grafico Midia&amp;chd=s:CDDEFH,Wps679&amp;chco=ff0000,0000ff&amp;chdl=sales|visits&amp;chxl=0:|jan|feb|mar|apr|may|jun|&amp;chxt=x"/>
Parametros: http://code.google.com/intl/pt-BR/apis/chart/docs/chart_params.html
-->
<img src="http://chart.apis.google.com/chart?cht=p3&chd=t:<%=ctValsQtd%>,<%=ctValsQtdNeg%>,<%=ctValsQtdNeu%>&chs=700x250&chl=Positivo|Negativo|Neutro&chtt=<%=var_tituloMidia%>"/>

<br><br>
<div align="center" class="legenda">
<%

var_totalPNegNeu = Cint(ctValsQtd) + Cint(ctValsQtdNeg) + Cint(ctValsQtdNeu)
'Response.Write(var_totalPNegNeu)

varPorcentagemPos = (ctValsQtd * 100) / var_totalPNegNeu
varPorcentagemNeg = (ctValsQtdNeg * 100) / var_totalPNegNeu
varPorcentagemNeu = (ctValsQtdNeu * 100) / var_totalPNegNeu


Response.Write "Positivo: " & Round(varPorcentagemPos) & "%" & " | Negativo: " & Round(varPorcentagemNeg) & "%" & " | Neutro: " & Round(varPorcentagemNeu) & "%"  
%>
</div>
<br><br><br>

'>>>>>>>>>>>>>> Aqui segue o 2° GRAFICO - No momento estou fazendo o teste manualmente e não dinamico.

<%
strQueryVeiculo = "SELECT nomecliente, midia, veiculo, tipo_medida, sum(qtd) as qtd, sum(qtd_negativa) as qtd_negativa, sum(qtd_neutra) as qtd_neutra, sum(tempo) as tempo, sum(tempo_negativo) as tempo_negativo, sum(tempo_neutra) as tempo_neutra FROM "& vtQuery(1) & " group by veiculo, midia, nomecliente, tipo_medida"
      
'Response.Write(strQueryVeiculo)
'Response.End()
Set rs_veiculo = gpExecuteSQL(strQueryVeiculo)

var_tituloVeiculo =  rs_veiculo.fields("nomecliente") & " - " & rs_veiculo.fields("midia")
'Response.Write(var_tituloVeiculo)
'Response.End()

While Not rs_veiculo.Eof
      var_categories = var_categories & rs_veiculo("veiculo") & "|"
    'Response.Write var_categories
      'Positivo
      If rs_veiculo.fields("tipo_medida") <> "TEMPO" then
            var_Serie1 = var_Serie1 & rs_veiculo("qtd") & ","
      Else
            var_Serie1 = var_Serie1 & rs_veiculo("tempo") & ","
      End if
      
      If rs_veiculo.fields("tipo_medida") <> "TEMPO" then
            var_Serie2 = var_Serie2 & rs_veiculo("qtd_negativa") & ","
      Else
            var_Serie2 = var_Serie2 & rs_veiculo("tempo_negativo") & ","
      End if
      
      If rs_veiculo.fields("tipo_medida") <> "TEMPO" then
            var_Serie3 = var_Serie3 & rs_veiculo("qtd_neutra") & ","
      Else
            var_Serie3 = var_Serie3 & rs_veiculo("tempo_neutra") & ","
      End if  

      rs_veiculo.movenext          
Wend  
    Response.Write var_categories & "<br>"
    Response.Write left(var_Serie1,len(var_Serie1)-1)
    
%>
<br />
<!--
Retirei desse site: http://code.google.com/intl/pt-BR/apis/visualization/documentation/gallery/columnchart.html
-->


<img src="http://chart.apis.google.com/chart?chs=1000x300&amp;cht=bvg&chco=4D89F9,C6D9FD,00FFFF&chd=t:30,0,0,22,10,0,156,10,33|10,0,20,0,0,122,0,5,0|0,0,0,0,0,0,0,0,0&chxl=0:|BAND|GLOBONEWS|RECORD|REDE GLOBO|REDE TV|SBT|TV ALERJ|TV BRASIL&chxt=x"/> 
                                                                                                                                                                                                                                    
</body>
</html>

    Uma observação, se for retirado o ultima categoria: TV JUSTIÇA o grafico aparece normalmente

    Vejam a imagem abaixo: http://uploaddeimagens.com.br/imagem/index...ficogoogle2.jpg

    Existe alguma solução?

    Achei os gráficos gerados pelo Google (http://brunoamarelo.wordpress.com/2008/05/15/api-do-google-para-gerar-gráficos/) muito mais bonito que a do próprio ASP: OWC11.ChartSpace

    Desde já agradeço.

  11. Converter de varchar para inteiro.

    em SQL Server

    Postado

    Olá Pessoal, beleza?

    Preciso de uma ajuda em uma query.

    Acontece o seguinte que os campos tempo, tempo_negativo e o tempo_neutra está no banco como varchar. Preciso executar essa query abaixo que está funcionando perfeitamente, porem momentaneamente eu converti os campos que mencionei para inteiro, porem no momento eles tem que estar como varchar.

    Pergunta é,

    Como que eu faço com a query abaixo que some (+) os campos que eu mencionei sendo que o mesmo estão como varchar?

    SELECT nomecliente, midia, tipo_medida, sum(qtd) as qtd, sum(qtd_negativa) as qtd_negativa,

    sum(qtd_neutra) as qtd_neutra, sum(tempo) as tempo, sum(tempo_negativo) as tempo_negativo,

    sum(tempo_neutra) as tempo_neutra FROM usr_view_insercao WHERE nomecliente='CEG'

    AND dia1>='2009.05.05' AND dia1>='2009.05.05' AND midia='TV'AND codConcorrente = 0

    group by midia, nomecliente, tipo_medida

    Tentei fazer algo assim:

    SELECT nomecliente,

    midia,

    tipo_medida,

    sum(qtd) as qtd,

    sum(qtd_negativa) as qtd_negativa,

    sum(qtd_neutra) as qtd_neutra,

    sum(Convert(VarChar(10),(Convert(Numeric(10,2), tempo)) as tempo,

    sum(Convert(VarChar(10),(Convert(Numeric(10,2), tempo_negativo)) as tempo_negativo,

    sum(Convert(VarChar(10),(Convert(Numeric(10,2), tempo_neutra)) as tempo_neutra

    FROM usr_view_insercao

    WHERE nomecliente='CEG'

    AND dia1>='2009.05.05'

    AND dia1>='2009.05.05'

    AND midia='TV'

    AND codConcorrente = 0

    group by midia, nomecliente, tipo_medida

    Porem da o seguinte erro:

    Msg 156, Level 15, State 1, Line 7

    Incorrect syntax near the keyword 'as'.

    Desde já agradeço.

  12. Exportar Grafico

    em ASP

    Postado

    Olá pessoal, boa tarde!

    Fiz funcionar a exportação de dois gráficos em uma mesma pagina.

    Vejam o código atualizado:

    http://pastebin.com/DKaC440g

    Porem, apesar de algumas mudanças no código só consegui fazer em apenas em alguns gráficos exemplo esses:

    1° Grafico:

    Call renderChart("includes/Charts/Column3D.swf", "", strXML, "FactorySum", 700, 350)

    2° Grafico:

    Call renderChart("includes/Charts/Pie3D.swf", "", strXML, "FactorySum2", 700, 350)

    Agora o grafico que eu preciso que venha ter essa funcionalidade de exportar é esse:

    Call renderChart("includes/Charts/FCF_MSColumn3D.swf", "", strXML, "FactorySum2", 700, 350)

    Acredito que esse carinha: FCExporter.swf é que esteja restrigindo que alguns grafico como esse FCF_MSColumn3D.swf não tenha a funcionalidade para exportar imagem.

    Desde já agradeço ajuda de todos.

    Paulo Martins.

  13. Exportar Grafico

    em ASP

    Postado

    Como criar o Grafico em um bitmap?

    Existem algum componente para gerar em bitmap. Não entendi a sua intenção de colocar captcha?

    Abraços.

    bom na verdade isso só complica mais... você pode criar todo o gráfico em um bitmap...

    o q dificulta caso nunka tenha feito.... pode usar aqueles exemplos de captcha para entender sobre tal.

  14. Exportar Grafico

    em ASP

    Postado

    Bom dia pessoal!

    Venho aqui com tristeza, pois descobri pelo proprio site FusionChart o programa FREE não exporta para imagem conforme a imagem abaixo:

    Link direto da imagem: http://uploaddeimagens.com.br/imagem/index..._naoexporta.jpg

    fusioncharts_naoexporta.jpg

    Segue o link da informação: http://translate.google.com.br/translate?u...l=&ie=UTF-8

    Achei muito lindo o Grafico gerado no meu sistema, pena que ainda existe uma pendencia no meu sistema que é a exportação do grafico Flash para imagem.

    alguém tem alguma ideia do que eu possa realizar?

    Existe algum comando em asp para exporta para imagem?

    Abraços.

  17. Exportar Grafico

    em ASP

    Postado

    Boa tarde!

    O que tem ocorrido é que eu consegui gerar dois gráficos em uma mesma pagina perfeitamente, porem o primeiro grafico exporta normalmente para jpg, pdf, mas o segundo grafico não funciona a EXPORTAÇÃO.

    Veja a imagem que coloquei no link no post anterior a opção de exportar fica desabilitada.

    não entendi direito sua duvida... mais pelo que vi a exportação altomatica para gravação em uma pasta não existe por default.

    http://www.fusioncharts.com/Demos/ExportCh...ver_export.html

  18. Exportar Grafico

    em ASP

    Postado

    Olá pessoal, bom dia!

    Estou com grande dificuldade em encontrar na exportação de Grafico (fusoncharts).

    Possuo dois gráficos em uma pagina (BAC41_grafico_listagem.asp), porem não consigo que a funcionalidade de exporta para JPG funcione, apenas o primeiro grafico funciona corretamente.

    Aqui segue o link do grafico que peguei na internet e implementei no sistema daqui da empresa:

    http://www.fusioncharts.com/docs/

    http://www.fusioncha...p?gMenuItemId=4

    http://www.fusioncharts.com/

    Abaixo segue os códigos que estou utilizando para gerar o Gráfico.

    BAC41_grafico_listagem.asp

    Endereço no pastebin: http://pastebin.com/cee8KmK5

    FusionCharts.js

    Endereço no pastebin: http://pastebin.com/VuPwRhHH

    FusionCharts.asp

    Endereço no pastebin: http://pastebin.com/bCJSBH8G

    FusionChartsExportComponent.js

    Endereço no pastebin: http://pastebin.com/KqgCLhEp

    Segue o link da imagem dos dois gráficos. Reparem que no primeiro Grafico as opções apareceram corretamente, porem no segundo grafico arareceu com as opções mas desabilitados!

    Link: http://uploaddeimage...coerro.JPG/true

    Caso alguém já utilizou e tem experiencia em ASP com esse componente favor postar uma solução para o meu caso.

    Desde já agradeço.

  19. VBscript com HTML + SUP do ASP?

    em ASP

    Postado

    Olá pessoal, boa tarde!

    Preciso utilizar o VBscript em uma aplicação que roda no IE, porem estou com dificuldade.

    Irei colocar abaixo um script simples que funciona normalmente.

    A ideia do script abaixo é que enquando o usuario está em frente a tela aguardando apareça uma imagem em tela informando isso (loading...)

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<style>
    #loading{
        text-align:center;
        position:absolute;
        top:6%;
        left:10%;
        font-family::Arial, Helvetica, sans-serif;
        font-size:12px;
        font-weight:bold;
        color:#666666;
    
    }
</style>

<title>:::...Digite o Numero - Gerando o numero de 0 até o numero digitado...:::</title>
</head>

<body>
<script language="vbscript">

Dim modelo

varNumero = InputBox("Entre com o numero: ")

if varNumero <> "" then
    document.write("<div id='loading'><img src='figuras/loading.gif' boder=0><br />Gerando os numeros de 0 ...</div>")

    For i = 1 to varNumero    
        MsgBox "Numero"& i
    Next
    
    Mens = MsgBox("Concluido!",64,"Mensagem")
    
End if    

</script>
</body>
</html>
    Abaixo segue a minha aplicação de verdade, porem não funciona porque o ASP executa primeiro a SUB e assim não exibindo a imagem na tela informando para o usuario que as etiquetas estão sendo geradas. 
    <!-----#include file="includes/Extras.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>

<script language="vbscript">

Dim modelo

modelo = InputBox("Entre com o modelo da Etiqueta:","Gerar Etiqueta","Pimaco 6081/6181/6281 Branca")

if modelo <> "" then
    
    //GeraEtiqueta "SELECT top 10 nome, endereco, bairro, cidade, estado, cep FROM cadastro", ""&modelo&""
    GeraEtiqueta "<%=session("filtroSQL") %>", ""&modelo&""
    
    
    Mens = MsgBox("Concluido!",64,"Mensagem")
    
    window.close
else
    Mens = MsgBox("Precisa informar um modelo de etiqueta!",48,"Atenção")

end if 

</script>

</body>
</html>

    Desde já agradeço.

  20. [Erro] Forçando Downloads

    em ASP

    Postado

    Olá pessoal, bom dia!

    Consegui resolver a situação em parte. Consigo realizar o download das extensões DOC, XLS, porem as extensões ppt, pptm continua dando erro, pois além de não abrir no browser não permite o downloads.

    SEGUE abaixo o código atualizado:

    'o link abaixo é o responsavel para direcionar para o arquivo desejado

    <a href='documentos/<%=rs.fields("nome")%>?arquivo=<%=rs.fields("nome")%>' target="_blank"><%=rs.fields("nome_orig")%></a>

    </td>

    <td>

    <%

    '29/01/2010 - atenção, a variavel arquivo declarado no link acima não recebe o nome do arquivo

    'Response.Write arquivo & "Imprimindo o arquivo"

    'Response.End()

    'cria o objeto Scripting.FileSystemObject e atribui a variável objFSO

    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

    'pega o caminho e características da pasta "documentos" e atribui a objFolder

    Set objFolder = objFSO.GetFolder(Server.MapPath("documentos"))

    'Escreve no navegador o caminho completo da pasta (Ex: E:\inetpub\wwwdata\background\html\Teste\sistema\documentos

    'Response.write objFolder.Path

    'Response.Write objFolder.Size & "em byte" 'Retorna o tamanho total da pasta, incluindo todos os seus arquivos.

    Set fc = objFolder.Files

    totalArq = fc.count

    tamArq = Server.MapPath (".") & "\" & objFolder.Name

    'Response.Write(tamArq)

    Set arqObj = objFSO.GetFile(tamArq&"\"&rs.fields("nome"))

    'Response.Write round(arqObj.Size / 1024) & " KB"

    'varDataUacesso = varDataUacesso & arqObj.DateLastAccessed

    'imprimo o nome do arquivo.

    'Response.write arqObj.Name

    'Response.write objFolder.Name &"\"& arqObj.Name

    if Request("arquivo") <> "" then

    '--------------------------------------------------------------------------

    Response.Buffer = True

    Dim strFilePath, strFileSize, strFileName

    Const adTypeBinary = 2

    'strFilePath = "C:\ whatever the path is "

    strFilePath = objFolder.Path

    'strFileSize = ... the size of file .. optional

    strFileName = arqObj.Name

    Response.Clear

    '8*******************************8

    ' Requires MDAC 2.5 to be stable

    ' I recommend MDAC 2.6 or 2.7

    '8*******************************8

    'Response.AddHeader "Content-Type","application/x-msdownload"

    Response.AddHeader "Content-Disposition","attachment; filename="&rs.fields("nome_orig")

    Set objStream = Server.CreateObject("ADODB.Stream")

    objStream.Open

    'objStream.Type = adTypeBinary

    ' Response.Write arquivo & "Imprimindo o arquivo"

    ' Response.End()

    objStream.LoadFromFile strFilePath

    strFileType = lcase(Right(strFileName, 4))

    ' Feel Free to Add Your Own Content-Types Here

    Select Case strFileType

    Case ".asf"

    ContentType = "video/x-ms-asf"

    Case ".avi"

    ContentType = "video/avi"

    Case ".doc"

    ContentType = "application/msword"

    case ".ppt", ".pps",".pptm"

    'ContentType = "application/mspowerpoint"

    'ContentType = "application/vnd.ms-powerpoint"

    ContentType = "application/x-powerpoint"

    'Informação sobre forçar o downloads em arquivo .txt

    'http://www.plugmasters.com.br/forum/lofiversion/index.php/t8047.html

    Case ".txt"

    ContentType = "text/plain"

    Case ".zip"

    ContentType = "application/zip"

    Case ".xls"

    ContentType = "application/vnd.ms-excel"

    Case ".gif"

    ContentType = "image/gif"

    Case ".jpg", "jpeg"

    ContentType = "image/jpeg"

    Case ".wav"

    ContentType = "audio/wav"

    Case ".mp3"

    ContentType = "audio/mpeg3"

    Case ".mpg", "mpeg"

    ContentType = "video/mpeg"

    Case ".rtf"

    ContentType = "application/rtf"

    Case ".htm", "html"

    ContentType = "text/html"

    Case ".asp"

    ContentType = "text/asp"

    Case ".pdf"

    ContentType = "application/pdf"

    Case Else

    'Handle All Other Files

    ContentType = "application/octet-stream"

    End Select

    'Response.AddHeader("Content-type: Application/Octet-stream")

    'Response.AddHeader "Content-Disposition", "attachment; filename="& rs.fields("nome_orig")

    Response.AddHeader "Content-Length", strFileSize

    ' In a Perfect World, Your Client would also have UTF-8 as the default

    ' In Their Browser

    Response.Charset = "UTF-8"

    Response.ContentType = ContentType

    Response.BinaryWrite objStream.Read

    Response.Flush

    objStream.Close

    Set objStream = Nothing

    '------------------------------------------------------------------------------

    End if

  21. [Erro] Forçando Downloads

    em ASP

    Postado

    Estou tentando aplicar um código que quando o usuario clicar no link o arquivo não abra no navegador e obrigue o usuario a realizar o downloads.

    Erro abaixo:

    ADODB.Stream error '800a0bba'

    File could not be opened.

    /exemplo/html/teste/sistema/bac54_arqareadocliente.asp, line 339

    ----------------------------------------------------------------------------------------------------

    A linha 339 é essa: objStream.LoadFromFile strFilePath

    Segue o código abaixo:

    <td valign="middle">                            
                
                <a href="BAC54_arqareadocliente.asp?nomeArq=<%=rs.fields("nome_orig")%>&arquivo=<%=rs.fields("nome")%>"><%=rs.fields("nome_orig")%></a>   
        
            </td>
                    
            <td>
                <% 
                'cria o objeto Scripting.FileSystemObject e atribui a variável objFSO
                Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
                
                'pega o caminho e características da pasta "documentos" e atribui a objFolder
                Set objFolder = objFSO.GetFolder(Server.MapPath("documentos"))
                
                'Escreve no navegador o caminho completo da pasta (Ex: E:\inetpub\wwwdata\exemplo\html\Teste\sistema\documentos
                'Response.write objFolder.Path
                
                'Response.Write objFolder.Size & "em byte" 'Retorna o tamanho total da pasta, incluindo todos os seus arquivos.
                Set fc = objFolder.Files
                totalArq = fc.count
                
                tamArq = Server.MapPath (".") & "\" & objFolder.Name 
                'Response.Write(tamArq)
                Set arqObj = objFSO.GetFile(tamArq&"\"&rs.fields("nome"))
                'Response.Write round(arqObj.Size / 1024) & " KB"
                'varDataUacesso = varDataUacesso & arqObj.DateLastAccessed
                
                'imprimo o nome do arquivo.
                'Response.write arqObj.Name
                'Response.write objFolder.Name &"\"& arqObj.Name
                
                
                                
                '--------------------------------------------
                Response.Buffer = True
                Dim strFilePath, strFileSize, strFileName
                
                Const adTypeBinary = 2
                
                'strFilePath = "C:\ whatever the path is "
                strFilePath = objFolder.Path
                'strFileSize = ... the size of file .. optional
                strFileName = arqObj.Name
                
                Response.Clear
                
                '8*******************************8
                ' Requires MDAC 2.5 to be stable
                ' I recommend MDAC 2.6 or 2.7
                '8*******************************8
                Set objStream = Server.CreateObject("ADODB.Stream")
                objStream.Open
                'objStream.Type = adTypeBinary
                objStream.LoadFromFile strFilePath
                
                strFileType = lcase(Right(strFileName, 4))
                
                ' Feel Free to Add Your Own Content-Types Here
                Select Case strFileType
                Case ".asf"
                ContentType = "video/x-ms-asf"
                Case ".avi"
                ContentType = "video/avi"
                Case ".doc"
                ContentType = "application/msword"
                Case ".zip"
                ContentType = "application/zip"
                Case ".xls"
                ContentType = "application/vnd.ms-excel"
                Case ".gif"
                ContentType = "image/gif"
                Case ".jpg", "jpeg"
                ContentType = "image/jpeg"
                Case ".wav"
                ContentType = "audio/wav"
                Case ".mp3"
                ContentType = "audio/mpeg3"
                Case ".mpg", "mpeg"
                ContentType = "video/mpeg"
                Case ".rtf"
                ContentType = "application/rtf"
                Case ".htm", "html"
                ContentType = "text/html"
                Case ".asp"
                ContentType = "text/asp"
                Case Else
                'Handle All Other Files
                ContentType = "application/octet-stream"
                End Select
                
                
                'Response.AddHeader "Content-Disposition", "attachment; filename= strFileName
                Response.AddHeader "Content-Length", strFileSize
                ' In a Perfect World, Your Client would also have UTF-8 as the default 
                ' In Their Browser
                Response.Charset = "UTF-8"
                Response.ContentType = ContentType
                
                Response.BinaryWrite objStream.Read
                Response.Flush
                
                objStream.Close
                Set objStream = Nothing

  22. Erro na utilização da CLASSE

    em ASP

    Postado

    Era isso memo bareta.

    Uma dúvida. Existe como eu criar vários botões como Soma, Subtração e quando o usuario clicar no botão soma executar o metodo: obj.soma()

    e quando o usuario clicar no botão subtração executar o metodo: obj.subtracao()

    isso ocorre porque os numeros estão como string e são concatenados...

    experimente

    Public Function Soma()
            Soma = cint(me.x) + cint(me.y)
            Response.Write ("A Soma de X e Y: " & Soma)
            Response.Write ("<br>")
        End Function

  23. Erro na utilização da CLASSE

    em ASP

    Postado

    Olá pessoal, boa tarde!

    Possuo um classe de calculadora, porem não soma.

    Aparece o seguinte resultado:

    A Soma de X e Y: 105

    O Valor de X vale: 10

    O Valor de Y vale: 5

    class2Calculadora.asp

    <%
''' Class Calculadora
''' <author>Paulo Martins</author>
Class Calculadora
    Private x_
    Private y_
        
'--        Private Sub Class_Initialize()
'            x_ = 6
'            y_ = 3
'--        End Sub
        
        Private Sub Class_Terminate()
        End Sub
        
        Public Sub Calculadora(x_, y_)
            x = x_
            y = y_
        End Sub
        
        Public Property Get x()
            x=x_
        End Property 
         
        Public Property Let x(value)
            x_=value
        End Property
        
        Public Property Get y()
            y=y_
        End Property  
        
        Public Property Let y(value)
            y_=value
        End Property
        
        Public Function Soma()
            Soma = me.x + me.y
            Response.Write ("A Soma de X e Y: " & Soma)
            Response.Write ("<br>")
        End Function
        
        Public Function subtracao()
            subtracao = me.x - me.y
            Response.Write ("A Subtração de X e Y: " & subtracao)
            Response.Write ("<br>")
        End Function
        
        Public Function ToString()
                ToString = "<br>O Valor de X vale: " & me.x & "<br>O Valor de Y vale: " & me.y
                Response.Write ToString
        End Function
End class

'-- class Principal
'--    dim obj
'--    Set obj = new Calculadora
'--    obj.Calculadora 7, 3
'--    obj.x = 8
'--    obj.y = 4
'--    obj.subtracao() 'Chamando a função soma.
'--    obj.soma()
'--    obj.ToString() 
'--    set obj = nothing
%>
    Pagina PRINCIPAL: indexCalculadora.asp 
    <!-- #include file ="class2Calculadora.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <title></title>
</head>
<body>
<form method="post" action=""> 
<label>Calculadora</label>
Digite o Primeiro Valor: &nbsp; <input type="text" id="x" name="x" /><br /> 
Digite o Segundo Valor <input type="text" id="y" name="y" /><br /> 
<input type="submit" value="Soma" id="btnSoma" name="btnSoma" /> 
</form> 

</body>
</html>
<%
'-- class Principal
'For Each dados in Request.Form 
'    vetDados(I) = Request.Form(dados)
'    I = I + 1
'Next 

    dim obj
    Set obj = new Calculadora
    '--obj.Calculadora 7, 3
    obj.Calculadora Request.Form("x"), Request.Form("y")
    '-- obj.subtracao() 'Chamando a função soma.
    obj.soma()
    obj.ToString() 
    set obj = nothing
 %>

  24. Duvida em utilizar hidden

    em PHP

    Postado

    Ola pessoal, boa noite!

    Consegui identificar o erro e aqui segue as modificacoes no codigo:

    <input type="hidden" name="nome" value="<?php echo $_POST['nome']; ?>" />
<input type="hidden" name="email" value="<?php echo $_POST['email']; ?>" />
<input type="hidden" name="datanascimento" value="<?php echo $_POST['datanascimento']; ?>" />
<input type="hidden" name="sexo" value="<?php echo $_POST['sexo']; ?>" />
<input type="hidden" name="profissao" value="<?php echo $_POST['profissao']; ?>" />

    Dei um echo:$sqlIns = "INSERT INTO tab_usuario (NOME, EMAIL, DATAMASCIMENTO, SEXO, PROFISSAO, TELEFONE, ENDERECO, CIDADE, ESTADO, CEP) VALUES ";

    $sqlIns .= "('varNome','$varEmail','$varDatanascimento','$varSexo','$varProfissao','$varTelefone','$varEndereco','$varCidade','$varEstado','$varCep')";

    echo $sqlIns . "<br>";

    $resultado = mysql_query($sqlIns) or die(mysql_error());

    echo $varNome;

    Aparece isso:

    INSERT INTO tab_usuario (NOME, EMAIL, DATAMASCIMENTO, SEXO, PROFISSAO, TELEFONE, ENDERECO, CIDADE, ESTADO, CEP) VALUES ('varNome','teste@teste.com.br','01/01/1980','f','Biologa','2222-2222','Rua Imaginaria, 76','Rio de Janeiro','RJ','21361777')

    Naila

    Uma pergunta: Porque ele esta inserindo no banco varNome se o correto deveria ser Naila, pois mesmo porque eu dei um echo no final e imprimiu Naila.

    Abracos

  25. Duvida em utilizar hidden

    em PHP

    Postado

    Ola pessoal, boa noite!

    Construi duas pagina para dividir o cadastramento de usuario no site.

    não consegui identificar o erro, segue abaixo a msg de erro:

    Notice: Undefined variable: nome in C:\Arquivos de programas\Apache Software Foundation\Apache2.2\htdocs\des.websitephp\etapa2.php on line 13

    a linha do erro e esta: <input type="hidden" name="nome" value="<?php echo $nome; ?>" />

    Abaixo segue a primeira pagina do Cadastramento chamado: etapa1.php

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<p align="center"><big><big>
<strong>Cadastramento - Etapa 1 de 2</strong></big></big></p>
<form method="POST" action="etapa2.php">
<div align="center"><center><p>
Nome: <input type="text" name="nome" size="20" /></p></center></div>

<div align="center"><center><p>
E-mail: <input type="text" name="email" size="20" /></p></center></div>

<div align="center"><center><p>
Data de Nascimento: <input type="text" name="datanascimento" size="20" /></p></center></div>

<div align="center"><center><p>
Sexo: <input type="radio" value="m" checked name="sexo" />Masculino&nbsp;&nbsp;<input type="radio" name="sexo" value="f" />Feminino</p></center></div>

<div align="center"><center><p>
Profissao: <input type="text" name="profissao" size="20" /></p></center></div>

<div align="center"><center><p>
<input type="submit" value="Prosseguir &gt;&gt;" name="prosseguir" /></p></center></div>



</form>

</body>
</html>
    Abaixo a segunda pagina do cadastramento: 
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<p align="center"><big><big><strong>
Cadastramento - Etapa 2 de 2</strong></big></big></p>

<form method="POST" action="etapa1e2cadastra.php">
<input type="hidden" name="nome" value="<?php echo $nome; ?>" />
<input type="hidden" name="email" value="<?php echo $email; ?>" />
<input type="hidden" name="datanascimento" value="<?php echo $datanascimento; ?>" />
<input type="hidden" name="sexo" value="<?php echo $sexo; ?>" />
<input type="hidden" name="profissao" value="<?php echo $profissao; ?>" />

<div align="center"><center><p>Telefone: <input type="text" name="telefone" size="20" /></p></center></div>
<div align="center"><center><p>Endereco: <input type="text" name="endereco" size="20" /></p></center></div>
<div align="center"><center><p>Cidade: <input type="text" name="cidade" size="20" />&nbsp;&nbsp;Estado: <input type="text" name="estado" size="2" /></p></center></div>
<div align="center"><center><p>CEP: <input type="text" name="cep" size="9" /></p></center></div>
<div align="center"><center><p>
<input type="submit" value="Prosseguir &gt;&gt;" name="prosseguir" /></p></center></div>

</form>
</body>
</html>
    Abaixo segue a pagina que trata as informacoes: 
    <?php
include "conecta_mysql.php";

$varNome = $_POST["nome"];
echo $varNome;
$varEmail = $_POST["email"];
$varDatanascimento = $_POST["datanascimento"];
$varSexo = $_POST["sexo"];
$varProfissao = $_POST["profissao"];
$varTelefone = $_POST["telefone"];
$varEndereco = $_POST["endereco"];
$varCidade = $_POST["cidade"];
$varEstado = $_POST["estado"];
$varCep = $_POST["cep"];

$sqlIns = "INSERT INTO tab_usuario VALUES ";
$sqlIns .= "('varNome','$varEmail','$varDatanascimento','$varSexo','$varProfissao','$varTelefone','$varEndereco','$varCidade','$varEstado','$varCep')";
$resultado = mysql_query($sqlIns);
echo "Usuario cadastro com sucesso!!!";
?>

×
×
  • Criar Novo...