Ir para conteúdo
Fórum Script Brasil

Notax

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    501

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Notax postou

  1. Notax

    [resolvido] Segurança

    uma questão postou Notax ASP

    Penso que esta dúvida seja um tanto simplória... mas não encontrei a resposa de forma alguma... por isso estou mais uma vez lançando mão aqui do fórum... desculpem pelo incomodo! Eu to fazendo um site com acesso restrito... ou seja, quando um usuário digita login e senha é enviado automaticamente para o endereço www.meudominio.com/o_login_que_ele_digitou ou seja... pra cada usuario que cadastra um login eu crio uma pasta com o nome do mesmo login e nesta pasta tem os arquivos index e etc exclusivos deste usuário... o problema, é que hoje, o que acontece é que se eu digito simplesmente: www.meudominio.com/algum_login_cadastrado eu consigo acesso as informações sem ter que digitar usuário ou senha... Alguém saberia como me ajudar para evitar este tipo de problema? Agradeço a atenção e um forte abraço a todos!
  2. Notax
    Pessoal, estou aqui denovo pra perguntar mais essa dúvida: na verdade são tres duvidas... Tenho uma consulta por palavras que está funcionando assim: cmbTipo = request.form("cmbTipo") ComandoSQL = "select * from a_pagar where tipo = '" &cmbTipo& "'" o primeiro problema é que eu queria fazer ela entre datas tb... então tentei da seguinte forma: ComandoSQL = "select * from a_pagar where tipo = '" &cmbTipo& "' "and" WHERE DATA BETWEEN #" & DateSerial(anoi,mesi,diai) & "# and #" & DateSerial(anof,mesf,diaf) & "# ORDER BY DATA ASC" deu esse erro: Microsoft VBScript runtime error '800a000d' Type mismatch: '[string: "select * from a_paga"]' /padrão/a_pagar_resultado_consulta_tipo.asp, line 14 ... que vem a ser essa mesma linha aí em cima! notem que o nome da tabela onde quero fazer a consulta é a_pagar mesmo... está escrito certo! o segundo problema é neste campo cmbTipo que está abaixo... porque. ele permite escolhas múltiplas e eu gostaria que a consulta desse o resultado de uma ou mais palavras... sem limites... siginificaria dizer que se o cara quisesse escolher 5 palavras ele poderia... e a consulta sairia entre as datas iniciais e finais com todas as palavras que ele escolheu... no bd, estas palavras ficam na coluna TIPO...quando escolho mais de uma palavra não retorna nada... nem erro! <select name="cmbTipo" size="5" multiple id="cmbTipo"> <option value="01" selected>SELECIONE</option> <option>ÁGUA</option> <option>ALUGUEL</option> <option>CHEQUES</option> <option>CLIENTES</option> <option>CONDOMINIO</option> <option>CONTADOR</option> </select> a terceira e última dúvida é com relação a soma... que está conforme espressão abaixo... mas ela ta retornando total errado... o que eu quero é a soma entre datainicial e a datafinal, mas somente envolvendo o valor das linhas das tabelas das palavras selecionadas... no bd, o valor que eu quero somar está no campo valor... e a tebela é exatamente assim: | codigo | data | histórico | tipo | valor | strsql2 = "select SUM(valor) as tvalor from a_pagar WHERE DATA BETWEEN #" & DateSerial(anoi,mesi,diai) & "# and #" & DateSerial(anof,mesf,diaf) & "#" alguém pode me dar essa força? Agradeço desde já a atenção de todos...
  3. Notax
    O amigão... valeu pela atenção... tirei a chave... e foi só felicidade! po Gnomo... valeu a força mesmo... forte abraço... Muito obrigado a todos que contrubuiram, valeu mesmo!
  4. Notax
    entendi... mas minha amiga... agora aconteceu um troço que deu um nó na minha cabeça... fui tentar fazer este tratamento de erros em outro script que tenho da mesma aplicação... é basicamente a mesma coisa... mas nesse novo script não funcionou... os alertas não funcionam... achei que eu tivesse fazendo algo errado... então copiei e colei, alterando somente as variaveis... e mesmo assim continuou não funcionando... por que sera? onde será que estou errando agora? o script novo é esse abaixo: <html> <head> <title>SJ FINANCE</title> <script language="javascript"> function valida_campo() { var txtData = document.form.txtData; var txtHora = document.form.txtHora; var txtCompromisso = document.form.txtCompromisso; if (txtData.value==""){ alert("Digite a Data!"); txtData.focus() return false } if (txtHora.value==""){ alert("Digite o horário do compromisso!"); txtHora.focus() return false } if (txtCompromisso.value==""){ alert("Digite o compromisso!"); txtCompromisso.focus() return false } } } </script> </head> <body> <form method="post" action="insert_into_agenda.asp" name="form" onsubmit="return valida_campo()"> <p align="left"><font face="Abadi muito Condensed Light"><b><i><u>Incluir Compromisso na Agenda</u></i></b></font></p> <p align="left"><font face="Abadi muito Condensed Light"><i>Data</i> <input name="txtData" type="text" id="txtData" size="16"> <i>ex.: dd/mm/yy</i></font></p> <p align="left"><font face="Abadi muito Condensed Light"><i>Hora</i> <input name="txtHora" type="text" id="txtHora" size="20"> <i>ex.: hh:mm</i></font></p> <p align="left"><font face="Abadi muito Condensed Light"><i>Compromisso</i> <input name="txtCompromisso" type="text" id="txtCompromisso" size="100"></font></p> <p align="left"><font face="Abadi muito Condensed Light"><i><input type="submit" value="Submeter" name="B1"><input type="reset" value="Redefinir" name="B2"></p> </form> </body> </html>
  5. Notax
    AHÃ... agora funcionou... só inverti um pouquinho a lógica pra ficar aparecendo os nomes no banco... e não os numeros... ficou assim: } if (cmbTipo.value=="01"){ alert("Selecione o Tipo!") cmbTipo.focus() return false } <select name="cmbTipo" size="1" id="cmbTipo"> <option value="01">SELECIONE</option> <option>HONORÁRIOS</option> <option>ALUGUEL</option> <option>CLIENTES</option> <option>FORNECEDORES</option> <option>CONDOMINIO</option> <option>LUZ</option> <option>AGUA</option> <option>TELEFONE</option> <option>GAS</option> <option>ESCOLAS</option> <option>CHEQUES</option> <option>SEGURO</option> <option>SAUDE</option> <option>OUTROS</option> <option>PRÓ-LABORE</option> </select> daí deu bem certinho! valeu gnomo... brigadão pela força! Andreia... muito obrigado mesmo, de coração viu? forte abraço a todos!
  6. Notax
    Mais bah! funcionou sim! Andreia... muito obrigado! o único que não funcionou foi esse aqui: if (cmbTipo.value=="SELECIONE"){ alert("Selecione o Tipo!") cmbTipo.focus() return false } que se refere a este campo aqui: <select name="cmbTipo" size="1" id="cmbTipo"> <option>SELECIONE</option> <option>HONORÁRIOS</option> <option>ALUGUEL</option> <option>CLIENTES</option> <option>FORNECEDORES</option> <option>CONDOMINIO</option> <option>LUZ</option> <option>AGUA</option> <option>TELEFONE</option> <option>GAS</option> <option>ESCOLAS</option> <option>CHEQUES</option> <option>SEGURO</option> <option>SAUDE</option> <option>OUTROS</option> <option>PRÓ-LABORE</option> </select> a minha ideia era caso estivesse aparecendo a palavra SELECIONE... a primeira da lista... é sinal de que o usuário não selecionou nada! daí o alerta... isso é possivel ou devo mudar a estratégia? valeu mais uma vez... como sempre tu fostes exata... forte abraço
  7. Notax
    Pois eu entendi o que tu quiseste me dizer... mas não to coneseguindo fazer uma diferenciação na prática... por que essa função de tratamento de erros (valida_campo) acima é só pra quando o chcboleto tiver desmarcado... quando e se ele tiver marcado preciso complementar com alertas obrigando o preenchimento do campo txtQuantidade e da seleção de uma das opções do grupo qdrRepercussao... que nem fiz ainda porque a primeira parte eu já cometi algum erro! pra ilustrar... se fosse no vbscript colocaria assim: sub marcado() if... 'tratamento de erros end if end sub sub desmarcado () if... 'tratamento de erros end if end sub if chcBoleto = false then call desmarcado end if if chcBoleto = true then call marcado end if a parte do código onde chama a Exibe_Campo é esta: <p align="left"><font face="Abadi muito Condensed Light"><input name="chcBoleto" type="checkbox" id="chcBoleto" value="ON" onclick="ExibeCampo(this.checked)"><i>Clique para ativar repetições (lançamentos de contas tipo carnês ou parcelamentos)</i></font> <div id="div" style="display:'none'";><p align="left">Nº de Parcelas <input name="txtQuantidade" type="text" id="txtQuantidade" size="5"></font> <p align="left"><font face="Abadi muito Condensed Light"><i>Repercussão:</i></font></p> <font face="Abadi muito Condensed Light"><i>semanal<input type="radio" value="1" name="qdrRepercussao">&nbsp; mensal<input type="radio" name="qdrRepercussao" value="2"> <p>semestral <input type="radio" name="qdrRepercussao" value="3"> anual <input type="radio" name="qdrRepercussao" value="4"></div> valeu pela atenção e por toda paciência que tu tens... desculpe pelo incomodo!
  8. Notax
    pessoal... estou aqui denovo... com mais uma dúvida! olha só... tenho estas duas funções abaixo no mesmo script... a primeira é a função ExibeCampo e a segunda é a Função valida_campo... a primeira... faz com que alguns campos fiquem escondidos enquanto o checkbox "chcBoleto" não estiver marcado... e a segunda é tipo um tratamento para erros! só que quando eu coloquei a segunda função a primeira parou de funcionar... denovo... ou seja, quando clica em chcBoleto ele não mostra os campos ocultos... sendo que sem a segunda função funciona legal! alguém sabe onde eu errei? <script language="javascript"> function ExibeCampo(status) { if (status) document.getElementById("div").style.display = 'block'; else document.getElementById("div").style.display = 'none'; } function valida_campo() { chcBoleto = false; if (!chcBoleto) } { var txtdd = document.form.txtdd.value if (txtdd==""){ alert("Digite o dia!"); document.form.txtdd.focus() return false } var txtmm = document.form.txtmm.value if (txtmm==""){ alert("Digite o mês!"); document.form.txtmm.focus() return false } var txtaa = document.form.txtaa.value if (txtmm==""){ alert("Digite o ano!"); document.form.txtaa.focus() return false } var cmbTipo=document.form.cmbTipo.value; if (cmbTipo=="SELECIONE"){ alert("Selecione o Tipo!") document.form.cmbTipo.focus() return false } var txtDescricao=document.form.txtDescricao.value; if (txtDescricao==""){ alert("Digite o Histórico de seu lançamento!") document.form.txtHistorico.focus() return false } var txtValor=document.form.txtValor.value; if (txtValor==""){ alert("Digite o valor!") document.form.txtValor.focus() return false } </script> </head> <body> <form method="post" action="insert_into_a_pagar_mensal.asp" name="form" onsubmit="return valida_campo()"> valeu pela atenção.
  9. Notax
    Oi Andreia... brigadão denovo! tu és ótima nisso! Funcionou! muito obrigado... viu? forte abraço
  10. Notax
    Bom... fiz mais alguns testes aqui... realmente a função só ta funcionando com chcBoleto desmarcado... por que é quando eu marco o chcBoleto que ficam visiveis os radiobuttons qdrRepercussao... só que eu não to conseguindo fazer essa diferenciação na funcao abaixo... function data() { chcBoleto = false; if (!chcBoleto) document.frm.action = 'insert_into_a_pagar.asp'; -> ATÉ AQUI FUNCIONA!!! AQUI TERIA QUE TER ALGO DO TIPO, MAS DESSE JEITO NÃO TA FUNCIONANDO... chcBoleto = true; if (qdrRepercussao == 1) document.frm.action = 'insert_into_a_pagar_semanal.asp'; if (qdrRepercussao == 2) document.frm.action = 'insert_into_a_pagar_mensal.asp'; document.frm.submit(); } alguém pode me dar essa força? outra coisa... baixei uns tutoriais de java... mas nenhum dos que eu baixei ensinam sintaxe javascrip... será que alguém conhece algum que tenha e que possa me indicar? ou derepente alguma indicação de um bom livro? valeu mais uma vez forte abraço a todos.
  11. Notax
    ihhh... bah... seimais ou menos asp... ou melhor menos menos... mas java script sou uma negação mesmo! não entendo nada de js! mas brigadão pelas preciosas ajudas... prometo que vou estudar mais pra para de incomodar... agora o que está acontecendo é que quando o chcBoleto não ta marcado ele vai pra página certa... mas quando ele tá marcado é que eu posso selecionar os qdrRepercussao... que não estão funcionando... então tentei adaptar aquele código que tu me mandou, mas seguiu não funcionando... fiz assim: function data() { chcBoleto = false; if (!chcBoleto) document.frm.action = 'insert_into_a_pagar.asp'; chcBoleto = true; if (qdrRepercussao == 1) document.frm.action = 'insert_into_a_pagar_semanal.asp'; if (qdrRepercussao == 2) document.frm.action = 'insert_into_a_pagar_mensal.asp'; document.frm.submit(); } vai sempre só pro inert_into_a_pagar.asp valeu mais uma vez por toda atenção...
  12. Notax
    Oi Andreia... muito obrigado pelo teu retorno... sempre me dando uma baita força... Olha só... fiz o que disseste, e apesar de não aparecer mais mensagem de erros nenhuma também não vai pra página certa, é como se ele desse só um refresh e ficasse na mesma página... valeu a força viu... muito obrigado mesmo... forte abraço
  13. Notax
    pessoal, por que que essa função não está funcionando... a mensagem de erro que aparece é BAD REQUEST (INVALID URL) <html> <head> <title>SJ FINANCE</title> <script language="javascript"> { Function data() if chcBoleto = false then document.form.action = 'insert_into_a_pagar.asp'; document.form.submit(); if qdrRepercussao = 1 then document.form.action = 'insert_into_a_pagar_semanal.asp'; document.form.submit(); if qdrRepercussao = 2 then document.form.action = 'insert_into_a_pagar_mensal.asp'; document.form.submit(); } </script> </head> <body> <form method="post" name="form" onsubmit="return data()"> valeu A FORÇA... ABRAÇAO
  14. Notax

    Somatório Em Consulta Por Periodo

    pergunta respondeu ao Notax de Notax em ASP

    Pois é... concordo em genero numero e grau com o que estás dizendo... realmente é uma grande dificuldade minha... Adaptar os comandos "padrões" que os livros e apostilas ensinam às necessidades específicas... Tenho estudado e me dedicado muito, mas as vezes coisas "bobas" acontecem e eu não sei corrigi-las... como agora por exemplo, onde estou tentando desenvolver uma função que dependendo de algumas variáveis enviem para um ou outro destino... Parece barbada... mas pra mim to tomando um laço desgraçado... por que quando coloco esta função, uma outro que eu tenho para de funcionar... e antes de perguntar esta dúvida no fórum, fiz e estou fazendo diversas pesquisas pra procurar resolvê-la sem ajuda de terceiros... Mas penso que este é o grande tesão do Fórum... este espaço democrático onde as pessoas podem perguntar o que bem entenderem... e quem bem entender pode responder o que bem quizer... Agradeço sua atenção e toda a dedicação que o amigo tem demenstrado tanto com as minhas dúvidas como também com as dúvidas de várias pessoas... Já disse isso pra Andreia_sp, pro Elber do fórum Access e agora pra ti... o que vocês fazem é muito nobre... procurar ajudar pessoas, sem conhecê-las a troco de nada... é muito bom isso... e espero aumentar cada vez mais meus conhecimentos para que eu possa algum dia ajudar tantas pessoas aqui no fórum como voces ajudam! Um forte abraço...
  15. Notax

    Somatório Em Consulta Por Periodo

    pergunta respondeu ao Notax de Notax em ASP

    consegui pessoal... muito obrigado pela força... ficou assim: strsql2 = "select SUM(valor) as tvalor from a_pagar" objrs2.open strsql2, objconn, 3, 2 valor_resultado = objrs2 ("tvalor") Response.Write(objrs2.fields("tvalor").value) forte abraço
  16. Notax

    Repetir Região

    uma questão respondeu Notax em ASP

    calma pessoal... Andreia, vamos focar a questão na sua dúvida, certo? Olha, eu também sou principiante... e to longe de saber tudo, mas passei por algo parecido com o que voce está passando aí... não sei se posso ajudar muito, mas enfim... não custa tentar... A dica do Bareta é muito boa e deves levá-la muito em consideração, por que comprovei na pele que o que ele falou é a mais pura verdade... Eu não entendi muito bem o que você quer fazer.... qual é exatamente o nome do compo que você está tentando repetir? Esse é o código completo? existe algum form de preenchimento antes dele? se sim, poste aí... na real... mesmo se não existir um form, mas se você já tiver feito mais algumas atualizações no script postado acima posta ele denovo atualizado, ok? abração a todos.
  17. Notax
    pois é... o meu gmail sempre bloqueia todas as imagens, daí tem uma opçao que eu aperto para mostra-las, ou então ainda posso configurar para mostrar sempre as imagens de tal remetente ou até de todos... Quando recebo atraves do outlook, por outro lado, as imagens abrem normalmente se quiser fazer mais algum teste pode mandar pro meu email: rspilki@gmail.com abração
  18. Notax

    Somatório Em Consulta Por Periodo

    pergunta respondeu ao Notax de Notax em ASP

    Po valeu a força... Não consegui "digerir" absolutamente tudo o que voce escreveu... mas gostei muito, até por que muitas vezes o que me falta é entender a lógica da coisa, já que os comandos eu até conheço... mas saber exatamente o que todos eles fazem eu ainda não sei... mas enfim, graças a sua ajuda bem como a de muitos outros que já me ajudaram aqui no forum estou podendo aprender cada vez mais... No entanto, devo estar cometendo algum outro erro, pois montei meu código com as alterações sugeridas, e apesar de não ter aparecido mensagem de erro nenhuma, tb. não retornou o valor total... meu código ficou assim: será que fiz mais alguma besteira? <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, anoi, mesi, diai, anof, mesf, diaf, ComandoSQL, Conexao, objrs2, strsql2, valor_resultado Dim strConnection anoi=year(Request.Form("dtInicial")) mesi=month(Request.Form("dtInicial")) diai=day(Request.Form("dtInicial")) anof=year(Request.Form("dtFinal")) mesf=month(Request.Form("dtFinal")) diaf=day(Request.Form("dtFinal")) Session.LCID=1033 ComandoSQL = "SELECT * FROM a_pagar WHERE DATA BETWEEN #" & DateSerial(anoi,mesi,diai) & "# and #" & DateSerial(anof,mesf,diaf) & "# ORDER BY DATA ASC" 'Set bd = Conexao.Execute(ComandoSQL) Session.LCID=1046 'Conectando com o banco de dados contato.mdb Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Seleciona da tabela contato strQuery = "SELECT * FROM a_pagar" Set ObjRs = objConn.Execute(ComandoSQL) set objrs2 = server.createobject("adodb.recordset") strsql2 = "select SUM(valor) as tqt from a_pagar" objrs2.open strsql2, objconn, 3, 2 valor_resultado = objrs2 ("tqt") Response.Write("valor_resultado") %> <html> <head> <title>SJ Finance - à Pagar - consulta</title> </head> <body bgcolor="#FFFFFF"> <div align="center" style="width: 756; height: 119"> <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif"><em><strong>Contas &agrave; <font color="#FF0000">Pagar</font> (consulta)</strong></em></font></p> <table width="947" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td width="947" valign="top" height="136"> <table border="0" cellpadding="0" cellspacing="0" width="958"> <tr bgcolor="ffffff"> <td width="958" colspan="3"> <table width="100%" border="0" cellspacing="2" cellpadding="2"> </table> </td> </tr> <tr> <td colspan="3"> <form method="GET" action="action_excluir_a_pagar.asp"> <table width="902" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="center" width="952"> <table border="0" width="883" height="8" cellpadding="2"> <tr bgcolor="#0099FF"> <td width="96" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">DATA</font></b></font></td> <td width="318" height="1" align="center"> <font size="1" color="FFFFFF"><b></b> </font> <font size="1" color="FFFFFF"><b><font face="Verdana">HIST&Oacute;RICO</font></b> </font></td> <td width="259" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">TIPO</font></b></font></td> <td width="184" height="1" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">VALOR</font></b> </font></td> </tr> <%While Not objRS.EOF %> <tr bgcolor="#FF9900"> <td width="96" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("data")%> </font> </b></font></div></td> <td height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> </font> </b></font> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("historico")%> </font></b></font></div></td> <td width="259" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("tipo")%></a> </font></b></font></div></td> <td width="184" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write formatnumber(objRS("valor"),2)%> </font></b></font></div></td> </tr> <% 'Movendo para o proximo registro objRS.MoveNext Wend 'Fechando as conexões objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </table> </td> </tr> </table> </form> </td> </tr> </table> </td> </tr> </table> </div> </body> </html> forte abraço
  19. Notax

    Datas?!? Só Funciona Do 13 Ao 31!

    pergunta respondeu ao Notax de Notax em ASP

    Pessoal, até que um dia nasceu! consegui... lógicamente isso não terria sido possivel sem a ajuda de vocês.. mas enfim, vamos esclarecer... Depois que o bareta deu a sugestão de desagrupar a data em tres campos, sendo um para dia, um para mes, e um para ano, as coisas começaram a clarear... até que resolvi começar do zero e ir testando função por função... As questões de session, no meu caso, só funcionam se eu coloco primeiro 1033 e depois vou pra 1046... e isso era um problema... segunda coisa... no meio do loop eu criava uma nova condição, que eram as datas do "parcelamento" esta data, apesar de a data inicial estar bem formatada, por uma razão ou outra invirtia novamente... daí eu coloquei única e exclusivamente nesta variável "dtParcela" que é igual a variável "data" a ser inclusa no banco a sugestão do romero... ou seja: data = Cdate(month (data) &"/"& day (data) &"/"& year (data)) o que eu acho que tava acontecendo era uma salada de fruta... porque eu tava formatando dtParcela, que é igual a data... e depois reformatava data denovo... então eu arrumava, desarrumava, arrumava denovo e assim dava o xabú que vocês viram... Putz... é difícil até de explicar quando deu certo! rsss mas enfim... era isso... agradeço a contribuição e a atenção de todos... um forte abraço notax
  20. Notax
    Pessoal, agora to com um probleminha no meu somatório... Tenho uma consulta por período e gostaria da mostrar o somatório total da coluna "valor" no final da consulta... tentei colocar o código abaixo, mas ta mostrando este erro: ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /padrão/a_pagar_resultado_consulta.asp, line 83 a linha 83 é: Response.Write(objrs2.fields("valor").value) o códi do somatório que tentei usar é: set objrs2 = server.createobject("adodb.recordset") strsql2 = "select SUM(valor) as tqt from a_pagar" objrs2.open strsql2, objconn, 3, 2 Response.Writeln(objrs2.fields("valor").value) Response.Writeln(objrs2.fields("tqt").value o meu script que está funcionando sem funções de somatório está integral abaixo: <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, anoi, mesi, diai, anof, mesf, diaf, ComandoSQL, Conexao Dim strConnection anoi=year(Request.Form("dtInicial")) mesi=month(Request.Form("dtInicial")) diai=day(Request.Form("dtInicial")) anof=year(Request.Form("dtFinal")) mesf=month(Request.Form("dtFinal")) diaf=day(Request.Form("dtFinal")) Session.LCID=1033 ComandoSQL = "SELECT * FROM a_pagar WHERE DATA BETWEEN #" & DateSerial(anoi,mesi,diai) & "# and #" & DateSerial(anof,mesf,diaf) & "# ORDER BY DATA ASC" 'Set bd = Conexao.Execute(ComandoSQL) Session.LCID=1046 'Conectando com o banco de dados contato.mdb Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Seleciona da tabela contato strQuery = "SELECT * FROM a_pagar" Set ObjRs = objConn.Execute(ComandoSQL) %> <html> <head> <title>SJ Finance - à Pagar - consulta</title> </head> <body bgcolor="#FFFFFF"> <div align="center" style="width: 756; height: 119"> <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif"><em><strong>Contas &agrave; <font color="#FF0000">Pagar</font> (consulta)</strong></em></font></p> <table width="947" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td width="947" valign="top" height="136"> <table border="0" cellpadding="0" cellspacing="0" width="958"> <tr bgcolor="ffffff"> <td width="958" colspan="3"> <table width="100%" border="0" cellspacing="2" cellpadding="2"> </table> </td> </tr> <tr> <td colspan="3"> <form method="GET" action="action_excluir_a_pagar.asp"> <table width="902" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="center" width="952"> <table border="0" width="883" height="8" cellpadding="2"> <tr bgcolor="#0099FF"> <td width="96" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">DATA</font></b></font></td> <td width="318" height="1" align="center"> <font size="1" color="FFFFFF"><b></b> </font> <font size="1" color="FFFFFF"><b><font face="Verdana">HIST&Oacute;RICO</font></b> </font></td> <td width="259" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">TIPO</font></b></font></td> <td width="184" height="1" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">VALOR</font></b> </font></td> </tr> <%While Not objRS.EOF %> <tr bgcolor="#FF9900"> <td width="96" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("data")%> </font> </b></font></div></td> <td height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> </font> </b></font> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("historico")%> </font></b></font></div></td> <td width="259" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("tipo")%></a> </font></b></font></div></td> <td width="184" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write formatnumber(objRS("valor"),2)%> </font></b></font></div></td> </tr> <% 'Movendo para o proximo registro objRS.MoveNext Wend 'Fechando as conexões objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </table> </td> </tr> </table> </form> </td> </tr> </table> </td> </tr> </table> </div> </body> </html> desde já agradeço a força... abração a todos
  21. Notax
    pessoal... ainda não consegui sair deste entrave... desculpe pela encheção de saco... mas alguém poderia me dar essa forcinha? valeu a força e desculpe pelo incomodo!
  22. Notax
    valeu Kuroi Matou a pau... funcionou legal... eu é que tinha cometido mais alguns errinhos de digitação depois desse grande erro que o amigo ajudou a corrigir... mas daí ficou fácil de arrumar, pois as mensagens de erros eram bastante características... Sem a sua ajuda, com certeza ainda estaria travado... valeu mesmo. segue o código completo para caso alguém encontre uma dificuldade parecida: <% Dim objConn, objRs, strQuery, ComandoSQL, Conexao, SQL, intpagina, intrec Dim strConnection Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'strQuery = "SELECT * FROM a_pagar" Set objRs = Server.CreateObject("ADODB.RecordSet") objRs.PageSize = 5 ' Você pode alterar sem conforme precise SQL = "select * from a_pagar" objRs.Open SQL,objConn,3,3 IF objRs.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> objRs.PageCount then intpagina=objRs.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF objRs.AbsolutePage=intpagina intrec=0 While intrec < objRs.PageSize and not objRs.EOF '------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO ----------------------- response.write objRs("data") & " - " & objRs("historico") & " - " & objRs("tipo") & " - " & objRs("valor") & "<BR>" '--------------------------------------------------------------------------------------------- objRs.MoveNext intrec=intrec+1 IF objRs.EOF then response.write " " END IF Wend IF intpagina > 1 then %> <a href="a_pagar_paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF IF strcomp(intpagina,objRs.PageCount) <> 0 then %> <a href="a_pagar_paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF %>
  23. Notax
    Pessoal, olha eu aí denovo... com mais essa dificuldade... já fiz minhas pesquisas em google e aqui no SB mesmo mas não rolou... não consegui desfazer esta outra bronca... to tentando fazer uma paginação... mas ta dando o erro abaixo: Microsoft VBScript runtime error '800a01a8' Object required: '' line 8 que vem a ser essa linha: objRs.PageSize = 5 o código completo segue abaixo: <% Dim objConn, objRs, strQuery, ComandoSQL, Conexao, SQL, intpagina, intrec Dim strConnection Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" strQuery = "SELECT * FROM a_pagar" objRs.PageSize = 5 ' Você pode alterar sem conforme precise objRs.Open SQL,objConn,3,3 IF onjRs.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> objRs.PageCount then intpagina=objRs.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF objRs.AbsolutePage=intpagina intrec=0 While intrec < objRs.PageSize and not RS.EOF '------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO ----------------------- response.write objRs("data") & " - " & objRs("historico") & " - " & objRs("tipo") & " - " & objRs("valor") & "<BR>" '--------------------------------------------------------------------------------------------- objRs.MoveNext intrec=intrec+1 IF objRs.EOF then response.write " " END IF Wend IF intpagina > 1 then %> <a href="a_pagar_paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="a_pagar_paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF %> grato pela atenção
  24. Notax

    Datas?!? Só Funciona Do 13 Ao 31!

    pergunta respondeu ao Notax de Notax em ASP

    valeu a força Bareta.. Abração a todos
  25. Notax

    Datas?!? Só Funciona Do 13 Ao 31!

    pergunta respondeu ao Notax de Notax em ASP

    valeu a atenção... mas infelizmente não funcionou denovo! só a primeira data sai certinho, as outras saem invertidas! Pessoal, meu problema continua o mesmo... Já tentei diversas formas e não consigo corrigir... Tentei das formas que o romero sugeriu, tb. das formas que o Bareta indicou... não funcionou... e reconhecidamente estes caras são feras no assunto... o que eu quero dizer, é que pelo jeito meu caso é um mistério mesmo, pois apesar de eu ainda ser amador... esses caras com certeza não são... fico aqui pensando e matutando como eu poderia fazer para resolver esta questão... já contatei até com o servidor, que lavou suas mãos, garantindo que o meu script deva estar com algum erro... o que logicamente é possivel mesmo... deve existir alguma coisinha qualquer ainda errada, pode ser que seja um detalhe dos mais ridículos, mas se existe eu com certeza não estou vendo! o que mais me espanta é que para datas que vão dos dias 13 ao 31 funciona perfeitamente... digito no sistema brasileiro e inclui no BD no sistema brasileiro tb! a inversão pro sistema americano só ocorre nas datas que tem os dias entre 1 e 12! é como se o sistema "entendesse" que de um ao doze só pode ser mês e daí ele inverte! Chego a pensar se derepente não pode ter algum errinho no meu loop, mas eu testo ele em separado e funciona legal... Peço portanto, encarecidamente a todos que puderem contribuir (e sei que tem vários cobras aí no forum) se tiverem um tempinho que o façam... acredito que este caso realmente poderá contribuir para outras pessoas. Cheguei a pensar na possibilidade (dentro da meu amadorismo) se derepente não seria o caso de criar um select case específico para os dias 01 ao 12... só que eu não faço a menor ideia de como fazer isso! nem se isso é realmente possível! Aproveito para agradecer a atenção e o carinho que muitos aqui no ScriptBrasil demenstram, ajudando desconhecido a troco de nada! isso é muito nobre e espero aumentar meus conhecimentos a ponto de poder contribuir tb! um forte abraço a todos
×
×
  • Criar Novo...