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
    Pessoal, fiz mais algumas modificações no menu... e agora funcionou... é impressionante como uma simples Target pode dar tanto trabalho... não acham? É muito difícil, pois em se tratando de scripts, temos de ler e reler 1500 vezes para achar um pequeno erro, uma letra... que tava me matando... bueno, caso sirva pra mais alguém segue a solução do problema: meu menu era formado por basicamente quatro arquivos: a página de quadros, onde estava tudo muito bem definido, e o menu propriamente dito, formado pelos arquivos menu.html, toolbar.js e global.js. No toolbar, tive de modificar tb a target e ficou como segue: toolbar.js /**** Add SubMenu Function **** ****/ function addICPSubMenu(MenuIDStr, SubMenuStr, SubMenuURLStr) { if (addICPSubMenu.arguments.length > 3) TargetStr = addICPSubMenu.arguments[3]; else TargetStr = "geral"; tempID = "ICP_" + MenuIDStr; addSubMenu(tempID,SubMenuStr,SubMenuURLStr,TargetStr,true); } function addMSSubMenu(MenuIDStr, SubMenuStr, SubMenuURLStr) { TargetStr = "geral"; tempID = "MS_" + MenuIDStr; addSubMenu(tempID,SubMenuStr,SubMenuURLStr,TargetStr,false); } agradeço a atenção e suas colaborações, foram atraves delas que consegui chegar ao problema... um forte abraço
  2. Notax
    Flávio... valeu a força... segue o código da página de quadros: <html> <head> <title>:::SJ FINANCE - PERSONAL :::</title> </head> <frameset framespacing="0" border="0" rows="104,19%,*" frameborder="0"> <frameset cols="*,81%"> <frame name="logo" scrolling="no" noresize target="meio" src="logo.asp" marginwidth="5" marginheight="5" style="border-bottom-style: double; border-bottom-color: #008000"> <frame name="util" src="util.asp" marginwidth="12" marginheight="0" scrolling="no" style="border-bottom-style: double; border-bottom-color: #008000"> </frameset> <frame name="menu" target="geral" src="menu.asp" scrolling="no" marginwidth="12" marginheight="16"> <frame name="geral" src="geral.asp" scrolling="auto"> <noframes> <body> </body> </noframes> </frameset> </html> grato pela atenção.
  3. Notax
    Oi amigão! valeu denovo... pois é... não funcionou! existiria alguma outra forma?
  4. Notax
    galera, alguém da essa força? abração!
  5. Notax

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

    pergunta respondeu ao Notax de Notax em ASP

    Pessoal... to começando a acreditar que posso estar com problema no loop e não na formatação das datas! na verdade nem sei mais o que pensar! já estou em cima disso a tanto tempo que só de olhar fico vesgo! a última modificação que eu fiz com auxilio do bareta e do romero trouxe uma peq. melhora... mas ainda não resolveu e o diagnóstico continua o mesmo! vejam bem: quando lanço datas dos dias 13 ao 31 e peço para repeitr "n" vezes sai direitinho... bem bacana... por exemplo 25/01/07 repetindo 3x = 25/01/07 25/02/07 25/03/07 agora dos dias 1 ao 12 só o primeiro lançamento sai correto, depois fica invertido... exemplo: lanço 02/01/07 e peço para repetir 3x = 02/01/07 03/01/07 04/01/07... ou seja... o primeiro lançamento sai correto e depois aumenta só a primeira casa... mas ela não representa dias e sim meses... por que se peço para repetir 13x por exemplo, quando paça o numero 12 volta para o numero 1 e o ano aumenta... isso me faz voltar a acreditar que com o loop não tem erro, e sim com alguma inversão que não estou conseguindo fazer! qualquer sugestão é bem vinda! já estou no nível do desespero :) forte abraço a todos! e tomara que possam me ajudar!
  6. Notax

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

    pergunta respondeu ao Notax de Notax em ASP

    Bom... então deixa eu ver se eu entendi... Caso eu queira continuar usando um campo único, eu poderia digitar as datas no formato certo... e no script do insert eu colocaria: data = request.form ("txtData") data=month(data)&"/"&day(data)&"/"&year(data) e neste caso não uso nenhuma session.LCID, certo? desta forma será incluso de forma correta no banco, não é isso? valeu a força... e desclupa a incomodação!
  7. Notax

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

    pergunta respondeu ao Notax de Notax em ASP

    Po Bareta... brigadão pelo retorno... Sabes que eu estava pensando em utilizar um campo pra cada... mas não sei como fazer e nem sei se isso ajudaria... visto que no meu script inicial ele inverte apenas quando os dias vão do 01 ao 12... dos dias 13 ao 31 funciona legal! to quebrando a cabeça e já to bem sem ideias! no caso de usar o padrão americano e só inverter na hora de exibir é um problema pra mim, pois os usuários terão de se acostumar a trabalhar com datas invertidas... o que é muito ruim... além de que poderão haver falhas de lançamentos... visto que já estamos acostumados ao nosso padrão... Será que o amigo teria um exemplo para postar aqui de um script funcionando com um campo para dia um para mes e um para ano? como funcionaria com o insert nesse caso?
  8. Notax

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

    pergunta respondeu ao Notax de Notax em ASP

    então Romero... agradeço sua atençao e espero que possa continuar colaborando com esse mistério... fiz as sugestões que sugeristes... mas quando lancei a data 02/02/07 no banco apareceu assim 30/1/1900... nada a ver, certo? eu devo estar errando em algum outro lugar... por isso estou colocando o codigo completo para caso o amigo ou mais alguém que possa contribuir tenham a visao geral do problema... de qualquer. forma valeu força... o nome do campo onde a data é preenchida no formulário se chama txtData e não datai como eu havia postado anteriormente... desclpem o engano... mas só aconteceu aqui... e não no código... essa parte tenho certeza de que não estava errada nos meus teste ;) forte abraço
  9. Notax
    Pessoal, não querendo abusar, mas já abusando... to com mais esse mistério... quebrando a cuca desde hoje demanhã e não consigo sequer entender... o que ta acontecendo é que meu insert ta inserindo as datas no banco de forma correta dos dias 13 ao 31 de qualquer. mes... tipo 13/01/07 = 13/jan/07 bem certinho no sistema brasileiro... já as datas dos dias 01 ao 12 inverte e fica no sistema americano... ou seja se eu digito 01/02/07 (01 fev 07) ela aparece no banco 02/01/07!!! por que será??? abaixo segue o script (parte da data) do insert que uso para inserir os dados no banco: <%Response.Expires = 0 Dim objConn, objRs, strQuery, strConnection, historico, tipo, valor, repercussao, quantidade, chcBoleto, vezes, qtdParcela, i, dtInicial, x, dtParcela, dtVencimento, dt, data, datai Dim anoi, mesi, diai, ComandoSQL anoi=year(Request.Form("dtInicial")) mesi=month(Request.Form("dtInicial")) diai=day(Request.Form("dtInicial")) Session.LCID=1033 ComandoSQL = "SELECT * FROM a_pagar WHERE DATA #" & DateSerial(anoi,mesi,diai) & "# ORDER BY DATA ASC" 'Set bd = Conexao.Execute(ComandoSQL) Session.LCID=1046 historico = Request.Form("txtDescricao") tipo = Request.Form("cmbTipo") 'valor = Request.Form("txtValor") valor = replace(Request.Form("txtValor"),",",".") repercussao = Request.Form("qdrRepercussao") Quantidade = Request.Form("txtQuantidade") chcBoleto = Request.form("chcBoleto") datai = request.form("txtData")
  10. Notax
    Po! devo mais essa! graças a vocês to quase acabando meu sisteminha... ta ficando bem bacana... valeu ciberalexxx! brigadão mesmo! valeu marcos.... mais uma vez! ;) to devendo mais essa!
  11. Notax
    Muito obrigado pelo teu retorno... valeu mesmo... mas assim ó, deu esse erro: Microsoft VBScript compilation error '800a0414' Cannot use parentheses when calling a Sub /padrão/insert_into_a_pagar_mensal.asp, line 14 replace(request.form("txtValor"),",",".") -----------------------------------------^ será que fiz alguma coisa errada? segue o script como ficou: <%Response.Expires = 0 Dim objConn, objRs, strQuery, strConnection, historico, tipo, valor, repercussao, quantidade, chcBoleto, vezes, qtdParcela, i, dtInicial, x, dtParcela, dtVencimento, dt, data, datai Dim anoi, mesi, diai, ComandoSQL anoi=year(Request.Form("dtInicial")) mesi=month(Request.Form("dtInicial")) diai=day(Request.Form("dtInicial")) Session.LCID=1033 ComandoSQL = "SELECT * FROM a_pagar WHERE DATA #" & DateSerial(anoi,mesi,diai) & "# ORDER BY DATA ASC" 'Set bd = Conexao.Execute(ComandoSQL) Session.LCID=1046 historico = Request.Form("txtDescricao") tipo = Request.Form("cmbTipo") valor = Request.Form("txtValor") replace(request.form("txtValor"),",",".") repercussao = Request.Form("qdrRepercussao") Quantidade = Request.Form("txtQuantidade") chcBoleto = Request.form("chcBoleto") datai = request.form("txtData") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" o campo em questão seria o txtValor... mas tb. fiquei na dúvida se esse comando substitui o request.form txtvalor que já tenho no script! pode me dar essa força? valeu mesmo... forte abraço
  12. Notax
    galera do Js... baixei um menu aqui no SB mas já tentei de tudo e não consigo mudar a target dos destinos do link... o menu ta numa pagina de quadros... e eu queria que os links abrissem num quadro que eu entitulei de "GERAL" podem me dar mais essa força? script antes - nome do arquivo menu.html: </SCRIPT> </head> <BODY TOPMARGIN="0" LEFTMARGIN="0" BGCOLOR="#FFFFFF" TEXT="#FFFFFF" ALINK="#FFFFFF" LINK="#FFFFFF" VLINK="#FFFFFF"> <base target="_blank"> <script language="JavaScript" src='toolbar.js'></script> <script language="JavaScript" src='global.js'></script> <DIV ID="DownLevelDiv"> <font face="arial, verdana" size="1" color="white"> <div align="right"> <A href="link.html" target="princ">EXEMPLOS</A> | <A href="link.html" target="princ">WEBMASTERS</A> | <A href="link.html" target="princ">DIVERSOS</A> </font> </DIV></DIV> <script language="JavaScript"> DownLevelDiv.style.display ='none'; setICPBanner("curve.gif","","www.interweb.com.br"); drawToolbar(); </script> </BODY> script depois - troquei o nome do arquivo para menu.asp: </SCRIPT> </head> <BODY TOPMARGIN="0" LEFTMARGIN="0" BGCOLOR="#FFFFFF" TEXT="#FFFFFF" ALINK="#FFFFFF" LINK="#FFFFFF" VLINK="#FFFFFF"> <base target="_geral"> <script language="JavaScript" src='toolbar.js'></script> <script language="JavaScript" src='global.js'></script> <DIV ID="DownLevelDiv"> <font face="arial, verdana" size="1" color="white"> <div align="right"> <A href="a_pagar_inclui.asp" target="geral">Incluir</A> <A href="a_pagar_exclui.asp" target="geral">Excluir</A> <A href="a_pagar_consulta.asp" target="geral">Relatorios</A> </font> </DIV></DIV> <script language="JavaScript"> DownLevelDiv.style.display ='none'; setICPBanner("curve.gif","","www.interweb.com.br"); drawToolbar(); </script> </BODY> </HTML> valeu a atenção
  13. Notax
    pessoal... continuo com esse problema do campo valor... podem me ajudar? então, o caso é que no form o campo é um textfield, e no bd (access) está configurado para moeda... no insert into o valor está configurado como texto tipo '"&valor&"'... até por que se eu coloco abraçodo por # da um erro! o problema é que se eu digito só 60 beleza quando faço uma consulta ou vou no banco ta lançado 60,00 mas quando eu digito 60,35 por exemplo no banco aparece 6.350,00... não sei mais o que fazer... grato pela atenção Acabei de fazer mais um teste onde digitei no form 155.78 (com ponto) e saiu correto no bd e na consulta, ou seja, 155,78! Agora... como posso fazer para corrigir esse probelma da virgula?!? visto que o preenchimento com ponto é absolutamente errado!
  14. Notax
    Po amigão! valeu denovo... mas agora eu não entendi... essa última função criou um botão... que eu não preciso... e mesmo assim, a outra função que já existe ficou anulada... vou explicar denovo... primeiro eu tenho essa função aqui que serve para ocultar 4 radio buttons... os quais só ficam amostra quando um checkbox é ticado... <script language="javascript"> function ExibeCampo(status) { if (status) document.getElementById("div").style.display = 'block'; else document.getElementById("div").style.display = 'none'; } </script> essa função precisa continuar funcionando... mas agora eu preciso além disso, que ao submeter o formulário se um desses radiobuttons tiver selecionado vá para uma determinada página... ou seja, cada radio button representa um endereço diferente de destino... mas a função acima tem que continuar funcionando... o que eu queria mas não to sabendo fazer é o +ou- o seguinte: if checkbox = false then onsubmit vai para o endereço 0.asp if checkBox = true then else if radiobutton = 1 then onsubmit vai para o endereço 1.asp end if if checkbox = true then else if radiobutton = 2 then onsubmit vai para o endereço 2.asp end if se puder dar mais essa força! abração.
  15. Notax
    tu é o cara! valeu a força... de novo! mas assim ó, fiz da forma abaixo... mas não consegui testar... porque quando coloquei a função nova, aquela função que eu já tinha (função exibe campo)... (que inclusive foi a amiga andreia aqui do forum que fez) parou de funcionar... o script ficou assim: ... <script language="javascript"> function repercussao() { if chcBoleto = false document.a_pagar_inclui.action = 'insert_into_a_pagar.asp'; document.a_pagar_inclui.submit(); if chcBoleto = true else qdrRepercussao = 2 document.a_pagar_inclui.action = 'insert_into_a_pagar_mensal.asp'; document.a_pagar_inclui.submit(); } function ExibeCampo(status) { if (status) document.getElementById("div").style.display = 'block'; else document.getElementById("div").style.display = 'none'; } </script> </head> <body> <form id="mensal" name="mensal" method="post" onsubmit="repercussao()"> ... pode me dar mais uma mão? abração
  16. Notax
    Pô pessoal... dá essa forcinha aí... não manjo nada de javascript... e em toda a minha aplicação só tenho esse form em js, mas não queria ter que refazer tudo só por causa de uma função que eu não sei fazer... será que alguém podia me dar essa canja pra eu aprender mais essa?
  17. Notax
    Pessoal, to precisando de mais uma forcinha, podem me ajudar? assim ó: no form abaixo negritei o seguinte trecho: <form method="post" action="insert_into_a_pagar.asp" name="form" onsubmit="return valida_campo()"> mas olha só... queria montar uma função e não to conseguindo... queria assim, tipo: se o chcBoleto tiver desmarcado vai pra pagina: <form method="post" action="insert_into_a_pagar.asp" name="form" onsubmit="return valida_campo()"> se o chcboleto tiver ticado e o qdrRepercussao for 1 vai pra pagina: <form method="post" action="insert_into_a_pagar_semanal.asp" name="form" onsubmit="return valida_campo()"> se o chcboleto tiver ticado e o qdrRepercussao for 2 vai pra pagina: <form method="post" action="insert_into_a_pagar_mensal.asp" name="form" onsubmit="return valida_campo()"> tem como? <html> <head> <title>SJ FINANCE</title> <script language="javascript"> function ExibeCampo(status) { if (status) document.getElementById("div").style.display = 'block'; else document.getElementById("div").style.display = 'none'; } </script> </head> <body> <p align="center"><img border="0" src="http://www.revistaria.com/rafa/logoaccess.jpg" align="left" style="position: relative; float: left"></p> <p align="center"> <table width="100%" border="0" cellpadding="2" cellspacing="2"> <tr> <td bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><strong><font color="#999999">Inclui</font></strong></font></font></div></td> <td bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="http://www.revistaria.com/rafa/teste/a_pagar_exclui.asp" class="menu">Excluir</a></font></b></font></div></td> <td bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="http://www.revistaria.com/rafa/teste/a_pagar_consulta" class="menu">Consulta</a></font></b></font></div></td> </tr> </table> <table width="957" height="18" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" height="1" width="957"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"></font></div></td> </tr> </table> [b]<form method="post" action="insert_into_a_pagar.asp" name="form" onsubmit="return valida_campo()">[/b] <p align="left"><font face="Abadi muito Condensed Light"><b><i><u>Lançamento de Contas à <font color="#FF0000">Pagar</font></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>Tipo</i> <select name="cmbTipo" size="1" id="cmbTipo"> <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></font></p> <p align="left"><font face="Abadi muito Condensed Light"><i>Histórico</i> <input name="txtDescricao" type="text" id="txtDescricao" size="38"></font></p> <p align="left"><font face="Abadi muito Condensed Light"><i>Valor </i><input name="txtValor" type="text" id="txtValor" style="color: #FF0000" size="20"></font></p> <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> <p align="left"><font face="Abadi muito Condensed Light"><input type="submit" value="Submeter" name="B1"><input type="reset" value="Redefinir" name="B2"></font></p> </form> </body> </html> valeu a atenção!
  18. Notax
    Aí Marcos... consegui... a única coisa que tive de fazer é criar parâmetros para que o nome data fosse igual ao dtParcela... daí pude lançar data em data e o loop funcionou bacana! consegui graças a sua ajuda! valeu a força viu! A todos que contribuiram muito obrigado e forte abraço.
  19. Notax
    Marcos, muito obrigado... o amigo tinha total razão... o next estava abaixo do fechamento da conexão... então agora ficou assim: Set ObjRs = objConn.Execute(strQuery) next objConn.close Set objRs = Nothing Set objConn = Nothing if err = 0 Then response.redirect "sucesso_incluir_a_pagar.asp" Só que agora, o loop tá quase perfeito... mas ainda ficou com um pequeno problema: as datas estão sendo lançadas sem modificação... na qtde de parcelas certa... mas todos com a mesma data! Assim ó... o loop faz o seguinte: 12 parcelas data inicial 01/01/07... daí ele deve lançar: 01/01/07 01/02/07 01/03/07 e assim até 01/12/07 quando termina as 12 parcelas... o resultado do loop se chama dtParcela... só que quando vai inserir eu coloquei data p/ data... se eu coloco dtParcela p/ data, por exemplo ele dá um erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] The INSERT INTO statement contains the following unknown field name: 'dtVencimento'. Make sure you have typed the name correctly, and try the operation again. /rafa/teste/insert_into_a_pagar.asp, line 26 linha 26 é: strQuery = "INSERT INTO a_pagar (dtParcela,historico,tipo,valor) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&valor&"')" valeu a força... mais uma vez!
  20. Notax
    Pô marcos... brigadão por toda tua atenção... nem sei como agradecer! o erro agora é so na inclusão do loop, visto que a data já consegui resolver... o erro que está aparecendo é: Microsoft VBScript runtime error '800a01a8' Object required /rafa/teste/insert_into.asp, line 26 a linha 26 vem a ser: Set ObjRs = objConn.Execute(strQuery) valeu a força abração
  21. Notax
    Pessoal... o caso da data já foi resolvido... ta faltando só eu conseguir incluir o resultado do loop na tabela... se puderem dar essa força... a data foi resolvida da seguinte forma: Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, anoi, mesi, diai, ComandoSQL Dim strConnection anoi=year(Request.Form("data")) mesi=month(Request.Form("data")) diai=day(Request.Form("data")) Session.LCID=1033 ComandoSQL = "SELECT * FROM a_pagar ORDER BY DATA ASC" Session.LCID=1046 'Conectando com o banco de dados contato.mdb Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("a_pagar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Seleciona da tabela contato strQuery = "SELECT * FROM a_pagar" Set ObjRs = objConn.Execute(strQuery) Set ObjRs = objConn.Execute(ComandoSQL)
  22. Notax
    Marcos.... muito obrigado pelo seu retorno... valeu mesmo... com relação ao loop: removi (on error resume next) daí apareceu a seguinte mensagem de erro: Microsoft VBScript runtime error '800a01a8' Object required /rafa/teste/insert_into.asp, line 26 a linha 26 vem a ser: Set ObjRs = objConn.Execute(strQuery) já com relação as datas: o campo de datas no access ta configurado como data abreviada! uma coisa que eu notei é que se eu coloco no preenchimento do form a data tipo mm/dd/aaaa funciona beleza... já tentei usar uma função que eu copiei de você mesmo... mas não funcionou... pelo menos eu não consegui fazer funcionar... devo ter errado alguma coisa... se puderes continuar contribuindo lhe agradeceria... já foi de grande valia... um forte abraço
  23. Notax
    FerCosMig, muito obrigado pelo retorno... Então eu tirei esta parte que você mencionou de meu script, simplesmente exclui... mas continuo quase a mesma coisa, porque... só inclui quando são lançamentos unitarios... quando é pra lançar varios meses ele não lança nada... ficou quase igual, porque depois que eu tirei aquele trecho as datas ficaram completamente bagunçadas... Será que o amigo poderia me dar mais alguma sugestão? desde já agradeço!
  24. Notax
    pessoal, como faço para incluir os resultados do loop no bd? segue o código que estou usando e que só funciona na inserção unitária, quando e para usar o loop ele não da erro nenhum, mas também não inclui nada! testei o loop em separado e está funcionando! <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" LCID="1046"%> <%Response.Expires = 0 Dim objConn, objRs, strQuery, strConnection, historico, tipo, valor, repercussao, quantidade, chcBoleto, vezes, qtdParcela, i, dtInicial, x, dtParcela, dtVencimento, dt, data historico = Request.Form("txtDescricao") tipo = Request.Form("cmbTipo") valor = Request.Form("txtValor") repercussao = Request.Form("qdrRepercussao") Quantidade = Request.Form("txtQuantidade") chcBoleto = Request.form("chcBoleto") data = request.form("txtData") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("a_pagar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" If chcBoleto = False Then strQuery = "INSERT INTO a_pagar (data,historico,tipo,valor) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&valor&"')" On error Resume Next Set ObjRs = objConn.Execute(strQuery) objConn.close Set objRs = Nothing Set objConn = Nothing end if if err = 0 Then response.redirect "inclusao.asp" end if If chcBoleto = True then elseif qdrRepercussao = 2 Then 'Data = #01/31/07# '>>>>Quantidade = 24 vezes = Quantidade qtdParcela = Quantidade dt = Data end if if err = 0 Then response.redirect "inclusao.asp" end if %> grato pela atenção de todos!
  25. Notax
    Oi Andréia... mais uma vez muito obrigado... é muito bom contar com suas ajudas... fiz as modificações necessária e o loop começou a funcionar... Agradeço sua atençao forte abraço. Notax
×
×
  • Criar Novo...