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

    Arquivo Executar Sozinho

    pergunta respondeu ao danyort de Notax em ASP

    No meu caso... entrei em contato hoje com o Servidor! Eles estão estudando a possibilidade de migrar para o novo "HELM" e neste caso oferecerão tal sereviço para hospedagens Windows! Perguntei sobre a viabilidade de se instalar um software específico ou coisa do tipo... e a resposta foi basicamente "DE JEITO NENHUM"... Acho que o negócio vai ser procurar algum que ofereça ou aguardar!
  2. Notax
    ihhh... não entendi direito... mas sim... vem do recordset... conforme o script que to postando abaixo... nesse script verás que eu criei variáveis hidden que era pra chama-las por request.querystring no script do insert... nesse caso... de pegar os dados direto do recordset, elas perderiam utilidade, não? E como fazer pra pegar os dados direto do recordset? é por request.querystring tb? No caso em questão o meu objeto recordset é o: objRs... o script que antecede o do insert é esse abaixo: <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, ComandoSQL, Conexao, objrs2, strsql2, valor_resultado, ddi, mmi, aai, datai, ddf, mmf, aaf, dataf Dim strConnection ddi = request.form ("txtddi") mmi = request.form ("txtmmi") aai = request.form ("txtaai") datai = (ddi &"/"& mmi &"/"& aai) datai = Cdate(day (datai) &"/"& month (datai) &"/"& year (datai)) ddf = request.form ("txtddf") mmf = request.form ("txtmmf") aaf = request.form ("txtaaf") dataf = (ddf &"/"& mmf &"/"& aaf) dataf = Cdate(day (dataf) &"/"& month (dataf) &"/"& year (dataf)) Session.LCID=1033 ComandoSQL = "SELECT * FROM a_pagar WHERE DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" 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 = objConn.Execute(ComandoSQL) Session.LCID=1046 %> <html> <head> <title>SJ Finance - à Pagar - exclui</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> - Efetuar Pagto.</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> <td> <form method="GET" action="action_efetuar_pagto.asp"> <%Response.Write("<input type='hidden' name='txtData' VALUE='" & objRS("data") & "' />")%> <%Response.Write("<input type='hidden' name='txtHistorico' VALUE='" & objRS("historico") & "' />")%> <%Response.Write("<input type='hidden' name='txtTipo' VALUE='" & objRS("tipo") & "' />")%> <%Response.Write("<input type='hidden' name='txtValor' VALUE='" & objRS("valor") & "' />")%> <table width="736" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="center" width="734"> <table border="0" width="952" height="65" 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 colspan="2" 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="302" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">TIPO</font></b></font></td> <td width="124" height="1" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">VALOR</font></b> </font></td> <td width="67" height="1" align="center"> <font size="1" color="FFFFFF"> <input type="submit" name="Submit" value="Excluir"> </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 colspan="2" 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="302" 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="124" 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> <td width="67" height="1" align="center"> <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <input type="checkbox" name="checkbox" value="<%=objRS(0)%>"> </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> eu tentei aqui um esboço... de como eu poderia usar isso que mencionou... mas não funcionou... me embananei todo... não to sabendo como proceder com o recordset e com um array no insert.... deu erro de sintaxe... na verdade já aguardava por algo desse tipo... mas enfim... foi apenas uma tentativa desesperada...rsssssssss fiz isso: if err = 0 and id <> "" then array_idi = split(idi,",") For x=0 to ubound(array_idi) strQuery = "INSERT INTO lcaixa " & array_idi & " VALUES ('"&data&"','"&historico&"','"&tipo&"','"&saidas&"')" sql_idi = sql_idi & "a_pagar.codigo = " & Trim(array_idi(x)) & " OR " objRs.MoveNext objRs.Execute(strQuery) next sql_idi = left(sql_idi,(len(sql_idi)-4)) Session.LCID=1046 valeu a força!
  3. Notax
    uhmmm... pera aí... deixa eu ver se eu entendi... então eu poderia criar uma array pra cada variável e insertar as arrays no BD? é mais ou menos isso?
  4. Notax
    Bah amigão... que bom poder contar com a tua ajuda aqui tb! esse é mais um caso que deve estar faltando um detalhe... e o útimo pra acabar essa minha primeira app... Tentei o insert usando a mesma lógica do delete... mas como o insert não pode ter alterações em sua sintaxe to tentando incluir ele dentro do loop de forma a proporcionar as inclusões corretas... sinto que tá perto... mas apesar dele inclui o numero de vezes exatamente de acordo com o numero de itens selecionados... ele insere todos os registros exatamente igual ao primeiro que aparece na conslta! o código ta assim agora: if err = 0 and id <> "" then array_idi = split(idi,",") For x=0 to ubound(array_idi) strQuery = "INSERT INTO lcaixa (data,historico,tipo,saidas) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&saidas&"')" sql_idi = sql_idi & "a_pagar.codigo = " & Trim(array_idi(x)) & " OR " objRs.Execute(strQuery) next sql_idi = left(sql_idi,(len(sql_idi)-4)) Session.LCID=1046 A diferença é que agora eu sei coisas como pra que serve ubound ou o split... graças aquele script comentado! rssss... valeu a força
  5. Notax

    Arquivo Executar Sozinho

    pergunta respondeu ao danyort de Notax em ASP

    Isso serviria pra enviar e-mails automaticamente... um exemplo: tenho um sistema que tem uma agenda... daí eu queria alguma coisa pra que sempre um dia antes esse sistema mandasse um e-mail com os compromissos do dia anterior... seria possível desta forma que tu usou?
  6. Notax

    Erro Begintrans

    uma questão respondeu Notax em ASP

    Che... posta teu código aí! sei lá... será que não ta abrindo mais de uma conexão?
  7. Notax
    bah... nem acredito que fiz isso! Era isso sim! Case Senitive! que bobeira! desculpa aí Kuroi! Baita ajuda que tu me deu! sem palavras pra agradecer! não só a ajuda... principalmente a aula com aquele codigo comentado... aprendi pra caramba ali... na real... a maior parte do meu aprendizado ta sendo feita apartir dos codigos comentados... que leva o conhecimento teórico pro prático... facilita um monte pra mim! além de tudo isso e não menos importante é que tu me colocaste a apenas uma tarefa de acabar a minha primeira app... vou me engajar nessa proxima aí que tb. tem uma minhoca braba pra resolver, rsssssssssss! E com certeza começarei outra assim que acabar essa! valeu mesmo... Forte Abraço...
  8. Notax
    Quando tento consultar usando a sub desse código que tu fez pra mim, ou seja, com o chcRefinar marcado... da um erro... com o chcRefinar desmarcado vai bem na boa! o erro é: Microsoft VBScript runtime error '800a01a8' Object required: '' /padrão/a_pagar_resultado_consulta.asp, line 118 que vem a ser: <%While Not objRS.EOF %>
  9. Notax
    Putz... é verdade me passou essa... mas mesmo assim não funcionou! acerdita nisso? o chcRefinar está assim: <input name="chcRefinar" type="checkbox" id="chcRefinar" value="ON" onclick="ExibeCampo(this.checked)"> está setado como ON mesmo... mas o erro foi exatamente o mesmo e apenas quando vou consultar usando o cmbTipo... deixei as condicionais exatamente assim: chcRefinar = request.form ("chcRefinar") if chcRefinar = "on" then call comrefino() ElseIf chcRefinar = "" then call semrefino() end if é de arrancar os cabelos! valeu a força!
  10. Notax
    Bah! Agora ficou tudo muito mais claro! deu pra entender sim... muito obrigado! ficou ótimo... valeu mesmo... o pior é que por algum detalhe to no meio de um mistério... fui passar esse código pra dentro da minha app... então eu resolvi colocálo em uma sub... pois faz parte de uma consulta refinada... ou seja... naquele form de datas tem um checbox chcRefinar... que se clicado mostra o cmbTipo do contrário não... daí so faz a consulta por datas... Quando tento consultar usando a sub desse código que tu fez pra mim, ou seja, com o chcRefinar marcado... da um erro... com o chcRefinar desmarcado vai bem na boa! o erro é: Microsoft VBScript runtime error '800a01a8' Object required: '' /padrão/a_pagar_resultado_consulta.asp, line 118 que vem a ser: <%While Not objRS.EOF %> é dureza quando dá esses mistérios... uma coisa eu tenho certeza... os dois códigos... das duas subs funcionam muito bem separados! sei lá... já passei linha por linha um milhão de vezes e não consigo ver nenhum erro... acho que deve ser uma bobagem... todo caso... já to até meio zonzo de tanto procurar esse erro! to postando o código ai caso possa dar uma analizada... mas de qualquer. forma já valeu muito toda tua força! um forte abraço e muito obrigado mais uma vez! <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, ComandoSQL, Conexao, objrs2, strsql2, valor_resultado, ddi, mmi, aai, datai, ddf, mmf, aaf, dataf, CmbTipo, sql_Tipo, array_tipo, i, tipo Dim strConnection, chcRefinar chcRefinar = request.form ("chcRefinar") if chcRefinar = true then call comrefino() end if if chcRefinar = false then call semrefino() end if %> <%sub comrefino() ddi = request.form ("txtddi") mmi = request.form ("txtmmi") aai = request.form ("txtaai") datai = (ddi &"/"& mmi &"/"& aai) datai = Cdate(day (datai) &"/"& month (datai) &"/"& year (datai)) ddf = request.form ("txtddf") mmf = request.form ("txtmmf") aaf = request.form ("txtaaf") dataf = (ddf &"/"& mmf &"/"& aaf) dataf = Cdate(day (dataf) &"/"& month (dataf) &"/"& year (dataf)) cmbTipo = Trim(Request.Form("cmbTipo")) sql_tipo = "" If cmbTipo <> "" Then sql_tipo = "(" array_tipo = Split(cmbTipo, ",") For i = 0 To UBound(array_tipo) If i <> UBound(array_tipo) Then sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "' OR " Else sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" End If Next sql_tipo = sql_tipo & ")" End If Session.LCID=1033 ComandoSQL = "select * from a_pagar where " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" set objrs2 = server.createobject("adodb.recordset") strsql2 = "select SUM(valor) as tvalor from a_pagar WHERE " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "#" Session.LCID=1046 objrs2.open strsql2, objconn, 3, 2 valor_resultado = objrs2 ("tvalor") Set ObjRs = objConn.Execute(ComandoSQL) end sub%> <%sub semrefino() ddi = request.form ("txtddi") mmi = request.form ("txtmmi") aai = request.form ("txtaai") datai = (ddi &"/"& mmi &"/"& aai) datai = Cdate(day (datai) &"/"& month (datai) &"/"& year (datai)) ddf = request.form ("txtddf") mmf = request.form ("txtmmf") aaf = request.form ("txtaaf") dataf = (ddf &"/"& mmf &"/"& aaf) dataf = Cdate(day (dataf) &"/"& month (dataf) &"/"& year (dataf)) Session.LCID=1033 ComandoSQL = "SELECT * FROM a_pagar WHERE DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" 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 = objConn.Execute(ComandoSQL) set objrs2 = server.createobject("adodb.recordset") strsql2 = "select SUM(valor) as tvalor from a_pagar WHERE DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "#" Session.LCID=1046 objrs2.open strsql2, objconn, 3, 2 valor_resultado = objrs2 ("tvalor") end sub %> <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="#FFFFFF"> <td width="96" height="1" align="center" style="border-style: solid; border-width: 2"> <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" style="border-style: solid; border-width: 2"> <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" style="border-style: solid; border-width: 2"> <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" style="border-style: solid; border-width: 2"> <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 %> </table> </td> </tr> </table> </form> </td> </tr> </table> </td> </tr> </table> <b>Valor total à pagar para o Período Consultado = R$ <% Response.Write(objrs2.fields("tvalor").value)%> </B> <% objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </div> </body> </html>
  11. Notax
    consegue resolver uma parte do problema assim: criei um campo hidden, na consulta que antecede esse script acima: Response.Write("<input type='hidden' name='NOME_PELO_QUAL_VAI_RESGATAR' VALUE='" & objRS("NOME_DO_CAMPO_NO_BD") & "' />") daí nesse script consegui chamar os dados através de request.querystring tudo ótimo... o único problema é que só funciona legal mesmo pra quando se seleciona apenas um item... pra duas ou mais seleção já não rola... o loop pra deletar mais de um é assim e funciona: if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " Next sql_id = left(sql_id,(len(sql_id)-4)) tentei colocar o insert aí no meio... mas não rolou... por que apesar dele incluir exatamente a quantidade de numero de registros selecionados ele inclui todos com as mesmas informações do primeiro registro selecionado... ou seja... se eu seleciono 3 ele insere 3 vezes... só sempre com as infs igual ao primeiro da lista! alguém da um help? valeu a atenção e forte abraço!
  12. Notax
    Pois é... ontem eu fiquei com vergonha de pedir já que me ajudaste um monte... mas já que comentou... se tiver ainda um pouco de paciencia e tempo... poderia comentar esse último código aí? To tendo bastante dificuldade em entender a lógica deste "mecanismo"... Tipo... estudei o significado de uma array que é uma variável pra aramazenar mais de um valor... mas daí pro caso prático como acima muda muito de figura! sei lá... só se não for muito incomodo pra ti... tenho certeza que ajudaria não só a mim mas muitas pessoas! valeu pela força e principalmente pela paciência!
  13. Notax
    Bah cara! Pô... valeu mesmo! agora funcionou! desse último jeito que colocaste! Nem acredito... to aqui em cima disso desde as 07:00 da manha! bah kuroi... brigadão por não ter me abandonado nesse "suporte instantâneo"... praticamente MSN!... se foi dificil pra ti imagina pra mim! acho que só ia conseguir sozinho no final do ano! Sem tua ajuda ia ser muito f*****! Sem palavras... pô... valeu de coração mesmo... brigadão cara! Um forte abraço... e boa noite pra ti! Muito, muito obrigado!
  14. Notax
    ah tá... entendi... foi mau... bom... tirei iif da dim... e apareceu esse erro: Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'IIf' /padrão/a_pagar_resultado_consulta_tipo.asp, line 25
  15. Notax
    se eu tiro array_tipo da dim aparece isso e mantenho os parentes aparece isso: Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'array_tipo' /padrão/a_pagar_resultado_consulta_tipo.asp, line 23 se eu deixo na dim e tiro os parenteses aparece isso: Microsoft VBScript compilation error '800a0401' Expected end of statement /padrão/a_pagar_resultado_consulta_tipo.asp, line 26 For i = 0 To UBound array_tipo --------------------^ com os response write (selecionando duas palavras) aconteceu isto: PRÓ-LABORE, SAÚDE o código completo é esse: <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, ComandoSQL, Conexao, objrs2, strsql2, valor_resultado, ddi, mmi, aai, datai, ddf, mmf, aaf, dataf, CmbTipo, sql_Tipo, array_tipo, i, IIf, tipo Dim strConnection ddi = request.form ("txtddi") mmi = request.form ("txtmmi") aai = request.form ("txtaai") datai = (ddi &"/"& mmi &"/"& aai) datai = Cdate(day (datai) &"/"& month (datai) &"/"& year (datai)) ddf = request.form ("txtddf") mmf = request.form ("txtmmf") aaf = request.form ("txtaaf") dataf = (ddf &"/"& mmf &"/"& aaf) dataf = Cdate(day (dataf) &"/"& month (dataf) &"/"& year (dataf)) 'tipo = request.form ("cmbTipo") cmbTipo = Trim(Request.Form("cmbTipo")) sql_tipo = "" If cmbTipo <> "" Then sql_tipo = "(" array_tipo = Split(cmbTipo, ",") For i = 0 To UBound(array_tipo) sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" & IIf(i <> UBound(array_tipo), " OR ", "") Next sql_tipo = sql_tipo & ")" End If Session.LCID=1033 ComandoSQL = "select * from a_pagar where " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" 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 WHERE tipo" set objrs2 = server.createobject("adodb.recordset") strsql2 = "select SUM(valor) as tvalor from a_pagar WHERE " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "#" Session.LCID=1046 objrs2.open strsql2, objconn, 3, 2 valor_resultado = objrs2 ("tvalor") 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="#FFFFFF"> <td width="96" height="1" align="center" style="border-style: solid; border-width: 2"> <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" style="border-style: solid; border-width: 2"> <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" style="border-style: solid; border-width: 2"> <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" style="border-style: solid; border-width: 2"> <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 %> </table> </td> </tr> </table> </form> </td> </tr> </table> </td> </tr> </table> <b>Valor total à pagar para o Período Consultado = R$ <% Response.Write(objrs2.fields("tvalor").value)%> </B> <% objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </div> </body> </html> valeu mesmo pela dedicação e atenção!
  16. Notax
    rsssssssss...bah amigão... to te incomodando né? o pior é que eu já tinha feito isso... mas conferi e testei denovo... mesmo erro... ficou assim: cmbTipo = Trim(Request.Form("cmbTipo")) sql_tipo = "" If cmbTipo <> "" Then sql_tipo = "(" array_tipo = Split(cmbTipo, ",") For i = 0 To UBound(array_tipo) sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" & IIf(i <> UBound(array_tipo), " OR ", "") Next sql_tipo = sql_tipo & ")" End If Session.LCID=1033 ComandoSQL = "select * from a_pagar where " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" 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 WHERE tipo" set objrs2 = server.createobject("adodb.recordset") strsql2 = "select SUM(valor) as tvalor from a_pagar WHERE " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "#" Session.LCID=1046 objrs2.open strsql2, objconn, 3, 2 queres que te mande o código completo? adianta alguma coisa? pô sem palavras pra te agradecer! desculpa o incomodo e valeu pela atenção!
  17. Notax
    aí deu este outro erro aqui: Microsoft VBScript runtime error '800a000d' Type mismatch /padrão/a_pagar_resultado_consulta_tipo.asp, line 25 que vem a ser: sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" & IIf(i <> UBound(array_tipo), " OR ", "")
  18. Notax
    mas daí deu esse erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression '() and DATA BETWEEN #1/1/2007# and #12/12/2007#'. /padrão/a_pagar_resultado_consulta_tipo.asp, line 35 que vem a ser: objrs2.open strsql2, objconn, 3, 2 ficou assim: 'tipo = request.form ("cmbTipo") sql_tipo = "(" array_tipo = Split(cmbTipo, ",") For i = 0 To UBound(array_tipo) sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" & IIf(i <> UBound(array_tipo), " OR ", "") Next sql_tipo = sql_tipo & ")" Session.LCID=1033 ComandoSQL = "select * from a_pagar where " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" 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 WHERE tipo" set objrs2 = server.createobject("adodb.recordset") strsql2 = "select SUM(valor) as tvalor from a_pagar WHERE " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "#" Session.LCID=1046 objrs2.open strsql2, objconn, 3, 2
  19. Notax
    Bah Kuroi... valeu de novo... mas ainda não funcionou... será que errei mais alguma coisa? a consulta retorna todos os resultados... independente de seleção! o codigo ficou assim: <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, ComandoSQL, Conexao, objrs2, strsql2, valor_resultado, ddi, mmi, aai, datai, ddf, mmf, aaf, dataf, CmbTipo, sql_Tipo, array_tipo, i, IIf, tipo Dim strConnection 'tipo = request.form ("cmbTipo") sql_tipo = "(" array_tipo = Split(cmbTipo, ",") For i = 0 To UBound(array_tipo) sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" & IIf(i <> UBound(array_tipo), " OR ", "") Next sql_tipo = sql_tipo & ")" ComandoSQL = "select * from a_pagar where '" & sql_tipo & "' and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" strsql2 = "select SUM(valor) as tvalor from a_pagar WHERE '" & sql_tipo & "' and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "#" o split já está incluso nesse array... então fiz certo em tirar aquilo que vinha tentando né? valeu a atenção! desculpa qualquer errinho que eu possa ter cometido...
  20. Notax
    Pessoal... fiz algumas modificações... mas ainda não deu certo para consultar mais de uma palavra... agora está assim: array_tipo = split(cmbTipo,",") For i=0 to ubound(array_tipo) sql_tipo = sql_tipo & "a_pagar = " & Trim(array_tipo(i)) & " OR " Next mas continou não funcionando... a consulta retorna sem erros mas também sem resultado nenhum... to no escuro... será que alguém dá essa força? outra coisa... quando eu tento usar somente o split pra fazer um teste... dá erro: type mismatch... a questão do split é assim? cmbTipo = split(request("cmbTipo"),",")
  21. Notax
    Pessoal... to tentando fazer o código abaixo para deletar registros de uma tabela, mas antes de deletar incluir em outra no mesmo bd... Acho que estou errando na hora de coletar os dados do banco para lançar na outra tabela, já que os mesmos não vem de formulários... tentei assim: mas não deu certo: outra problema... é que da forma em que está é possivel excluir vários registros ao mesmo tempo utilizando checkbox... portanto a outra dúvida seria como fazer pra tornar possivel inserir vários registros também dependendo da mesma marcação dos checbox... tentei assim: strQuery = "INSERT INTO lcaixa WHERE "&sql_id&" (data,historico,tipo,saidas) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&saidas&"')" mas acusou erro de sintaxe... à saber: já testei substituindo os valores acima que estão sendo requeridos por valores especificos... por exemplo data=#10/01/07#... neste caso ele exclui direitinho... e inclui os dados específicos que eu digitar... o script que estou tentando fazer está assim: <% Option Explicit Response.Expires = 0 Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id, strQuery, saidas, valor, objRs, data, historico, tipo id = Request.QueryString("checkbox") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set objRs = Server.CreateObject("ADODB.Connection") objRs.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " Next sql_id = left(sql_id,(len(sql_id)-4)) strQuery = "INSERT INTO lcaixa (data,historico,tipo,saidas) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&saidas&"')" objRs.Execute(strQuery) stringSQL = "DELETE * FROM a_pagar WHERE "&sql_id&"" objConn.Execute(stringSQL) objConn.close Set objConn = Nothing objRs.close Set objRs = Nothing if err = 0 Then response.redirect "efetuar_pagto_sucesso.asp" end if else End if%> valeu pela atençao...
  22. Notax

    [resolvido] Segurança

    pergunta respondeu ao Notax de Notax em ASP

    ahã... funcionou amigão... valeu a força! e obrigado pelas dicas!
  23. Notax

    [resolvido] Segurança

    pergunta respondeu ao Notax de Notax em ASP

    O amigão... valeu a atenção... então... o que eu to querendo é tornar o sistema mais seguro... um pouco mais... nada grandioso! o que acontece hoje é que o usuário ao digitar seu login e senha ele é remetido a uma página que tem exatamente o mesmo nome de seu login... mas o que acontece é que da mesma forma se ele simplesmente digitar o endereço www.blablabla.com/seulogin ele consegue acessar todo o conteúdo que deveria estar disponível somente ao digitar a senha... então o que eu queria é se ele tentar acessar o conteudo exclusivo sem digitar seu usuario e senha que ele seja remetido automaticamente a pagina de login! será que eu consegui deixar claro agora? bom... valeu pela atenção e espero que eu tenha conseguido explicar... um forte abraço.
  24. Notax

    [resolvido] Segurança

    pergunta respondeu ao Notax de Notax em ASP

    Oi Bareta... valeu a força... olha só... não to entendendo o seguinte: meu arquivo default.asp fica na pasta 'final', ou seja, é lá a primeira página que o usuário acessa pra fazer o login... após logado ele é redirecionado automaticamente para a pasta 'login_usuário'... o meu default.asp tá assim: <% Dim SrtMsg, erro SrtMsg = cstr(Request.QueryString("erro")) Select Case SrtMsg Case "1" erro = "Digite usuário" Case "2" erro = "Digite senha" Case "3" erro = "Nome de usuário não encontrado." Case "4" erro = "Senha incorreta." Case "5" erro = "Você não está logado." end select %> <html><head><title>Teste em ASP com DB</title></head> Digite abaixo seu login e senha para acessar a área restrita:<br> <hr size="1" color="black"> <%if len(SrtMsg) <> 0 then%><br><font color="red"><%=erro%></font><br><%end if%> <form action="verificar_usuario.asp" method="POST"> <table><tr><td>Usuário:</td><td align="right"><input type="text" name="usuario"></td></tr><tr><td>Senha:</td><td align="right"><input type="password" name="senha"></td></tr> <tr><td align="center" colspan="2"><input type="submit" value="login"></td></tr></table> <hr size="1" color="black"> </form></body></html> e o arquivo que faz a verficção se chama verificar_usuario.asp e está assim, tb na pasta final: <!--#include file="conexao.asp"--> <% Dim usuario, senha usuario = Trim(LCase(Request.Form("usuario"))) senha = Trim(LCase(Request.Form("senha"))) if len(usuario) = 0 then response.redirect "default.asp?erro=1" end if if len(senha) = 0 then response.redirect "default.asp?erro=2" end if Call AbrirDB sql = "SELECT * FROM login WHERE nome='" & usuario & "'" Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,ConnDB,3,3 if not RS.EOF then if RS("senha") <> senha then response.redirect "default.asp?erro=4" else Session("login") = True response.redirect "logado.asp" end if else response.redirect "default.asp?erro=3" end if RS.close Set RS = Nothing Call FecharDB%> Quando o cara digita www...../nome_do_usuario... automaticamente encontra o arquivo index.asp desta página e acessa os conteudos sem maiores problemas... então... como é que eu vou fazer pra ao acessar o index.asp da pasta nome_usuario consultar se ele efetuou o login lá no wwwroot em primeiro momento? Segundo sua resposta, eu tava pensando se derepente eu não teria que fazer ele conferir o login no próprio index.asp... mas quando tento ele já não encontra o arquivo include file.... tentei com o index assim (nome_usuario/index.asp) <!--#include file=".../final/conexao.asp"--> <% Dim usuario, senha usuario = Trim(LCase(Request.Form("usuario"))) senha = Trim(LCase(Request.Form("senha"))) if len(usuario) = 0 then response.redirect "default.asp?erro=1" end if if len(senha) = 0 then response.redirect "default.asp?erro=2" end if Call AbrirDB sql = "SELECT * FROM login WHERE nome='" & usuario & "'" Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,ConnDB,3,3 if not RS.EOF then if RS("senha") <> senha then response.redirect "default.asp?erro=4" else Session("login") = True response.redirect "logado.asp" end if else response.redirect "default.asp?erro=3" end if RS.close Set RS = Nothing Call FecharDB%> <html> <head> <title>::::::</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.html" scrolling="auto" marginwidth="12" marginheight="16" style="border-bottom-style: double; border-bottom-color: #000000"> <frame name="geral" src="geral.asp" scrolling="auto"> <noframes> <body> </body> </noframes> </frameset> </html> o erro que aparece é que ele não encontra o include file... o que acha? valeu mais uma vez... forte abraço!
  25. Notax
    Bah... valeu Kuroi... Grande ajuda... De grande valia mesmo... o problema 1 e 3 eu resolvi... só tive que mudar uma coisinha na questão 3... porque o somatório tava pegando o total entre as datas... mas não o total entre as datas referente somente aquele "tipo" consultado: ficou assim: Questão 1: ComandoSQL = "select * from a_pagar where tipo = '" & cmbTipo & "' and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" Questão 3: strsql2 = "select SUM(valor) as tvalor from a_pagar WHERE tipo = '" & cmbTipo & "' and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "#" Agora... a questão dois... para consultar duas ou mais palavras é onde eu to me atrapalhando pra valer... bom... com as modificações que me ajudaste a fazer a consulta está funcionando... mas somente para uma palavra, no caso de duas ou mais não retornava resultado nenhum... nem erro! daí o que eu fiz: peguei sua sugestão e fui estudar as questões de array e split... até esbocei umas coisinhas que estou colocando abaixo... mas não funcionou... e não tenho a menor ideia de onde estou errando... na verdade... nem sei se tem alguma coisa certa! então: incluí na dim assim: MyArray, SQLconsulta Daí... tentei fazer o array com o split assim: MyArray = Split(cmbTipo, ",") For i = 0 To UBound(cmbTipo) SQLconsulta = SQLconsulta & " campo LIKE '%" & cmbTipo(i) & "%'" If i <> UBound(cmbTipo) Then SQLconsulta = SQLconsulta & "cmbTipo = " & Trim(MyArray(i)) & " OR " End If Next e daí... eu substituí no ComandoSQL e no strsql2 o cmbTipo por SQLconsulta, ficando assim: ComandoSQL = "select * from a_pagar where tipo = '" & SQLconsulta & "' and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" strsql2 = "select SUM(valor) as tvalor from a_pagar WHERE tipo = '" & SQLconsulta & "' and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "#" mas não funcionou... o erro que deu foi: Microsoft VBScript runtime error '800a000d' Type mismatch: 'UBound' /padrão/a_pagar_resultado_consulta_tipo.asp, line 20 na verdade... eu acho que estou errando ate na lógica disso... porque assim, esse campo cmbTipo, ele não tem valores numéricos... somente palavras! então como é que eu vou fazer um for indicando palavras... sei lá... acho que já to falando um monte de besteiras... mas eu acho que o meu primeiro erro foi aí... e não to sabendo como arrumar! será que pode me dar mais essa força? Abração... e valeu mesmo viu! Tuas ajudas já foram um grande avanço até o momento...
×
×
  • Criar Novo...