Ir para conteúdo
Fórum Script Brasil

Rafael Spilki

Veteranos
  • Total de itens

    1.583
  • Registro em

  • Última visita

Posts postados por Rafael Spilki

  1. Cara, pra fazer isso na mesma página você terá de usar ajax ou algo similar...
     Se tu não sabes muito bem como resolver isso, sugiro então que, ao preecnher e submeter o form, o usuário seja redirecionado para uma outra pagina, exemplo "filtro.php"...

    Essa página, será praticamente identica a primeira, porém a query vai ser um pouco diferente, como segue:

    $consulta = mysqli_query($connect,"SELECT * FROM tb_publicacao where campo_pesquisa = '$variavel_resgatada_form' ORDER BY dt_publicacao") or die (mysql_error());
    			

    Aqui estou usando IGUAL, mas você pode usar o LIKE tb... pesquise no google sobre a diferença dos dois...

     

  2. Eu não entendo o que tem a ver o número de semana no mês com o negócio todo... se você tem apenas 4 e chegando ao último volta pro primeiro, tu não tens que relacionar pelo número de semanas. A variável máxima tu já tens, é 4 e pronto! Sacou?

    Agora, quanto a estas "ementas semanais", que eu não faço a menor ideia do que sejam... você pode fazer o seguinte:

    Cria uma tabela no banco de dados onde vai registrar a ementa atual e a data de quando ela foi incluída...

    você pode criar uma tabela no banco de dados, incluindo essas quatro ementas e a as datas iniciais que elas devem ser exibidas.

    Faça uma condicional que, sempre que a pagina for acessada, verifica as datas e mostra a ementa pertinente;

    Nesta mesma condicional, quando trocar a ementa pode já atualizar o banco de dados, incluindo naquela que está sendo substituída uma nova data para passar a ser mostrada...

     

  3. Cara, tem uma penca de formas de fazer isso...

    Eu acho que a mais limpa é a seguinte (principalmente pra você que é "super iniciante", como disse)...

    Cria dois arquivos:

    1) primeiro.html

    2) segundo.html

    Depois cria um terceiro arquivo chamado altera_arquivos.php...

    Nesse terceiro arquivo você faz por "FSO" o seguinte:

    a) troque o nome do primeiro arquivo para "_primeiro.html" (com underline na frente)

    b) troque o nome do segundo arquivo para "primeiro.html";

    c) troque novamente o nome do primeiro arquivo "_primeiro.html" para "segundo.html";

    Pronto! sempre que quiser mudar, acesse o altera_arquivos.php...

     

     

     

  4. É porque você está setando todos os inputs com o mesmo nome...

    tente assim:

    n = 0
    For Each File in Upload.Files
    n = n + 1
          Response.Write "<input type=text size=10 id=upimg_01_<%=n%> value="&File.Filename&">"
    Next

    Depois na página que você recupera, é só recuperar do 1 ao 15, sacou?

    Exemplo:

    upimg_01_1 = request.form("upimg_01_1")
    upimg_01_2 = request.form("upimg_01_2")
    upimg_01_3 = request.form("upimg_01_3")
    '... continua

    Ou, obviamente, pode passar o valor de 'n' em uma variável e rodar um loop pra recuperar os dados na página seguinte também... ;)

    Era isso?

  5. Bom dia!

    Algumas dúvidas, cujas respostas podem te ajudar:

    1) Tá usando banco access?

    2) O campo cod_user da tabela usuario é numérico?

    3) Debuga e posta aqui o resultado do debug nesta query, já aproveita e tira fora esses +, assim:

    sqlUser = "SELECT * FROM usuario WHERE cod_user = "CodUser" "
    
    response.write sqlUser
    
    response.end

    4) depois, antes de iniciar o if, debuga a variável que vem no recordset da query de dentro do loop:

      response.write rsUser("status_user")
      response.end
      if rsUser("status_user") = "Efetivado" then 

    Por hora era isso... aguardo retorno...

  6. Boa tarde! Bah... faz muito tempo que não respondo nada por aqui... mas segue...

    O que tu queres é muito simples.

    Primeiro, faz essa página Listar-registros.asp atualizar sozinha de temos em tempos.

    Caso não saiba como, só usar tag refresh, conforme expemplo abaixo que atualiza a cada 30 segundos...

    <meta http-equiv="refresh" content="30">

    Armazene o último registro do banco de dados em um cookie ou mesmo em uma outra tabela do banco de dados.

    A cada atualização verifique se o úttimo registro continua igual ao que está no cookie ou nessa outra tabela... se não, cria uma condicional pra tocar um som...

    A condicional seria algo do tipo:

    <%if variavel_cookie <> variavel_bd then %>
    <embed src="sirene.mp3" autostart=true volume=300 hidden=true>
    <%end if%>

    Era isso... absss

  7. Galera, resolvi!

    Problema 1) minha conexão com o banco, nos arquivos ...secundario.asp e ...terciario.asp dava conflito com o ...default.asp... alterei nomes de objeto de conexão...

    Problema 2) o resgate estava por querystring, mas existia um problema no nome da viriavel... me parece que estava indo com uma codificação ao invés de limpa... simplesmente corrigi trocando por request.querystring(1) e era isso... nem fiz questão de corrigir o nome da variavel... pois no caso é so uma mesmo e nem importa...

    Era isso! fica o registro...

    []'s Rafael Spilki

  8. Galera, tudo bem?

    Olha só, ontem lembrei da Andreia... até dei um oi pra ela no MSN... já que pesquisando no google achei esse tutorial da própria...

    http://scriptbrasil.com.br/forum/index.php?showtopic=121008

    O tuto funciona perfeito... mas quando modifiquei pras minhas necessidades devo ter feito alguma M, porque não rolou!

    Eu não sei se to me passando em algum detalhe... mas devo ta errando em algum lugar que não consigo ver...

    Será que rola uma força?

    Ficou assim:

    centro_custos_funcoes.js

    function RetornoAjax(id, url, container)
    {
    var xmlHttp=GetXmlHttpObject()
    
    if (xmlHttp==null)
    {
         alert ("Este browser não suporta HTTP Request")
         return
    }
    
    var url=url;
    url=url+"?id="+id;
    url=url+"&sid="+Math.random();
    xmlHttp.onreadystatechange=function()
    {
         if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
         {
             document.getElementById(container).innerHTML=xmlHttp.responseText
         }
    }
    xmlHttp.open("GET",url,true)
    xmlHttp.send(null)
    }
    
    function GetXmlHttpObject()
    {
    var objXMLHttp=null
    
         if (window.XMLHttpRequest)
             objXMLHttp=new XMLHttpRequest()
         else if (window.ActiveXObject)
             objXMLHttp=new ActiveXObject("Microsoft.XMLHTTP")
    
    return objXMLHttp
    }
    centro_custos_default.asp
    <!--#include file="conexao_mysql.asp"-->
    
    &lt;script src="centro_custos_funcoes.js" type="text/javascript"></script>
    
    
    <%
    Call AbrirDB_MySql
    SQL_centro_custos_primario = "select * from centro_custos_primario order by setor asc"
    set RS_centro_custos_primario = objConn_MySql.execute(SQL_centro_custos_primario)
    
    %>
    Primario:
    <select name="codigo_centro_custos_primario" id="codigo_centro_custos_primario" onchange="RetornoAjax(this.value, 'centro_custos_secundario.asp', 'codigo_centro_custos_secundario')">
    
    <option>Selecione um centro de custos primário</option>
    
    
    <% while not RS_centro_custos_primario.eof 
    codigo_setor = RS_centro_custos_primario("codigo_setor")
    setor = RS_centro_custos_primario("setor")
    %>
    <option value="<%= codigo_setor %>"><%= setor%></option>
    <% RS_centro_custos_primario.movenext
    wend
    %>
    </select>
    
    
    <br>
    <br>
    
    Secundario:
    <select name="codigo_centro_custos_secundario" id="codigo_centro_custos_secundario" onchange="RetornoAjax(this.value, 'centro_custos_terciario.asp', 'codigo_centro_custos_terciario')"></select>
    
    <br>
    <br>
    
    Terciario:
    <select name="codigo_centro_custos_terciario" id="codigo_centro_custos_terciario"></select>
    
    <%
    Call FecharDB_MySql
    %>
    centro_custos_secundario.asp
    <!--#include file="conexao_mysql.asp"-->
    
    <%
    Call AbrirDB_MySql
    
    codigo_centro_custos_primario = request.querystring("codigo_centro_custos_primario")
    'response.write codigo_centro_custos_primario
    'response.end
    
    SQL_centro_custos_secundario = "select * from centro_custos_secundario where relacionar_a = '"&codigo_centro_custos_primario&"' order by setor asc"
    set RS_centro_custos_secundario = objConn_MySql.execute(SQL_centro_custos_secundario)
    
    %>
    
    
    <%while not RS_centro_custos_secundario.eof
    codigo_centro_custos_secundario = RS_centro_custos_secundario("codigo_setor")
    setor_centro_custos_secundario = RS_centro_custos_secundario("setor")
    
    %>
    <option value="<%=codigo_centro_custos_secundario%>"><%=setor_centro_custos_secundario%></option>
    <%
    RS_centro_custos_secundario.movenext
    wend
    %>
    
    <%
    Call FecharDB_MySql
    %>
    centro_custos_terciario.asp
    <!--#include file="conexao_mysql.asp"-->
    
    <%
    Call AbrirDB_MySql
    
    codigo_centro_custos_secundario = request.querystring("codigo_centro_custos_secundario")
    
    SQL_centro_custos_terciario = "select * from centro_custos_terciario where relacionar_a = '"&codigo_centro_custos_secundario&"' order by setor asc"
    set RS_centro_custos_terciario = objConn_MySql.execute(SQL_centro_custos_terciario)
    
    %>
    
    
    <%while not RS_centro_custos_terciario.eof
    codigo_centro_custos_terciario = RS_centro_custos_terciario("codigo_setor")
    setor_centro_custos_terciario = RS_centro_custos_terciario("setor")
    
    %>
    <option value="<%=codigo_centro_custos_terciario%>"><%=setor_centro_custos_terciario%></option>
    <%
    RS_centro_custos_terciario.movenext
    wend
    %>
    
    <%
    Call FecharDB_MySql
    %>

    Só um detalhe: as páginas "...secundario.asp" e "...terciario.asp", quando testadas em separado funcionam perfeitamente... da mesma forma como o primeiro list/menu de "...default.asp", ou seja, acho que to cometendo erro é no ajax mesmo...

    Enfim... alguém sabe onde estou errando?

  9. Galera, beleza?

    Olha só... to fazendo um banner que tem um fundo colorido e sobre o fundo uns pngs com fundo transparente ficam rotacionando com o jcycle...

    Isso funciona perfeito no FF, Chrome, IE8 e IE9...

    No IE7 a div "slideShow" nativa do jcycle fica com fundo branco...

    Alguém faz alguma idéia do porque ou como corrigir isso?

    Já tentei forçar um background transparente... mas não rolou...

    Edit: pô galera foi mau... foi eu postar aqui que tive uma idéia e resolveu... fui lá no script jcycle.js e alterei ele desta forma:

    //$slides.each(function() { $(this).css('background-color', getBg(this)); });
            $slides.each(function() { $(this).css('background-color: transparent;', getBg(this)); });

    A linha comentada é como era...

    Isso fazia parte de uma função que pegava a cor da div se não tivesse nenhuma deixava branco... era isso! funcionou!

  10. Amigão, para adicionar 1 dia a sua data, você deve usar o dateadd, de uma procurada no google sobre isso... mas é mais ou menos assim:

    Lá em agenda2.asp você faz isso:

    <%
    If Request.QueryString <> "" Then
    
    hData = dateadd("d", 1, Request.QueryString("Data"))
    
    
    End If
    %>

    onde "d" é que você quer adicionar nos dias, mas poderia ser m para mês e yyyy para ano... e 1 é a quantidade de dias que você quer adicionar, poderia ser 15, 300 ou ainda negativos, para caso de subtrações de dias, como -1, -15 ou o que for...

    Ajudei?

    []'s Rafael Spilki

  11. Pessoal, boa noite.

    Tenho um roteador no andar 1 e um access point no andar 2.

    A AP está ligado no roteador com um cabo na LAN 2...

    Tanto AP como Roteador são da TP-Link.

    O Roteador tem SSID como andar1, já no AP configurei como "tipo" access point mesmo e coloquei com SSID andar2.

    Nos dois andares a internet funciona perfeito, mas quando um computador está em andar2 e outro em andar1 eles não se "enxergam" na rede.

    Se os dois computadores estiverem em andar1 eles se comunicam perfeitamente...

    Alguém sabe onde estou errando?

    CURIOSIDADE: se estou em andar2 consigo, por APENAS por, acesso remoto, acessar a área de trabalho do computador de andar1, mas não consigo acessar os arquivos desta máquina se não for desta forma, me entendem?

    []'s Rafael Spilki

  12. Pessoal, bom dia!

    Horas depois de fazer uma compra com meu cartão pela WEB recebi uma ligação do controle de segurança da cef informando que meu cartão havia sido clonado e que tentaram efetuar duas compras com ele...

    Daí, lógicamente a minha primeira suspeita é de algum problema no meu pc...

    Por isso posto o log... rola um help?

    Logfile of Trend Micro HijackThis v2.0.4

    Scan saved at 12:54:45, on 30/01/2012

    Platform: Windows 7 (WinNT 6.00.3504)

    MSIE: Internet Explorer v9.00 (9.00.8112.16421)

    Boot mode: Normal

    Running processes:

    C:\Program Files (x86)\EgisTec MyWinLocker\x86\mwlDaemon.exe

    C:\Windows\PLFSetI.exe

    C:\Program Files (x86)\Google\GoogleToolbarNotifier\GoogleToolbarNotifier.exe

    C:\Program Files (x86)\Launch Manager\LManager.exe

    C:\Program Files (x86)\EgisTec IPS\PmmUpdate.exe

    C:\Program Files (x86)\NewTech Infosystems\Acer Backup Manager\BackupManagerTray.exe

    C:\Program Files\AVAST Software\Avast\AvastUI.exe

    C:\Program Files (x86)\Cobian Backup 10\Cobian.exe

    C:\Program Files (x86)\Common Files\Java\Java Update\jusched.exe

    C:\Program Files (x86)\Launch Manager\LMworker.exe

    C:\Program Files (x86)\Cobian Backup 10\cbInterface.exe

    C:\Program Files (x86)\EgisTec IPS\EgisUpdate.exe

    C:\Program Files (x86)\Motorola\MotoHelper\MotoHelperAgent.exe

    C:\Program Files (x86)\Mozilla Firefox\firefox.exe

    c:\Program Files (x86)\Corel\CorelDRAW Graphics Suite X5\Programs\CORELDRW.EXE

    C:\Program Files (x86)\Mozilla Firefox\plugin-container.exe

    C:\Program Files (x86)\PremiumSoft\Navicat Premium\navicat.exe

    C:\Program Files (x86)\Adobe\Adobe Dreamweaver CS5\Dreamweaver.exe

    C:\Program Files (x86)\Common Files\Adobe\CS5ServiceManager\CS5ServiceManager.exe

    C:\Program Files (x86)\Internet Explorer\iexplore.exe

    C:\Program Files (x86)\Internet Explorer\iexplore.exe

    C:\Program Files (x86)\Adobe\Adobe Fireworks CS5\Fireworks.exe

    C:\Users\Rafael\Desktop\HijackThis.exe

    R1 - HKCU\Software\Microsoft\Internet Explorer\Main,Default_Page_URL = http://homepage.acer.com/rdr.aspx?b=ACAW&a...53z045t4752n247

    R1 - HKCU\Software\Microsoft\Internet Explorer\Main,Search Page = http://go.microsoft.com/fwlink/?LinkId=54896

    R0 - HKCU\Software\Microsoft\Internet Explorer\Main,Start Page = http://homepage.acer.com/rdr.aspx?b=ACAW&a...53z045t4752n247

    R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Page_URL = http://homepage.acer.com/rdr.aspx?b=ACAW&a...53z045t4752n247

    R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Search_URL = http://go.microsoft.com/fwlink/?LinkId=54896

    R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Search Page = http://go.microsoft.com/fwlink/?LinkId=54896

    R0 - HKLM\Software\Microsoft\Internet Explorer\Main,Start Page = http://homepage.acer.com/rdr.aspx?b=ACAW&a...53z045t4752n247

    R0 - HKLM\Software\Microsoft\Internet Explorer\Search,SearchAssistant =

    R0 - HKLM\Software\Microsoft\Internet Explorer\Search,CustomizeSearch =

    R0 - HKLM\Software\Microsoft\Internet Explorer\Main,Local Page = C:\Windows\SysWOW64\blank.htm

    R1 - HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings,ProxyOverride = *.local

    R0 - HKCU\Software\Microsoft\Internet Explorer\Toolbar,LinksFolderName =

    R3 - URLSearchHook: (no name) - {0EBBBE48-BAD4-4B4C-8E5A-516ABECAE064} - (no file)

    F2 - REG:system.ini: UserInit=userinit.exe

    O2 - BHO: btorbit.com - {000123B4-9B42-4900-B3F7-F4B073EFC214} - C:\Program Files (x86)\Orbitdownloader\orbitcth.dll

    O2 - BHO: AcroIEHelperStub - {18DF081C-E8AD-4283-A596-FA578C2EBDC3} - C:\Program Files (x86)\Common Files\Adobe\Acrobat\ActiveX\AcroIEHelperShim.dll

    O2 - BHO: McAfee Phishing Filter - {27B4851A-3207-45A2-B947-BE8AFE6163AB} - (no file)

    O2 - BHO: CompSegIB - {2E3C3651-B19C-4DD9-A979-901EC3E930AF} - C:\Program Files (x86)\Scpad\scpsssh2.dll

    O2 - BHO: (no name) - {5C255C8A-E604-49b4-9D64-90988571CECB} - (no file)

    O2 - BHO: Groove GFS Browser Helper - {72853161-30C5-4D22-B7F9-0BBC1D38A37E} - C:\PROGRA~2\MICROS~2\Office12\GR469A~1.DLL

    O2 - BHO: avast! WebRep - {8E5E2654-AD2D-48bf-AC2D-D17F00898D06} - C:\Program Files\AVAST Software\Avast\aswWebRepIE.dll

    O2 - BHO: Auxiliar de Conexão do Windows Live - {9030D464-4C02-4ABF-8ECC-5164760863C6} - C:\Program Files (x86)\Common Files\Microsoft Shared\Windows Live\WindowsLiveLogin.dll

    O2 - BHO: Google Toolbar Helper - {AA58ED58-01DD-4d91-8333-CF10577473F7} - C:\Program Files (x86)\Google\Google Toolbar\GoogleToolbar_32.dll

    O2 - BHO: (no name) - {B164E929-A1B6-4A06-B104-2CD0E90A88FF} - (no file)

    O2 - BHO: G-Buster Browser Defense - {C41A1C0E-EA6C-11D4-B1B8-444553540000} - C:\Program Files (x86)\GbPlugin\gbieh.dll

    O2 - BHO: G-Buster Browser Defense CEF - {C41A1C0E-EA6C-11D4-B1B8-444553540003} - C:\Program Files (x86)\GbPlugin\gbiehcef.dll

    O2 - BHO: G-Buster Browser Defense Itaú Unibanco - {C41A1C0E-EA6C-11D4-B1B8-444553540008} - C:\PROGRA~2\GbPlugin\gbiehuni.dll

    O2 - BHO: Java Plug-In 2 SSV Helper - {DBC80044-A445-435b-BC74-9C25C1C588A9} - C:\Program Files (x86)\Java\jre6\bin\jp2ssv.dll

    O3 - Toolbar: avast! WebRep - {8E5E2654-AD2D-48bf-AC2D-D17F00898D06} - C:\Program Files\AVAST Software\Avast\aswWebRepIE.dll

    O3 - Toolbar: Google Toolbar - {2318C2B1-4965-11d4-9B18-009027A5CD4F} - C:\Program Files (x86)\Google\Google Toolbar\GoogleToolbar_32.dll

    O4 - HKLM\..\Run: [LManager]C:\Program Files (x86)\Launch Manager\LManager.exe

    O4 - HKLM\..\Run: [suiteTray] "C:\Program Files (x86)\EgisTec MyWinLockerSuite\x86\SuiteTray.exe"

    O4 - HKLM\..\Run: [EgisUpdate] "C:\Program Files (x86)\EgisTec IPS\EgisUpdate.exe" -d

    O4 - HKLM\..\Run: [EgisTecPMMUpdate] "C:\Program Files (x86)\EgisTec IPS\PmmUpdate.exe"

    O4 - HKLM\..\Run: [Adobe Reader Speed Launcher] "C:\Program Files (x86)\Adobe\Reader 9.0\Reader\Reader_sl.exe"

    O4 - HKLM\..\Run: [backupManagerTray] "C:\Program Files (x86)\NewTech Infosystems\Acer Backup Manager\BackupManagerTray.exe" -h -k

    O4 - HKLM\..\Run: [startCCC] "C:\Program Files (x86)\ATI Technologies\ATI.ACE\Core-Static\CLIStart.exe" MSRun

    O4 - HKLM\..\Run: [avast] "C:\Program Files\AVAST Software\Avast\avastUI.exe" /nogui

    O4 - HKLM\..\Run: [AdobeCS5ServiceManager] "C:\Program Files (x86)\Common Files\Adobe\CS5ServiceManager\CS5ServiceManager.exe" -launchedbylogin

    O4 - HKLM\..\Run: [QuickTime Task] "C:\Program Files (x86)\QuickTime\QTTask.exe" -atboottime

    O4 - HKLM\..\Run: [Cobian Backup 10] "C:\Program Files (x86)\Cobian Backup 10\Cobian.exe"

    O4 - HKLM\..\Run: [sunJavaUpdateSched] "C:\Program Files (x86)\Common Files\Java\Java Update\jusched.exe"

    O4 - HKLM\..\Run: [GrooveMonitor] "C:\Program Files (x86)\Microsoft Office\Office12\GrooveMonitor.exe"

    O4 - HKLM\..\Run: [ACPW05EN] "C:\Program Files (x86)\ACD Systems\ACDSee Pro\5.0\ACDSeeProInTouch2.exe" /pid ACPW05EN

    O4 - HKCU\..\Run: [swg] "C:\Program Files (x86)\Google\GoogleToolbarNotifier\GoogleToolbarNotifier.exe"

    O4 - HKUS\S-1-5-19\..\Run: [sidebar] %ProgramFiles%\Windows Sidebar\Sidebar.exe /autoRun (User 'SERVIÇO LOCAL')

    O4 - HKUS\S-1-5-19\..\RunOnce: [mctadmin] C:\Windows\System32\mctadmin.exe (User 'SERVIÇO LOCAL')

    O4 - HKUS\S-1-5-20\..\Run: [sidebar] %ProgramFiles%\Windows Sidebar\Sidebar.exe /autoRun (User 'SERVIÇO DE REDE')

    O4 - HKUS\S-1-5-20\..\RunOnce: [mctadmin] C:\Windows\System32\mctadmin.exe (User 'SERVIÇO DE REDE')

    O4 - Global Startup: Microsoft Office.lnk = C:\Program Files (x86)\Microsoft Office\Office\OSA9.EXE

    O8 - Extra context menu item: &Download by Orbit - res://C:\Program Files (x86)\Orbitdownloader\orbitmxt.dll/201

    O8 - Extra context menu item: &Grab video by Orbit - res://C:\Program Files (x86)\Orbitdownloader\orbitmxt.dll/204

    O8 - Extra context menu item: Do&wnload selected by Orbit - res://C:\Program Files (x86)\Orbitdownloader\orbitmxt.dll/203

    O8 - Extra context menu item: Down&load all by Orbit - res://C:\Program Files (x86)\Orbitdownloader\orbitmxt.dll/202

    O8 - Extra context menu item: E&xportar para o Microsoft Excel - res://C:\PROGRA~2\MICROS~2\Office12\EXCEL.EXE/3000

    O8 - Extra context menu item: Google Sidewiki... - res://C:\Program Files (x86)\Google\Google Toolbar\Component\GoogleToolbarDynamic_mui_en_D183CA64F05FDD98.dll/cmsidewiki.html

    O9 - Extra button: Incluir no Blog - {219C3416-8CB2-491a-A3C7-D9FCDDC9D600} - C:\Program Files (x86)\Windows Live\Writer\WriterBrowserExtension.dll

    O9 - Extra 'Tools' menuitem: &Incluir no Blog no Windows Live Writer - {219C3416-8CB2-491a-A3C7-D9FCDDC9D600} - C:\Program Files (x86)\Windows Live\Writer\WriterBrowserExtension.dll

    O9 - Extra button: Enviar para o OneNote - {2670000A-7350-4f3c-8081-5663EE0C6C49} - C:\PROGRA~2\MICROS~2\Office12\ONBttnIE.dll

    O9 - Extra 'Tools' menuitem: &Enviar para o OneNote - {2670000A-7350-4f3c-8081-5663EE0C6C49} - C:\PROGRA~2\MICROS~2\Office12\ONBttnIE.dll

    O9 - Extra button: Research - {92780B25-18CC-41C8-B9BE-3C9C571A8263} - C:\PROGRA~2\MICROS~2\Office12\REFIEBAR.DLL

    O11 - Options group: [ACCELERATED_GRAPHICS] Accelerated graphics

    O15 - Trusted Zone: www.bancobrasil.com.br

    O15 - Trusted Zone: www14.bancobrasil.com.br

    O15 - Trusted Zone: www2.bancobrasil.com.br

    O15 - Trusted Zone: www.bb.com.br

    O15 - Trusted Zone: imagem.caixa.gov.br

    O15 - Trusted Zone: internetbanking.caixa.gov.br

    O15 - Trusted Zone: www.caixa.gov.br

    O16 - DPF: {9EC30204-384D-11D3-9CA3-00A024F0AF03} (ValidaUsuario Class) - https://cpne.bradesco.com.br/certifexp.cab

    O16 - DPF: {B3D3825B-2120-4B0E-8C45-80ECC1D3E70D} (GeraCert Class) - https://cpne.bradesco.com.br/CA.cab

    O16 - DPF: {E37CB5F0-51F5-4395-A808-5FA49E399008} (GbPluginObj Class) - https://clickbanking.itau.com.br/itau/gbplu...GbPluginUni.cab

    O16 - DPF: {E87F6C8E-16C0-11D3-BEF7-009027438003} (Persits Software XUpload) - http://support.persits.com/xupload/XUpload.ocx

    O17 - HKLM\System\CCS\Services\Tcpip\..\{5CE01BE0-B203-476B-A2D2-984118AA857C}: NameServer = 8.8.8.8,8.8.4.4

    O18 - Protocol: dssrequest - {5513F07E-936B-4E52-9B00-067394E91CC5} - (no file)

    O18 - Protocol: grooveLocalGWS - {88FED34C-F0CA-4636-A375-3CB6248B04CD} - C:\PROGRA~2\MICROS~2\Office12\GRA32A~1.DLL

    O18 - Protocol: sacore - {5513F07E-936B-4E52-9B00-067394E91CC5} - (no file)

    O20 - AppInit_DLLs: C:\Windows\SysWOW64\guard32.dll

    O20 - Winlogon Notify: GbPluginBb - C:\Program Files (x86)\GbPlugin\gbieh.dll

    O20 - Winlogon Notify: GbPluginCef - C:\Program Files (x86)\GbPlugin\gbiehCef.dll

    O20 - Winlogon Notify: GbPluginUni - C:\PROGRA~2\GbPlugin\gbiehUni.dll

    O21 - SSODL: CompIBBrd - {A3717295-941D-416F-9384-ED1736729F1C} - C:\Program Files (x86)\Scpad\scpLIB.dll

    O23 - Service: @%SystemRoot%\system32\Alg.exe,-112 (ALG) - Unknown owner - C:\Windows\System32\alg.exe (file missing)

    O23 - Service: AMD External Events Utility - Unknown owner - C:\Windows\system32\atiesrxx.exe (file missing)

    O23 - Service: avast! Antivirus - AVAST Software - C:\Program Files\AVAST Software\Avast\AvastSvc.exe

    O23 - Service: ##Id_String1.6844F930_1628_4223_B5CC_5BB94B879762## (Bonjour Service) - Apple Computer, Inc. - C:\Program Files (x86)\Bonjour\mDNSResponder.exe

    O23 - Service: COMODO Internet Security Helper Service (cmdAgent) - COMODO - C:\Program Files\COMODO\COMODO Internet Security\cmdagent.exe

    O23 - Service: Dritek WMI Service (DsiWMIService) - Dritek System Inc. - C:\Program Files (x86)\Launch Manager\dsiwmis.exe

    O23 - Service: @%SystemRoot%\system32\efssvc.dll,-100 (EFS) - Unknown owner - C:\Windows\System32\lsass.exe (file missing)

    O23 - Service: Acer ePower Service (ePowerSvc) - Acer Incorporated - C:\Program Files\Acer\Acer ePower Management\ePowerSvc.exe

    O23 - Service: @%systemroot%\system32\fxsresm.dll,-118 (Fax) - Unknown owner - C:\Windows\system32\fxssvc.exe (file missing)

    O23 - Service: FLEXnet Licensing Service - Macrovision Europe Ltd. - C:\Program Files (x86)\Common Files\Macrovision Shared\FLEXnet Publisher\FNPLicensingService.exe

    O23 - Service: Gbp Service (GbpSv) - - C:\PROGRA~2\GbPlugin\GbpSv.exe

    O23 - Service: GREGService - Acer Incorporated - C:\Program Files (x86)\Acer\Registration\GREGsvc.exe

    O23 - Service: Google Update Service (gupdate) (gupdate) - Google Inc. - C:\Program Files (x86)\Google\Update\GoogleUpdate.exe

    O23 - Service: Serviço do Google Update (gupdatem) (gupdatem) - Google Inc. - C:\Program Files (x86)\Google\Update\GoogleUpdate.exe

    O23 - Service: Google Software Updater (gusvc) - Google - C:\Program Files (x86)\Google\Common\Google Updater\GoogleUpdaterService.exe

    O23 - Service: @keyiso.dll,-100 (KeyIso) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)

    O23 - Service: MotoHelper Service (MotoHelper) - Unknown owner - C:\Program Files (x86)\Motorola\MotoHelper\MotoHelperService.exe

    O23 - Service: @comres.dll,-2797 (MSDTC) - Unknown owner - C:\Windows\System32\msdtc.exe (file missing)

    O23 - Service: MyWinLocker Service (MWLService) - Egis Technology Inc. - C:\Program Files (x86)\EgisTec MyWinLocker\x86\MWLService.exe

    O23 - Service: @%SystemRoot%\System32\netlogon.dll,-102 (Netlogon) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)

    O23 - Service: NTI IScheduleSvc - NewTech Infosystems, Inc. - C:\Program Files (x86)\NewTech Infosystems\Acer Backup Manager\IScheduleSvc.exe

    O23 - Service: NTI Backup Now 5 Backup Service (NTIBackupSvc) - NewTech InfoSystems, Inc. - C:\Program Files (x86)\NewTech Infosystems\NTI Backup Now 5\BackupSvc.exe

    O23 - Service: NTI Backup Now 5 Scheduler Service (NTISchedulerSvc) - NewTech Infosystems, Inc. - C:\Program Files (x86)\NewTech Infosystems\NTI Backup Now 5\SchedulerSvc.exe

    O23 - Service: @%systemroot%\system32\psbase.dll,-300 (ProtectedStorage) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)

    O23 - Service: Protexis Licensing V2 (PSI_SVC_2) - Protexis Inc. - c:\Program Files (x86)\Common Files\Protexis\License Service\PsiService_2.exe

    O23 - Service: @%systemroot%\system32\Locator.exe,-2 (RpcLocator) - Unknown owner - C:\Windows\system32\locator.exe (file missing)

    O23 - Service: @%SystemRoot%\system32\samsrv.dll,-1 (SamSs) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)

    O23 - Service: scpVista - Banco Bradesco S.A. - C:\Program Files (x86)\Scpad\scpVista.exe

    O23 - Service: @%SystemRoot%\system32\snmptrap.exe,-3 (SNMPTRAP) - Unknown owner - C:\Windows\System32\snmptrap.exe (file missing)

    O23 - Service: @%systemroot%\system32\spoolsv.exe,-1 (Spooler) - Unknown owner - C:\Windows\System32\spoolsv.exe (file missing)

    O23 - Service: @%SystemRoot%\system32\sppsvc.exe,-101 (sppsvc) - Unknown owner - C:\Windows\system32\sppsvc.exe (file missing)

    O23 - Service: @%SystemRoot%\system32\ui0detect.exe,-101 (UI0Detect) - Unknown owner - C:\Windows\system32\UI0Detect.exe (file missing)

    O23 - Service: Updater Service - Acer Group - C:\Program Files\Acer\Acer Updater\UpdaterService.exe

    O23 - Service: @%SystemRoot%\system32\vaultsvc.dll,-1003 (VaultSvc) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)

    O23 - Service: @%SystemRoot%\system32\vds.exe,-100 (vds) - Unknown owner - C:\Windows\System32\vds.exe (file missing)

    O23 - Service: @%systemroot%\system32\vssvc.exe,-102 (VSS) - Unknown owner - C:\Windows\system32\vssvc.exe (file missing)

    O23 - Service: @%systemroot%\system32\wbengine.exe,-104 (wbengine) - Unknown owner - C:\Windows\system32\wbengine.exe (file missing)

    O23 - Service: @%Systemroot%\system32\wbem\wmiapsrv.exe,-110 (wmiApSrv) - Unknown owner - C:\Windows\system32\wbem\WmiApSrv.exe (file missing)

    O23 - Service: @%PROGRAMFILES%\Windows Media Player\wmpnetwk.exe,-101 (WMPNetworkSvc) - Unknown owner - C:\Program Files (x86)\Windows Media Player\wmpnetwk.exe (file missing)

    --

    End of file - 15373 bytes

    []'s Rafael Spilki

  13. Não sei se entendi muito bem... mas enfim, se quiseres após executar um script asp qualquer redirecionar o usuário para uma outra página basta adicionar a linha abaixo ao final do script:

    <%response.redirect "index.asp"%>

    Era isso que queria saber?

    []'s Rafael Spilki

  14. Cara... você leu o que eu escrevi? Tem um outro post seu sobre basicamente a mesma coisa...

    Tire essa buscainteligente daí que ela deve ta formatando sua variável...

    Além disso, cade o resultado do debug que eu pedi?

    o between deverá ser algo do tipo:

    valor between '"&xvalor1&"' and '"&xvalor2&"'

    []'s

  15. Dá um debug no teu select... provavelmente essa busca_inteligente está "formatando" os números do valor de forma a não encontrar correspondência nos bancos...

    Aliás: que bd está utilizando? Se for access lembre-se que os valores devem ser neste formato 1.10 (ao invés de 1,10), sacou? Caso não esteja no formato certo use replace para corrigir...

    sqlstmt= "SELECT * FROM venda WHERE codigoimobiliaria LIKE '%"& busca_inteligente(xcodigo) &"%' and tipo LIKE '%"& busca_inteligente(xtipo) &"%' and cidade LIKE'%"& busca_inteligente(xcidade) &"%' and bairro LIKE'%" & busca_inteligente(xbairro) &"%' and valor between '%"& busca_inteligente(xvalor1) &"%' and '%"& busca_inteligente(xvalor2) &"%' order by codigoimobiliaria desc"
    'inicio debug
    response.write sqlstmt
    response.end
    'fim debug

    []'s Rafael Spilki

  16. Dá um debug como no trecho abaixo... as datas devem estar em formatos esquisitos...

    data_atual = CDate(FormatDateTime((Date),2))
    data_futura = CDate(FormatDateTime((data_reuniao),2))
    
    'inicio debug
    response.write "data_atual = " & data_atual & "<br>"
    response.write "data_futura = " & data_futura  & "<br>"
    response.end
    'fim debug
    
    data_restante = DateDiff("D", data_futura, data_atual )

    []'s Rafael Spilki

  17. Assim... pra comparar datas você tem que usar muitas vezes a função cdate pra informar pro asp que aquilo é uma data...

    Daí o que te aconselho é o seguinte:

    Como só te interessam o mês e ano... coloque o dia 01 na frente dos dois, sacou?

    Ficaria assim:

    If cdate("01"&"/"&MID(rs.Fields("Prox"),4,7)) < cdate ("01"&"/"&DataSistem) THEN
    Deve funcionar... testa aí e posta aqui os resultados ok? Última coisa... se não funcionar, tenta fazer com que sua condicional mude apenas a cor do texto e não toda a tag td... assim:
    <td width="15%" align="center">
    
    <%
    If cdate("01"&"/"&MID(rs.Fields("Prox"),4,7)) < cdate ("01"&"/"&DataSistem) THEN%>
    <font size="1" color = "red"><%=rs.Fields("Num_patr").Value%></font>
    <%else%>
    <font size="1"><%=rs.Fields("Num_patr").Value%> - <%=MID(rs.Fields("Prox"),4,7)%> - <%=DataSistem%> </font>
    <%end if%>
    
    </td>

    Sacou?

  18. Então... a coisa tá meio poluída ali... mas pelo que vi a linha 63 é essa: Dim porta2(99999)...

    Uma coisa que percebi, que penso estar errado, é o fato de que está declarando as variáveis dentro de um loop, ou seja, você tá declarando mais de uma vez a mesma variável...

    Para corrigir isso, bastaria tirar as declarações de dentro do loop, assim:

    <%
    Dim porta1(99999), porta2(99999)
    
    for i=1 to 2
    'e segue o baile...
    %>

    Só que assim, o que tá confuso é que essa mensagem "Type Mismatch" normalmente ocorre com outros tipos de erro e não propriamente esse das declarações de variável... todo caso vale a pena a alteração acima e mais um teste (já que as mensagens de erro do asp nem sempre são precisas), depois poste aqui o código com esta alteração, nova mensagem de erro (se houver) e etc...

    []'s Rafael Spilki

×
×
  • Criar Novo...