Jump to content

Search the Community

Showing results for tags 'asp'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 120 results

  1. ukow

    Erro com select duplo

    Olá! Estou tentando fazer com que apareça um select com opções baseadas no preenchimento de outro select. Porém não acontece nada. Alguém pode me ajudar com isso? Obrigado! <script type="text/javascript"> var concelhos = $('select[name=Concelho] option'); $('select[name=Distrito]').on('change', function () { var Distrito = this.value; var novoSelect = concelhos.filter(function () { return $(this).data('distrito') == Distrito; }); $('select[name=Concelho]').html(novoSelect); }); </script> <select name="Distrito" size="1" width="180" class="COMBODISTCSS" id="COMBOFAB" tabindex="1"> <option value="Indiferente">Indiferente</option> <option value="Aveiro">Aveiro</option> <option value="Beja">Beja</option> <option value="Braga">Braga</option> </select> <span class="IWLABEL11CSS" id="IWLABEL7">Concelho</span> <select name="Concelho" size="1" width="195" class="COMBOCONCCSS" id="COMBOCID" tabindex="1"> <option data-distrito="Aveiro" value="Agueda">Agueda</option> <option data-distrito="Aveiro" value="Albergaria-a-Velha">Albergaria-a-Velha</option> <option data-distrito="Aveiro" value="Anadia">Anadia</option> <option data-distrito="Aveiro" value="Arouca">Arouca</option> <option data-distrito="Aveiro" value="Aveiro">Aveiro</option> <option data-distrito="Aveiro" value="Castelo de Paiva">Castelo de Paiva</option> <option data-distrito="Aveiro" value="Espinho">Espinho</option> <option data-distrito="Aveiro" value="Esterreja">Esterreja</option> <option data-distrito="Aveiro" value="Santa Maria da Feira">Santa Maria da Feira</option> <option data-distrito="Aveiro" value="Ilhavo">Ilhavo</option> <option data-distrito="Aveiro" value="Mealhada">Mealhada</option> <option data-distrito="Aveiro" value="Murtosa">Murtosa</option> <option data-distrito="Aveiro" value="Oliveira de Azemeis">Oliveira de Azemeis</option> <option data-distrito="Aveiro" value="Oliveira do Bairro">Oliveira do Bairro</option> <option data-distrito="Aveiro" value="Ovar">Ovar</option> <option data-distrito="Aveiro" value="Sao Joao da Madeira">São João da Madeira</option> <option data-distrito="Aveiro" value="Sever de Vouga">Sever de Vouga</option> <option data-distrito="Aveiro" value="Vagos">Vagos</option> <option data-distrito="Aveiro" value="Vale de Cambra">Vale de Cambra</option> <option data-distrito="Beja" value="Aljustrel">Aljustrel</option> <option data-distrito="Beja" value="Almodovar">Almodovar</option> <option data-distrito="Beja" value="Alvito">Alvito</option> <option data-distrito="Beja" value="Barrancos">Barrancos</option> <option data-distrito="Beja" value="Beja">Beja</option> <option data-distrito="Beja" value="Castro Verde">Castro Verde</option> <option data-distrito="Beja" value="Cuba">Cuba</option> <option data-distrito="Beja" value="Ferreira do Alentejo">Ferreira do Alentejo</option> <option data-distrito="Beja" value="Mertola">Mertola</option> <option data-distrito="Beja" value="Moura">Moura</option> <option data-distrito="Beja" value="Odemira">Odemira</option> <option data-distrito="Beja" value="Ourique">Ourique</option> <option data-distrito="Beja" value="Serpa">Serpa</option> <option data-distrito="Beja" value="Vidigueira">Vidigueira</option> <option data-distrito="Braga" value="Amares">Amares</option> <option data-distrito="Braga" value="Barcelos">Barcelos</option> <option data-distrito="Braga" value="Braga">Braga</option> <option data-distrito="Braga" value="Cabeceira de Bastos">Cabeceira de Bastos</option> <option data-distrito="Braga" value="Celorico de Bastos">Celorico de Bastos</option> <option data-distrito="Braga" value="Esposende">Esposende</option> <option data-distrito="Braga" value="Fafe">Fafe</option> <option data-distrito="Braga" value="Guimaraes">Guimarães</option> <option data-distrito="Braga" value="Povoa de Lanhoso">Povoa de Lanhoso</option> <option data-distrito="Braga" value="Terra de Bouro">Terra de Bouro</option> <option data-distrito="Braga" value="Vieira do Minho">Vieira do Minho</option> <option data-distrito="Braga" value="Vila Nova de Famalicão">Vila Nova de Famalicão</option> <option data-distrito="Braga" value="Vila Verde">Vila Verde</option> <option data-distrito="Braga" value="Vizela">Vizela</option> </select>
  2. ola pessoal, eu gostaria de saber se alguém poderia ensinar, como fazer para gerar uma consulta no site do dataprev, https://www8.dataprev.gov.br/SipaINSS/pages/hiscre/hiscreInicio.xhtml. usando apenas o numero do beneficio ou cpf? seria no aso, para fazer consulta de beneficios do inss. aguardo retono.
  3. Olá! Tenho uma página que utiliza dados do banco para exibir um pequeno relatório, além da opção de Imprimir gostaria de fazer com que fosse possível clicar em um botão para enviar aquele relatório por email. Como posso conseguir isso? Obrigado!
  4. Olá boa tarde amigos, alguém pode me ajudar ou me dar uma orientação boa de como fazer url amigável no asp clássico usando o web config procurei em muitos site e não achei nada ... Utilizo a hospedagem da King Host.... Obrigado a todos...
  5. BorgesCarvalho

    Loop do

    Boa noite, pessoal Estou a alguns dias quebrando a cabeça. Preciso fazer um loop que irá pegar umas variáveis do meu banco e gerar um resultado e etc (até aqui na parte do banco, pegar as variáveis, etc, sem problemas. Não conheço muito asp, mas peguei um exemplo do que eu preciso utilizando LOOP Fazendo com o exemplo abaixo ele me retorna os números sequenciais: 1 2 3 <% i=1 Do response.write i & "<br>" i = i + 1 Loop Until i = 3 %> Mas para finalidade que eu preciso, o retorno teria que ser: 111 222 333 , ou seja, os valores sequenciais, mas repetindo, no exemplo 3 vezes cada um. alterei o código para a seguinte forma: <% f=1 Do response.write f & "<br>" i = i + 1 Loop Until i = 3 %> O resultado saiu assim 111. Se eu alterar a variável f para 2 o resultado será 222 e assim por diante. Chegou próximo do que eu queria, mas o loop para por aí, pois a variável f não recebe incremento e fica sempre com o valor inicial. E este é o meu problema. Alguém tem algum ideia de como o loop exibir tipo: 111 222 333 ? Já pesquisei bastante, mas não consegui. Não sou programador asp, mas isto tem que ser feito em asp. Se puderam me ajudar ficarei muito grato. Abs a todos.
  6. Boa tarde, pessoal do imaster! Estou quebrando a cabeça a um tempo, pois configurei o scriptcam em uma pagina ASP e blz. Funciona direitinho, exibe a imagem da WebCam e captura, mas não consegui alterar o código para que ele salve a imagem capturada em um input de um Form para inserir em um banco de dados. Gostaria de saber se alguém já passou por isto e pudesse me dar umas dicas? Achei exemplos somente em PHP, mas nada para ASP clássico. Abaixo o código original: <!DOCTYPE html> <html> <head> <script language="JavaScript" src="//ajax.googleapis.com/ajax/libs/jquery/1.7.1/jquery.min.js"></script> <script language="JavaScript" src="//ajax.googleapis.com/ajax/libs/swfobject/2.2/swfobject.js"></script> <script language="JavaScript" src="scriptcam.js"></script> <script language="JavaScript"> $(document).ready(function() { $("#webcam").scriptcam({ showMicrophoneErrors:false, onError:onError, cornerRadius:20, disableHardwareAcceleration:1, cornerColor:'e3e5e2', onWebcamReady:onWebcamReady, uploadImage:'upload.gif', onPictureAsBase64:base64_tofield_and_image }); }); function base64_tofield() { $('#formfield').val($.scriptcam.getFrameAsBase64()); }; function base64_toimage() { $('#image').attr("src","data:image/png;base64,"+$.scriptcam.getFrameAsBase64()); }; function base64_tofield_and_image(b64) { $('#formfield').val(b64); $('#image').attr("src","data:image/png;base64,"+b64); }; function changeCamera() { $.scriptcam.changeCamera($('#cameraNames').val()); } function onError(errorId,errorMsg) { $( "#btn1" ).attr( "disabled", true ); $( "#btn2" ).attr( "disabled", true ); alert(errorMsg); } function onWebcamReady(cameraNames,camera,microphoneNames,microphone,volume) { $.each(cameraNames, function(index, text) { $('#cameraNames').append( $('<option></option>').val(index).html(text) ) }); $('#cameraNames').val(camera); } </script> </head> <body> <div style="width:330px;float:left;"> <div id="webcam"> </div> <div style="margin:5px;"> <img src="webcamlogo.png" style="vertical-align:text-top"/> <select id="cameraNames" size="1" onChange="changeCamera()" style="width:245px;font-size:10px;height:25px;"> </select> </div> </div> <div style="width:135px;float:left;"> <p><button class="btn btn-small" id="btn1" onclick="base64_tofield()">Snapshot to form</button></p> <p><button class="btn btn-small" id="btn2" onclick="base64_toimage()">Snapshot to image</button></p> </div> <div style="width:200px;float:left;"> <p><textarea id="formfield" style="width:190px;height:70px;"></textarea></p> <p><img id="image" style="width:200px;height:153px;"/></p> </div> </body> </html>
  7. Pessoal estou com problema na integração Jquery e asp. Fiz uma página de teste para podermos avaliar o que está ocorrendo. Na referida página eu listo através de um while os registro do banco. dentro do while existe dois campos ocultos com o id e nome (dados que eu preciso recuperar ao clicar no botão #btnExcluir) O erro é que ele só recupera os dados do primeiro registro exibido, mesmo eu clicando no botão referente à outro registro ele exibi o dados do primeiro. Segue o link para avaliação e melhor entendimento do que está ocorrendo: http://www.cojm.com.br/adm/teste_exclusao.asp Por favor pessoal, me ajudem... estou precisando muito disto. Obrigado. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include file="../Connections/cnAccessPoint.asp" --> <% Dim rsPedidos Dim rsPedidos_cmd Dim rsPedidos_numRows Set rsPedidos_cmd = Server.CreateObject ("ADODB.Command") rsPedidos_cmd.ActiveConnection = MM_cnAccessPoint_STRING rsPedidos_cmd.CommandText = "SELECT * FROM tbl_Pedidos ORDER BY DtCadastro ASC" rsPedidos_cmd.Prepared = true Set rsPedidos = rsPedidos_cmd.Execute rsPedidos_numRows = 0 %> <!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>Teste de confirmação antes de excluir</title> </head> <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js"></script> <script src="../Js/teste_confirmacao/scripts/jquery.js" type="text/javascript"></script> <script src="../Js/teste_confirmacao/scripts/jquery.ui.draggable.js" type="text/javascript"></script> <script src="../Js/teste_confirmacao/scripts/jquery.alerts.js" type="text/javascript"></script> <link href="../Js/teste_confirmacao/css/jquery.alerts.css" rel="stylesheet" type="text/css" media="screen" /> <script type="text/javascript"> $(document).ready( function() { $('.btn_excluir').click(function(){ var nome = $('#txt_nome').val(); var id = $('#txt_id').val(); jConfirm('Deseja excluir este pedido?','Atenção, escolha uma opção!', function(r){ if (r == true){ jAlert('O pedido que será deletado é: ' +id+ ' | '+nome) } }); }); }); </script> <style type="text/css"> #exclusao{ clear:both; padding: 5px; width:80%; height:auto; margin:5px auto; border:1px solid #999999; text-align:left; font-family:Verdana, Geneva, sans-serif; font-size:12px; } #exclusao h1{ font:Verdana, Geneva, sans-serif; font-size:16px; color:#333; font-weight:bold; } #exclusao span{ font:Verdana, Geneva, sans-serif; font-size:12px; color:#666; font-weight:bold; } </style> <body> <% While NOT rsPedidos.EOF %> <div id="exclusao"> <form id="form1" name="form1" method="post" action=""> <h1>LISTA DE PEDIDOS DE ORAÇÃO</h1> <p> <span>Id:</span> <%=(rsPedidos.Fields.Item("id").Value)%><br /> <span>DtCadastro:</span> <%=(rsPedidos.Fields.Item("DtCadastro").Value)%><br /> <span>Origem:</span> <%=(rsPedidos.Fields.Item("Origem").Value)%> <br /> <span>IP:</span> <%=(rsPedidos.Fields.Item("IP").Value)%><br /> <span>Server:</span> <%=(rsPedidos.Fields.Item("Server").Value)%><br /> <span>Nome:</span> <%=(rsPedidos.Fields.Item("Nome").Value)%> <br /> <span>Email:</span> <%=(rsPedidos.Fields.Item("Email").Value)%> </p> <p><input type="button" name="btn_excluir" id="btn_excluir" class="btn_excluir" value="Excluir pedido" /> <input name="txt_id" type="hidden" id="txt_id" value="<%=(rsPedidos.Fields.Item("id").Value)%>" /> <input name="txt_nome" type="hidden" id="txt_nome" value="<%=(rsPedidos.Fields.Item("Nome").Value)%>" /> </p> </form> </div> <% rsPedidos.MoveNext() Wend %> <p> </p> </body> </html> <% rsPedidos.Close() Set rsPedidos = Nothing %>
  8. Boa tarde pessoal. Estou com problema na integração do Jquery + asp clássico. Na página eu busco os dados do banco e exibo na tela através de uma while. Mas quando uso a função onclick ele só pega o valor do primeiro registro que imprime na tela. Eu preciso de clicar no botão #btnExcluir de qualquer registro que aparecer e capturar os seguintes dados respectivamente: #txt_id, #txt_nome e exibir no alert. segue abaixo o código para avaliação. Por favor, me ajudem! link para conferência: http://www.cojm.com.br/adm/teste_exclusao.asp obrigado! <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include file="../Connections/cnAccessPoint.asp" --> <% Dim rsPedidos Dim rsPedidos_cmd Dim rsPedidos_numRows Set rsPedidos_cmd = Server.CreateObject ("ADODB.Command") rsPedidos_cmd.ActiveConnection = MM_cnAccessPoint_STRING rsPedidos_cmd.CommandText = "SELECT * FROM tbl_Pedidos ORDER BY DtCadastro ASC" rsPedidos_cmd.Prepared = true Set rsPedidos = rsPedidos_cmd.Execute rsPedidos_numRows = 0 %> <!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>Teste de confirmação antes de excluir</title> </head> <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js"></script> <script src="../Js/teste_confirmacao/scripts/jquery.js" type="text/javascript"></script> <script src="../Js/teste_confirmacao/scripts/jquery.ui.draggable.js" type="text/javascript"></script> <script src="../Js/teste_confirmacao/scripts/jquery.alerts.js" type="text/javascript"></script> <link href="../Js/teste_confirmacao/css/jquery.alerts.css" rel="stylesheet" type="text/css" media="screen" /> <script type="text/javascript"> $(document).ready( function() { $('.btn_excluir').click(function(){ var nome = $('#txt_nome').val(); var id = $('#txt_id').val(); jConfirm('Deseja excluir este pedido?','Atenção, escolha uma opção!', function(r){ if (r == true){ jAlert('O pedido que será deletado é: ' +id+ ' | '+nome) } }); }); }); </script> <style type="text/css"> #exclusao{ clear:both; padding: 5px; width:80%; height:auto; margin:5px auto; border:1px solid #999999; text-align:left; font-family:Verdana, Geneva, sans-serif; font-size:12px; } #exclusao h1{ font:Verdana, Geneva, sans-serif; font-size:16px; color:#333; font-weight:bold; } #exclusao span{ font:Verdana, Geneva, sans-serif; font-size:12px; color:#666; font-weight:bold; } </style> <body> <% While NOT rsPedidos.EOF %> <div id="exclusao"> <form id="form1" name="form1" method="post" action=""> <h1>LISTA DE PEDIDOS DE ORAÇÃO</h1> <p> <span>Id:</span> <%=(rsPedidos.Fields.Item("id").Value)%><br /> <span>DtCadastro:</span> <%=(rsPedidos.Fields.Item("DtCadastro").Value)%><br /> <span>Origem:</span> <%=(rsPedidos.Fields.Item("Origem").Value)%> <br /> <span>IP:</span> <%=(rsPedidos.Fields.Item("IP").Value)%><br /> <span>Server:</span> <%=(rsPedidos.Fields.Item("Server").Value)%><br /> <span>Nome:</span> <%=(rsPedidos.Fields.Item("Nome").Value)%> <br /> <span>Email:</span> <%=(rsPedidos.Fields.Item("Email").Value)%> </p> <p> ​ <input type="button" name="btn_excluir" id="btn_excluir" class="btn_excluir" value="Excluir pedido" /> <input name="txt_id" type="hidden" id="txt_id" value="<%=(rsPedidos.Fields.Item("id").Value)%>" /> <input name="txt_nome" type="hidden" id="txt_nome" value="<%=(rsPedidos.Fields.Item("Nome").Value)%>" /> </p> </form> </div> <% rsPedidos.MoveNext() Wend %> <p> </p> </body> </html> <% rsPedidos.Close() Set rsPedidos = Nothing %>
  9. Evans Paulo

    Insert com condição where

    Olá Pessoal, Estou tentando utilizar o comando abaixo mais da erro, já procurei na net e não encontrei nenhuma solução. Comando diretamente no mysql ou via página asp, da erro do mesmo jeito. insert into `tabelacarros` (marca) VALUES ('"&marcanovo&"') where id='"&id&"'" o comando da erro na condição where id='"&id&"'" Acha o id o problema é que da erro e não insere. [MySQL][ODBC 5.1 Driver][mysqld-5.6.21-69.0-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'where id='91'' at line 1
  10. Bom dia galera! Tenho o seguinte problema: Na página que estou alterando já existia um modal (modalOrgao), e já estava sendo utilizado o Script Manager dentro da Master Page. Esse modal carrega um gridview com seus resultados, até ai tudo bem... funciona sem nenhum problema! Mas surgiu uma alteração e foi necessário chamar um novo modal (modalDetalhamento) com outro gridview (todos dentro de um UpdatePanel)... Ai surge o problema! Como esse novo modal é chamado? Detro de um gridview existe um botão que ao clicar carrega o detalhamento de informações. O modal é criado as informações são processadas, e antes que sejam apresentadas no modal, a página interia faz o postback e consecutivamente o modal some e as informações não são apresentadas. O modalOrgao, ele continua com seu funcionamento correto, não faz o postback na pagina e sim, somente, na area designada ao modal. Procurei no fórum e em outros locais, mas não consegui encontrar a solução. Não sei se passei corretamente as informações. Tenho pouco tempo no ambiente profissional e já estou a mais de 1 dia com esse problema! Desde já agradeço! Segue um pedaço da minha MasterPage: <form id="form1" runat="server" autocomplete="off" class="formValidation"> <asp:ScriptManager id="ScriptManager1" runat="server"></asp:ScriptManager> <uc1:barraTopo ID="barraTopo" runat="server" /> <div id="container"> <uc2:cabecalho ID="cabecalho" runat="server" /> <div id="content"> <uc3:menu ID="menu" runat="server" /> <div id="main"> <asp:Label ID="lblMensagem" runat="server" Text="Mensagem" CssClass="statusRealizado" Visible="false"></asp:Label> <asp:ContentPlaceHolder id="contentPlaceHolder" runat="server"> </asp:ContentPlaceHolder> <asp:ContentPlaceHolder id="contentPlaceHolder1" runat="server"> </asp:ContentPlaceHolder> <asp:ContentPlaceHolder id="contentPlaceHolder2" runat="server"> </asp:ContentPlaceHolder> </div> </div> <uc4:rodape ID="rodape" runat="server" /> </div> </form>
  11. Script que passa o valor pra div , queria receber esses valores com uma variável em asp como faço ? <script language="javascript"> function ChamarLink() { var valorCombo = document.getElementById("selectOK").value; document.getElementById("receberLink").innerHTML = " "+valorCombo+" </a>"; } </script> <div id="receberLink2"></div> <div id="receberLink"></div> Como colocar o texto que essa div recebe de um campo select como variável em asp ,preciso colocar o valor dessa div dentro do campo value que é o botão do pag seguro, mais se simplesmente jogo ela la dessa forma o pag seguro não interpreta o valor que rela recebe. Ex: http://deliverydocomercio.com.br/malu/materias.asp?materia=83 queria jogar os valores do select no botão pag seguro na mesma página
  12. Preciso de uma ajuda para inserir dados de um tabela em outra comparando os id. Ex. quero inserir dados nome,email da tabela1 para tabela2 que possuam mesmo id. tipo INSERT `vagas_wordpress2` (titulo2) SELECT titulo2 FROM `tabela1` WHERE `tabela1`.`id` = `tabela2`.`id` esse é erro apresentado #1054 - Unknown column 'tabela2.id' in 'where clause'
  13. Olá galera! Tenho uma dúvida: preciso criar um formulário para web onde seja possível o usuário enviar um conteúdo a uma lista de email, semelhante a um email marketing. A diferença é que o email remetente deve ser o email da pessoa que acessou o site, e não um mesmo endereço de email padronizado. É possível fazer isso? Postei aqui porque só manjo mesmo de asp pra fazer isso... kkk Agradeço a ajuda!!
  14. samuelpachecoqds

    Apache com ASP nao roda PHP

    Peguei um Cpanel pra hospedar um site em PHP, mas tem um antigo que já esta nele que é feito em .aspx. Minha idéia é criar uma pasta (www.site.com.br/novapasta) e colocar esse novo site lá pra rodar os 2 juntos por enquanto. Mas não estou conseguindo achar o que ta em .aspx e mesmo, colocando o que ta em php na pasta /home/public_html ele nao funciona. Alguem tem ideia de como fazer isso?
  15. gabrieldmello

    Aspboleto.com.br ou Atual?

    Boa noite galera, Trabalho em uma empresa, sempre usamos uma forma de boleto do banco do brasil, assim desde quando entrei aqui. Hoje precisamos mudar para o boleto da caixa. Encontrei um código do VirtuaStore, porém é antigo, acho que os padrões mudaram, pois não consegui utiliza-lo. Ele pede umas informações sobre a conta, pedi todas que identifiquei como necessárias ao contador da empresa, não sei realmente quais são necessárias mexer, confesso. Resultado, estou pensando em comprar esse código de gerar boletos do aspboleto.com da caixa, por 60,00. O que me recomendam? O código que uso ainda é funcional? Boa Parte/Importante do Código: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="..\global.inc" --> <%response.Buffer = true%> <%session.LCID = 1046%> <% '######################################################################################### '#---------------------------------------------------------------------------------------- '# BOLETO CEF - VERSÃO 1.0 '# Adaptado por: MJSIERRA@IG.COM.BR '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# CÓDIGO: VirtuaStore Versão OPEN - Copyright 2001-2004 VirtuaStore '# URL: http://comunidade.virtuastore.com.br '# E-MAIL: comunidade@virtuastore.com.br '# AUTORES: Otávio Dias(Desenvolvedor) '... '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### %> <% '******************************** '****FUNÇÕES******************** '******************************** Function FormataData(Data) If Data <> "" Then FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data) End Function '******************************** ' CONSTANTES '******************************** cons_banco = "104" 'bol_banco, Num do Banco 03 posições cons_dvbanco = "0" 'bol_dvbanco, Digito verificador do banco 01 posição cons_agencia = "XXXX" 'bol_agencia, sem digito 04 posições cons_conta = "XXXXX" 'bol_conta, ContaCedente (Somente Números) 05 posições cons_dvconta = "X" 'Digito verificador da CC 01 posição cons_carteira= "SR" 'Código da Carteira: pode ser SR (Sem Registro) ou CR (Com Registro) - (Confirmar com gerente qual usar) - bol_carteira cons_moeda = "9" cons_especie = "R$" cons_cedente = "Empresa" 'bol_cedente cons_dadoscedente = "Rua Empresa, 111 - Bairro - CEP: 55555-005" 'bol_dadoscedente cons_codigocedente= "XXXXXXXXXXX" 'bol_nr_cedente - 11 Caracteres cons_dvcodigocedente= "X" cons_taxaboleto = "2.95" '******************************** ' CARREGAR PERFIL CLIENTE '******************************** id = request.QueryString("id") set rs = conn.execute ("select * from fisica where codcpf = '"& id &"' ") fisica = rs("codigo") nome = rs("nome") CPF = rs("cpf") bolsaestudo = rs("bolsaestudo") valordabolsa = rs("valordabolsa") prouni = rs("prouni") set rs = conn.execute ("select * from inscricao where fisica = '"&fisica&"' ") inscricao=rs("codigo") curso = rs("codcurso") if curso=4 then ' valor=400 'mensalidade else valor=5 'mensalidade end if if(bolsaestudo=2 and valordabolsa=1) then ' 50% valor=valor/2 elseif(bolsaestudo=2 and valordabolsa=2) then ' 100% valor=0 elseif(bolsaestudo=1) then 'espaço para plano end if datahoje = now datavencimento = dateAdd("d",5,date) set rs = conn.execute ("select * from boleto where fisica = '"& fisica &"' ") if rs.eof then set rs = conn.execute ("insert into boleto (fisica, inscricao, valor, dataemissao, datavencimento) values ('"& fisica &"', '"&inscricao&"', '"&valor&"', '"&datahoje&"', '"&datavencimento&"')") else set rs = conn.execute ("update boleto set valor='"&valor&"' where fisica = '"& fisica &"' ") end if '******************************** ' VARIÁVEIS '******************************** var_sacado = nome 'Request.QueryString("sacador") var_CPFSacado= CPF 'Request.QueryString("cpf") '*************************************** Function Converten(pNumeron) Converten = Right(String(8,"0") &_ cstr(pNumeron * 100),8) End Function '**************************************** '************************************ 'Preencher com zeros a esquerda Function strZeros(strValor,Tamanho) while len(strValor) < Tamanho strValor = "0" & strValor wend StrZeros=strValor End Function '********************************** 'Data de Vencimento 5 dias após a data do servidor Ano = DatePart("yyyy", DateAdd("d", 5, date)) Mes = DatePart("m", DateAdd("d", 5, date)) if Len(Mes) < 5 then Mes = "0" & Mes end if Dia = DatePart("d", DateAdd("d", 5, date)) if Len(Dia) < 5 then Dia = "0" & Dia end if Dim dataHoje dataHoje = day(now)&"/"&month(now)&"/"&year(now) '********************************** set rs = conn.execute ("select * from boleto where fisica = '"& fisica &"' ") valorMensalidade= rs("valor") dataemissao = rs("dataemissao") datavencimento = rs("datavencimento") var_datadocumento = FormataData(dataemissao) 'Data de emissão do Boleto var_datavencimento = FormataData(datavencimento) 'Data de Vencimento do Boleto - REGRA: Formato DD/MM/AAAA var_valordocumento = Cstr(valorMensalidade)+",00" 'Valor do Documento var_numerodoc = rs("codigo") 'Num do Documento 'Carteira SR: 80, 81 ou 82 - Carteira CR: 90 (Confirmar com gerente qual usar) var_inicionossonumero = "80" 'var_nossonumero = CStr(Cint(var_inicionossonumero)+var_numerodoc) 'Nosso numero sem o DV - REGRA: Máximo de 8 caracteres! var_nossonumero = var_numerodoc 'Nosso numero sem o DV - REGRA: Máximo de 8 caracteres! var_instrucoes="<B><BR>Não receber após o vencimento.<BR> MULTA de 0,02% por dia de atraso<BR> </b>" var_intervalo = CDate(Var_datavencimento)-CDate(Var_datadocumento) if var_intervalo > 5 then var_observacoes="<B> <BR> Pagamento referente à Blá Blá Blá <BR> Outra Linha <BR> <BR></b>" else var_observacoes="<B> <BR> Pagamento referente à Blá Blá Blá <BR> Outra Linha <BR> <BR></b>" end if if var_numerodoc = "" then if var_CPFSacado<>"" then var_nossonumero = mid(var_CPFSacado,1,7) end if end if Informações que achei necessárias para gerar o boleto e que pedi ao contador:
  16. ukow

    Select * From

    Olá! Bom, eu tenho duas tabelas no meu banco de dados A "Parceiro" e "Planejamento" Estou fazendo uma busca por todos os parceiros que sejam da Empresa X sql = "SELECT * FROM vw_parceiro where 1=1" if request("EmpresaNome") <> "" then sql = sql & " and EmpresaNome like '" & request("EmpresaNome") & "%'" sqlT = sqlT & " and EmpresaNome like '" & request("EmpresaNome") & "%'" end if set Aluno = GetRS(sql) E após buscar esses alunos eu quero que me mostre em uma tabela os dados de planejamento deles. sql = "SELECT * FROM planejamento where id_parceiro ="&Aluno("id_parceiro") set Planejamento = GetRS(sql) Porém quando eu peço para exibir em uma tabela, aparece apenas o planejamento de 1 aluno da minha primeira busca. <% do while not Planejamento.EOF%> <tr> <td class="cont1"> <%=Planejamento("id_planejamento")%> </td> </tr> <% Planejamento.MoveNext() loop %> Imagino que seja porque não há um loop para mudar para o próximo parceiro; então como posso proceder? Obrigado!
  17. Boas, To a tentar fazer um update mas ele da-me sempre erro apesar da sintaxe estar correcta e o campo na bd estar correcto tambem. Se eu fizer um response.write hemo antes ele devolve o valor normalmente, o que se pode estar a passar?
  18. mediacerta

    escrever json com aspjson

    Será que alguma alma caridosa pode me informar como escrever o json abaixo utilizando aspjson (http://www.aspjson.com/) ? Agradeço de verdade... já arranquei meio mundo de cabelo e não consigo escrever no formato abaixo. [ { "file_name": "xx", "user_name": "xxx", "action_date": "xxx", "action_text": "xxx", "user_profile_photo": "xxx" }, { "file_name": "yyy", "user_name": "yyy", "action_date": "yyy", "action_text": "yyy", "user_profile_photo": "yyy" } ] :(
  19. viniciusvinicius

    ADODB.Command erro '800a0bb9'

    Boa tarde amigos, Estou com um problema e estou me virando pois não mexo com nenhuma programação. sei apenas o basíco. o erro que esta dando e esse: ADODB.Command erro '800a0bb9' Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /sistema/classes/Login.asp, linha 47 ________________________________________________________________________________________________ Dim Cmd Dim rsLogin, strSQL Set Cmd = Server.CreateObject("ADODB.Command") Cmd.ActiveConnection = Cnxn strSQL = "SELECT * FROM TBL_USUARIO WHERE USU_LOGIN = ? AND USU_SENHA= ? AND USU_STATUS = '1'" Cmd.CommandText = strSQL Cmd.Parameters.Append Cmd.CreateParameter("@PARAM1",adVarChar,adParamInput,255, pLogin ) Cmd.Parameters.Append Cmd.CreateParameter("@PARAM2",adVarChar,adParamInput,255, pSenha ) OBS: Sistema está em ASP, e o banco de dados SQL SERVER O que fazer ? *-*
  20. ukow

    Problemas com Include

    Olá! Bom, estou montando um site porém dessa vez o cliente não hospedou o site com o da empresa aonde trabalho. No servidor da empresa eu subi o site com as includes normalmente e visualizei, porém no servidor do cliente a página fica em branco. Solicitei que fosse adicionado o suporte para ASP no servidor deles e está ok, porém quando incluo um arquivo com a Include a página não me responde absolutamente nada no servidor deles. O que pode ser? Obrigado!
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.