(Resolvido) Campo da página não retorna valor algum - HELP!

[nosliwde]

Eis aí o código da minha página:

<!-- #include file = "../../Include/Funcao_data.inc" -->
<%
If Session("PermAccesso")<>0 then 
            if (Session("Acesso")<>"") AND ((InStr(1, Session("Acesso"), ",Financeiro,")<>0) OR (InStr(1, Session("Acesso"), ",Administrador,")<>0)) then 
            else 
                    Session("Acesso")=""
                    Session("PermAccesso")=0
                    response.write "&lt;script>alert('Você não tem acesso a este Módulo.\n\nEntre em contato com seu Usuário Master.');</script>" 
                    response.write "&lt;script>parent.location='../index.htm';</script>" 
            end if
else
            Session("Acesso")=""
            Session("PermAccesso")=0
            response.write "&lt;script>alert('Você não esta logado no sistema.\n\nFaça o login digitando seu login e sua senha nos campos indicados');</script>" 
            response.write "&lt;script>parent.location='../index.htm';</script>" 
end if
%>


<%
function formatadata(data)
'--Criando um vetor para teste
vVetor = "0,1,2"
vVetor = Split(data,"/")

new_data = vVetor(2)&"-"&vVetor(1)&"-"&vVetor(0)

formatadata = new_data
end function

    TABELA="Conciliacao"
    tamanho_pagina=20
    FORMULARIO="document.form."
    RAIZ="../../"
    if Request.QueryString("Pagina")="" then
      pagina = 1
    else   
        pagina = Request.QueryString("Pagina")
    end if   

    Set conexao = Server.CreateObject("ADODB.Connection")
    conexao.Open Application("Conexao")

    if (Request.QueryString("inContaBancaria")<>"") then
'     strLista = "SELECT C.*, B.*, A.AgePrefixo, A.AgeDescricao, CB.ConBanNumero, CB.ConBanDescricao FROM Cheque C INNER JOIN ContaBancaria CB ON C.ConBanCodigo = CB.ConBanCodigo INNER JOIN Agencia A ON CB.AgeCodigo = A.AgeCodigo INNER JOIN Banco B ON A.BanNumero = B.BanNumero INNER JOIN Empresa E ON E.EmpCodigo=CB.EmpCodigo INNER JOIN OcorrenciaFinanceira OC ON OC.EmpCodigo=E.EmpCodigo WHERE C.CheDataConciliado IS NULL AND C.ConBanCodigo="&Request.QueryString("inContaBancaria")&" "


[color=#FF0000][b]'AQUI SERÃO EFETUADAS MUDANÇAS

    if Request.form("inData1")="" Then
        strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria")&" AND CheDataConciliado is NULL"
    else
         strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria")&" AND CheData BETWEEN #" &Request.Form("inData1")& "# AND #" &Request.form("inData2")& "# "
    end if
 [/b][/color]-------------------------------------------------------------------------------------------- 

'VERIFICA SE não EXISTE FILTRO
    if (Request.QueryString("inValor")<>"") then    
'MONTAR QUERY DE LISTAGEM COM PESQUISA        
        if not(Request.QueryString("inCampos")="") then
            strLista = strLista & " AND "& Request.QueryString("inCampos")
'VERIFICA O TIPO DO CAMPO A SER PESQUISADO
            if not(Request.QueryString("inTipo")="") then
'STRING
              if Request.QueryString("inTipo")="string" then
'VERIFICA O CRITERIO DE PESQUISA
                    if Request.QueryString("inCriterio")=1 then
                        strLista = strLista & " LIKE '" & Request.QueryString("inValor") & "%' " 
                    elseif Request.QueryString("inCriterio")=2 then
                        strLista = strLista & " LIKE '%" & Request.QueryString("inValor") & "%' " 
                    else
                        strLista = strLista & " LIKE '" & Request.QueryString("inValor") & "' " 
                    end if
'DATA
                elseif Request.QueryString("inTipo")="data" then
                
                
                    strLista = strLista & "= '" & formatadata(Request.QueryString("inValor")) & "' "
                elseif Request.QueryString("inTipo")="int" then
'VERIFICA O CRITERIO DE PESQUISA
                    if Request.QueryString("inCriterio")=1 then
                        strLista = strLista & "=" & Request.QueryString("inValor") & " " 
                    elseif Request.QueryString("inCriterio")=2 then
                        strLista = strLista & ">" & Request.QueryString("inValor") & " " 
                    else
                        strLista = strLista & "<" & Request.QueryString("inValor") & " " 
                    end if
                else
                    strLista = strLista & "=" & Request.QueryString("inValor") & " " 
                end if    
            end if    
        else
      end if
    end if

'VERIFICA SE FOI PESQUISADO PELA INICIAL
          if not(Request.QueryString("Inicial")="") then
                if (Request.QueryString("Inicial")="Num") then
                    strLista = strLista & "AND (CheDestinatario LIKE '[0-9]%')"
                else
                    strLista = strLista & "AND (CheDestinatario LIKE '" & Request.QueryString("Inicial") & "%')"
                end if
        end if

'-------------------------------------------------------------------------------------------------    

    if Request.QueryString("inOrdem")<>"" then
        strLista = strLista + " ORDER BY " & Request.QueryString("inOrdem")
    else
        strLista = strLista + " ORDER BY CheNumero"
    end if

    Set rsLista = Server.CreateObject("Adodb.Recordset")
    rsLista.PageSize = tamanho_pagina
    rsLista.open strLista, Conexao, 1, 3

    if rsLista.RecordCount>0 then
        rsLista.AbsolutePage = pagina
    end if    
    ultpagina = rsLista.RecordCount\tamanho_pagina
    shift = rsLista.RecordCount mod tamanho_pagina
    if shift>0 then
        ultpagina = ultpagina+1
    end if   
end if    



%>

<html>
<head>
<title>- FINANCEIRO -</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="..\..\Estilos\principal.css">
&lt;script src="..\..\Script\geral.js"></script>
&lt;script src="..\..\Script\conciliacao.js"></script>
&lt;script src="..\..\Script\pupdate.js"></script>
<!-- #include file = "../../Include/calendario.inc" -->
&lt;script>
function Filtrar_Com(tabela)
{
    <%    if Request.QueryString("inContaBancaria")<>"" then%>
        campo=<%=FORMULARIO%>inCampos.value;
        valor=<%=FORMULARIO%>inValor.value;
        criterio=<%=FORMULARIO%>inCriterio.value;
        ordem=<%=FORMULARIO%>inOrdem.value;
    <%    else%>
        valor=""
        ordem=""
    <%    end if%>
    onjBanco = document.form.ddlBanco;
    objAgencia = document.form.ddlAgencia;
    banco = onjBanco.options[onjBanco.selectedIndex].value;
    agencia = objAgencia.options[objAgencia.selectedIndex].value;
    document.pesquisa.inBanco.value = banco;
    document.pesquisa.inAgencia.value = agencia;
    
    msg = "";
    if (form.inContaBancaria.value=="") {
        msg+=" Conta Bancaria - Não foi preenchido\n\n>1o Selecione o Banco;  \n>2o A Agência; \n>3o A conta Bancária.";
    }    
    <%    if Request.QueryString("inContaBancaria")<>"" then%>
    if (valor!="")
    {
        if (Get_Tipo(tabela,campo) == "int")
        {
            if (isNaN(valor))
                msg+= "O valor a ser filtrado deve ser número!";    
        }
    }
    <%    end if%>
    if (msg=="")
    {
        if (valor!="") {
            window.location=Get_Lista(tabela)+"?inCampos="+Get_Descricao(tabela,campo)+"&inValor="+valor+"&inCriterio="+criterio+"&inTipo="+Get_Tipo(tabela,campo)+"&inOrdem="+Get_Descricao(tabela,ordem)+"&inContaBancaria="+form.inContaBancaria.value+"&inBanco="+banco+"&inAgencia="+agencia;
        }
        else {
            if (ordem!="") {
                window.location=Get_Lista(tabela)+"?inContaBancaria="+form.inContaBancaria.value+"&inOrdem="+Get_Descricao(tabela,ordem)+"&inBanco="+banco+"&inAgencia="+agencia;
            }
            else {
                window.location=Get_Lista(tabela)+"?inContaBancaria="+form.inContaBancaria.value+"&inBanco="+banco+"&inAgencia="+agencia;
            }
            
        }
    }
    else    {
            alert(msg);
    }        
}


function Mudar_Criterio(tabela,campo,criterio)
{
    while(criterio.length>0) 
        criterio.options[0]=null
    if (Get_Tipo(tabela,campo)=="string")
    { 
      criterio.options[0]=new Option("Começa com", 1)
    criterio.options[1]=new Option("Contém", 2)
    criterio.options[2]=new Option("Exata", 3)
    }
    else if (Get_Tipo(tabela,campo)=="int")
    { 
      criterio.options[0]=new Option("=", 1)
    criterio.options[1]=new Option(">", 2)
    criterio.options[2]=new Option("<", 3)
    }
}

function Pesquisar()
{
    pagina="JanEmpresa.asp" 
    window.open (pagina,"Empresa","toolbar=no,location=no,directories=no,status=no,scrollbars=yes,menubar=no,resizable=no,width=500,height=500,top=30,left=200");
}

//FUNCAO PARA MONTAR OS SELECTSBOX **************************************
//***********************************************************************
//ARRAY DA AGENCIA
<%
    strAgencia = "SELECT BANNUMERO, AGECODIGO, AGEPREFIXO, AGEDESCRICAO FROM AGENCIA WHERE EMPCODIGO = "&Session("Empresa")
    Set rsAgencia = Server.CreateObject("Adodb.Recordset")
    rsAgencia.open strAgencia, conexao, 1
    numArrayAgencia = rsAgencia.RecordCount
    if(numArrayAgencia <> 0)then
    i_ag = 1
%>
arr_tipo = new Array(<%=numArrayAgencia%>);
arr_valor = new Array(<%=numArrayAgencia%>);
arr_tipo[0] = "0";
arr_valor[0] = "selecione";
<% while not rsAgencia.EOF %>
arr_tipo[<%=i_ag%>] = "<%=rsAgencia("BANNUMERO")%>";
arr_valor[<%=i_ag%>] = "<%=rsAgencia("AGEPREFIXO")&" - "&rsAgencia("AGEDESCRICAO")%>";

<% 
  i_ag = i_ag + 1 
  rsAgencia.MoveNext 
  wend  
  end if %>
  //ARRAY DA CONTA BANCÁRIA
  <%
      strConta = "SELECT B.AGEPREFIXO, B.AGEDESCRICAO, A.CONBANCODIGO,A.CONBANNUMERO, A.CONBANDESCRICAO FROM CONTABANCARIA A INNER JOIN AGENCIA B ON A.AGECODIGO = B.AGECODIGO WHERE A.EMPCODIGO = "&Session("Empresa")
    Set rsConta = Server.CreateObject("Adodb.Recordset")
    rsConta.open strConta, conexao, 1
    numArrayConta = rsConta.RecordCount
    if(numArrayConta <> 0)then
    i_ct = 1
  %>
arr1_tipo = new Array(<%=numArrayConta%>)
arr1_valor = new Array(<%=numArrayConta%>)
arr1_id = new Array(<%=numArrayConta%>)
arr1_tipo[0] = "0";
arr1_valor[0] = "Selecione";
arr1_id[0] = "0"
<% while not rsConta.EOF %>
arr1_tipo[<%= i_ct %>] =  "<%=rsConta("AGEPREFIXO")&" - "&rsConta("AGEDESCRICAO")%>";
arr1_valor[<%= i_ct %>] = "<%=rsConta("CONBANNUMERO")&" - "&rsConta("CONBANDESCRICAO")%>";
arr1_id[<%= i_ct %>] = "<%=rsConta("CONBANCODIGO")%>";
<% 
  i_ct = i_ct + 1 
  rsConta.MoveNext 
  wend  
  end if %>
  //funcao que monta a Agencia dinamico
function setAgencia(){
    var listObj = document.form.ddlAgencia;
    var tamanho = document.form.ddlAgencia.length;
    var listObjConta = document.form.inContaBancaria;
    var newOpt;
    var choice = document.form.ddlBanco;
    //remove browsers antigos
    if(listObj.type){    
        //esvazia a opcao da lista
        while(listObj.options.length){
            listObj.options.remove(0)
        }
        //esvazia a conta
        while(listObjConta.options.length){
            listObjConta.options.remove(0)
        }
        //variavel de controle
        var controle = 0

        //cria novo objetode opcao para cada entrada
        for(var i = 0; i < arr_tipo.length; i++){
            //criando o elemento
            newOpt = document.createElement("OPTION")
            //verificacao dos dados de escolha com o array
            if(choice.value == arr_tipo[i]){            
            
                newOpt.text = arr_valor[i]
                newOpt.value = arr_valor[i]
                //criando a variavel option
                listObj.options.add(newOpt)                
                controle = controle + 1
            }
            if (controle < 1){
                newOpt.text = arr_valor[0]
                listObj.options.add(newOpt)
                controle = controle + 1
            }
        }
        listObj.options[0].selected = true;
    }
}
//funcao que monta o combo3 dinamico
function setConta(){
    var listObj = document.form.inContaBancaria
    var tamanho = document.form.inContaBancaria.length    
    var choice = document.form.ddlAgencia;
    var newOpt

    //remove browsers antigos
    if(listObj.type){    
        //esvazia a opcao da lista
        while(listObj.options.length){
            listObj.options.remove(0)
        }
        //variavel de controle
        var controle = 0

        //cria novo objetode opcao para cada entrada
        for(var i = 0; i < arr1_tipo.length; i++){
            //criando o elemento
            newOpt = document.createElement("OPTION")
            //verificacao dos dados de escolha com o array
            if(choice.value == arr1_tipo[i]){            
            
                newOpt.text = arr1_valor[i]
                newOpt.value = arr1_id[i]
                //criando a variavel option
                listObj.options.add(newOpt)                
                controle = controle + 1
            }
            if (controle < 1){
                newOpt.text = arr1_valor[0]
                listObj.options.add(newOpt)
                controle = controle + 1
            }
        }
        listObj.options[0].selected = true;
    }
}
//***********************************************************************
//***********************************************************************
function loadFiltros(){
var banco = "<%=Request.QueryString("inBanco")%>";
var agencia = "<%=Request.QueryString("inAgencia")%>";
var conta = "<%=Request.QueryString("inContaBancaria")%>";

    if(banco != ""){
        if(SelectValue(document.form.ddlBanco, banco) == true){
            setAgencia();
            if(SelectValue(document.form.ddlAgencia, agencia) == true){
                setConta();
                SelectValue(document.form.inContaBancaria, conta);
            }
        }
    }

}

function SelectValue(dropdown, valor)
{
    var retur = false;
    for(i_dropdown = 0; i_dropdown < dropdown.length; i_dropdown++)
    {
        if(dropdown.options[i_dropdown].value == valor)
        {
            dropdown.options[i_dropdown].selected = true;
            retur = true;
        }
    }
    return retur;
}
</script>

</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="java script: loadFiltros();">

<form name="pesquisa" action="LisConciliacao.asp" method="GET" style="margin:0">
    <input type="HIDDEN" name="pagina" value="<%=pagina%>">
    <input type="HIDDEN" name="primpaglistada" value="<%=Request.QueryString ("primpaglistada")%>">
    <input type="HIDDEN" name="inContaBancaria" value="<%=Request.QueryString ("inContaBancaria")%>">
    <input type="Hidden" name="inFiltro" value="<%=Request.QueryString("semfiltro")%>">

    <input type="Hidden" id="inBanco" name="inBanco" value="<%=Request.QueryString("inBanco")%>">
    <input type="Hidden" id="inAgencia" name="inAgencia" value="<%=Request.QueryString("inAgencia")%>">
    <input type="Hidden" name="inConta" value="<%=Request.QueryString("inConta")%>">
</form>
<br>

<!-- TABELA DE RESOLUCAO --> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">

<!-- TAREFAS -->
  <tr valign="top"> 
    <td align="center"> 
            <table class="tabelaprincipal" bgcolor="e7e7e7" width="95%" border="0" cellspacing="0" cellpadding="4">
              <tr align="center">
                <td><a href="java script:Filtrar_Com(<%=TABELA%>)"><img src="../../Imagens/funil00.gif" border=0 alt="" width="16" height="13"></a></td>
                <td><a href="java script:window.location= Get_Lista(<%=TABELA%>)+'?semfiltro=1'+'&inContaBancaria=<%=Request.QueryString("inContaBancaria")%>'"><img src="../../Imagens/Semfiltro00.gif" border=0 alt="" width="16" height="13"></a></td>
                    <td><a href="java script:Excluir(<%=TABELA%>)"><img src="../../Imagens/Excluir_Selecionados.gif" border=0 alt="" width="16" height="16"></a></td>
                <td><a href='java script:Conciliar(<%=TABELA%>)'><img src="../../Imagens/conciliar.gif" border=0></a></td>
                <td><a href="java script:VerConciliado(<%=CodEmpresa%>)"><img src="../../Imagens/ver.gif" border=0 alt=""></a></td>
                    <td align="right"><b>Listagem de &lt;script>document.write (Get_Nome_Tabela(<%=TABELA%>))</script></b></td>
                <td width="10"> </td>
              </tr>
                <tr align="center">
                <td class="legenda_desabilitada"><a href="java script:Filtrar_Com(<%=TABELA%>)">Filtrar</a></td>
                <td class="legenda_desabilitada"><a href="java script:window.location= Get_Lista(<%=TABELA%>)+'?semfiltro=1'+'&inContaBancaria=<%=Request.QueryString("inContaBancaria")%>'">Sem Filtro</a></td>
                    <td class="legenda_desabilitada"><a href="java script:Excluir(<%=TABELA%>)">Excluir<br>Selecionados</a></td>
                <td class="legenda_desabilitada"><a href='java script:Conciliar(<%=TABELA%>)'>Conciliar<br>Selecionadas</a></td>
                <td class="legenda_desabilitada"><a href="java script:VerConciliado(<%=CodEmpresa%>)">Ver<br>Conciliados</a></td>
                <td class="legenda"> </td>
                <td class="legenda" width="10"> </td>
              </tr>
            </table>
        </td>
    </tr>
  <tr><td> </td></tr>

      <form name="form" method="post" action="">
    <tr>
        <td align="center">
            <table class="tabelaprincipal" width="85%" border="0" cellspacing="0" cellpadding="3">
                <tr>
                <td>
[b]                <b>Dt Inicial.: </b>
                        <input type="text" name="inData1" value="" size="10" maxlength="10" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" > (dd/mm/aaaa)<br>
                        <img src="../../imagens/Calendario01.jpg" onClick="java script:getCalendarFor(inData1); document.form.inData1.focus()" style="cursor:hand"><br><br>[/b]
                        
                    <label><b>Banco:</b></label>
                    <%'Seleciona os Bancos no BD
                 strBanco = "SELECT BANNUMERO, BANDESCRICAO FROM BANCO WHERE EMPCODIGO = "&Session("Empresa")&" ORDER BY BANDESCRICAO"
                 Set rsBanco = Server.CreateObject("Adodb.Recordset")
                 rsBanco.open strBanco, conexao, 1, 3
                %>

                 <select name="ddlBanco" style="width:200px;" onChange="java script: setAgencia();" class="entrada">
                     <%'Atribui valores à Caixa de Lista com o nome do Banco%>                
                    <option value="0">Selecione o Banco</option>
                    <% while not rsBanco.EOF %>
                    <option value="<%=rsBanco("BANNUMERO")%>"><%=rsBanco("BANDESCRICAO")%></option>
                    <% rsBanco.MoveNext
                       wend %>
                </select>

                </td>
                <td style="padding:5px;" align="left">
[b]                <b>Dt Final.: </b>
                        <input type="text" name="inData2" value="" size="10" maxlength="10" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" onKeyUp="java script: MascaraData('form',this.name,this.value)"> (dd/mm/aaaa)<br>
                        <img src="../../imagens/Calendario01.jpg" onClick="java script:getCalendarFor(inData2); document.form.inData.focus()" style="cursor:hand"><br><br>[/b]
                
                    <label><b>Ag.:</b></label>
                     <%'Atribui valores à Caixa de Lista com o nome da Agência%> 
                    <select name="ddlAgencia" style="width:200px;" onChange="java script: setConta();" class="entrada">
                    <option value=""></option>
                </select>
                </td>
                    <td  style="padding:5px;" align="left">
                    <br><br><br><label><b>Conta:</b></label>
                         <%'Atribui valores à Caixa de Lista com o nome do Banco%>                     
                        <select name="inContaBancaria" class="entrada" style="width:200px;" onChange="java script: Filtrar_Com(<%=TABELA%>)">
                            <option value=""> </option>
                            <%
                            if Request.QueryString("inContaBancaria")<>"" then
                            %>
                            &lt;script>Seleciona_Option(<%=Request.QueryString("inContaBancaria")%>, document.form.inContaBancaria)</script>
                            <%end if%>
                        </select>
                    </td>
                    <%    if Request.QueryString("inContaBancaria")<>"" then %>
                    <td  style="padding:5px;"><b>Dt Inicial.: </b>
                        <input type="text" name="inData" value="<%if Request.QueryString("inData")<>"" then response.write Request.QueryString("inData") else response.write ""%>" size="10" maxlength="10" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" onKeyUp="java script: MascaraData('form',this.name,this.value)">
                        <img src="../../imagens/Calendario01.jpg" onClick="java script:getCalendarFor(inData); document.form.inData.focus()" style="cursor:hand">
                    </td>
                    <td width="122"> </td>
                    <%    end if %>
                </tr>
                    </td>
                </tr>
      </table>
        </td>
    </tr>
  <tr><td> </td></tr>


<%    if Request.QueryString("inContaBancaria")<>"" then%>
<tr>
    <td align="center">

    <!-- TABELA DE FILTRO -->

<!-- TABELA DE FILTROS -->
<table class="tabelaprincipal" width="85%" border="0" cellspacing="0" cellpadding="2">
     <tr>
           <td width="20"> </td>
        <td align="right"><b>Campos: </b></td>
        <td>
            <select onChange="Mudar_Criterio(<%=TABELA%>,this.value,<%=FORMULARIO%>inCriterio)" name="inCampos"  style="font-size: 9; background-color:'ffffff'; color:'000000';"></select>
                &lt;script> Carrega_Select(<%=TABELA%>,<%=FORMULARIO%>inCampos,"<%=Request.QueryString("inCampos")%>");
</script>
        </td>
        <td>
              <b>Critérios: </b>
           <select name="inCriterio" style="font-size: 9; background-color:'ffffff'; color:'000000';"></select>
                &lt;script>Mudar_Criterio(<%=TABELA%>,<%=FORMULARIO%>inCampos.value,<%=FORMULARIO%>inCriterio)</script>
                <% if Request.QueryString("inCriterio")<>"" then %>
                    &lt;script>Seleciona_Option(<%=Request.QueryString("inCriterio")%>,<%=FORMULARIO%>inCriterio)</script>
                <% end if %>
        </td>
         <td>
              <b>Ordenação: </b> 
            <select name="inOrdem"  style="font-size: 9; background-color:'ffffff'; color:'000000';"></select>
                &lt;script>Carrega_Select(<%=TABELA%>,<%=FORMULARIO%>inOrdem,"<%=Request.QueryString("inOrdem")%>")</script>
        </td>
         <td width="20"> </td>
    </tr>
    <tr>
         <td width="20"> </td>
         <td align="right"><b>Valor: </b></td>
         <td colspan="3"><input name="inValor" type="Text" size="50" value="<%=Request.QueryString("inValor")%>"></td>
           <td width="20"> </td>
    </tr>
    <tr>
           <td width="20"> </td>
        <td colspan="4">
            <!-- TABELA DE FILTROS -->
            <table  width="85%" border="0" cellspacing="0" cellpadding="2">
              <tr>
            <%  cont=65
                    while (cont < 91) %>
                    <td align='center'>
                        <a href="java script:window.location= Get_Lista(<%=TABELA%>) + '?Inicial=<%=Chr(cont)%>'+'&inContaBancaria=<%=Request.QueryString("inContaBancaria")%>'"
            <%        if (Request.QueryString("Inicial")=Chr(cont)) then response.write " class='destaque'"
                            response.write ">" &Chr(cont)& "</a></td>"
                        cont=cont+1 
                    wend %>
                <td align='center'>
                    <a href="java script:window.location= Get_Lista(<%=TABELA%>) + '?Inicial=Num'+'&inContaBancaria=<%=Request.QueryString("inContaBancaria")%>'"
            <%    if (Request.QueryString("Inicial")="Num") then response.write " class='destaque'"
                        response.write ">Num</a></td>"%>
                </tr>
            </table>        
        
        </td>
           <td width="20"> </td>
        
    </tr>    
    
</table>

    </td>
</tr>
<%    end if%>
  <tr><td> </td></tr>

<!--     TABELA DEBITO/CREDITO/SALDO --> 
<%    if Request.QueryString("inContaBancaria")<>"" then%>
  <tr><td> </td></tr>

<!-- TABELA DE CAMPOS --> 
    <tr>
        <td>
            <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
                <tr>
                    <td colspan="3" align="left"><b>Nº total de registros: <%=rsLista.recordcount%></b></td>
                    <td colspan="2" align="right"><b>Página <%=pagina%> de <%=ultpagina%></b>
</td>
                </tr>
                <tr bgcolor="#0672a7"> 
                  <td width="5"> </td>
                  <td class="barra" >Cheque</td>
                  <td class="barra" >Destinatário</td>
                  <td class="barra">Data Emissão </td>
                  <td class="barra" align="right" >Valor (R$)</td>
                </tr>
<% 
        cont=0
        do while not (rsLista.EOF) 
            if (cont mod 2)=0 then 
                cor="linha01" 
            else 
                cor="linha02" 
            end if
            if rsLista("CheTipo")="Cheque" then
                cor_texto="#FF0000"
            else
                cor_texto="#0000FF"
            end if
%>
                <tr class=<%=cor%>>
                 <td align="center"><input type="Checkbox" name="Check" class="lista" value="<%=rsLista("CheCodigo")%>"></td>
                  <td><font color=<%=cor_texto%>><%=rsLista("CheNumero")%></td>
                  <td><font color=<%=cor_texto%>><%=rsLista("CheDestinatario")%></td>
                    <td><font color=<%=cor_texto%>><%=Ajusta_Data(rsLista("CheData"),1)%></td>
                    <td align="right"><font color=<%=cor_texto%>><%=FormatNumber(rsLista("CheValor"),2)%></td>
                </tr>
<% 
            rsLista.MoveNext
            cont=cont+1
        Loop
%>
      </table>
    </td>
  </tr>
  <tr><td> </td></tr>
<!-- PÁGINA -->
<!-- #include file = "../../Include/Include_Pagina_Num.inc" -->
<%    end if%>  
  <tr><td> </td></tr>
        </td>
    </tr>
</form>
</table>

</body>
</html>

<%
'LIBERA AS CONSULTAS
    if Request.QueryString("inContaBancaria")<>"" then
        rsLista.Close
        Set rsLista=nothing
    end if
    
    rsBanco.close
    set rsBanco = nothing
    
    rsConta.close
    set rsConta = nothing
    
    rsAgencia.close
    set rsAgencia = nothing
    
    conexao.close
    Set conexao=nothing
%>

No trecho que destaquei em vermelho, ele analisa se o campo inData1 está vazio.

Se estiver executa uma query, senão estiver, executa a outra query.

O problema é que mesmo que eu escolha a data no calendáriozinho abaixo do campo, somente a primeira query é executada, pois inData1 sempre está vazio.

O que pode estar acontecendo aí? inData1 está sempre chegando sem valor.

Por favor, me ajudem.

[Rafael Spilki]

Olá, incialmente peço para que você poste sempre seus códigos dentro das tags code, veja:

• Quando precisar postar algum código, utilize as tags específicas, como [html] [/html] para códigos em HTML ou [code] [/code] para outros códigos.

  Existe também o [codebox] [/codebox] para códigos muito extensos, mas muitas vezes ele acaba atrapalhando a interpretação do mesmo em vez de ajudar.

  Se precisar postar o código de mais de um arquivo, escreva o nome do mesmo em negrito, logo antes da caixa de código, assim eles poderão ser identificados pelos outros usuários.

  Este simples recurso facilita incrivelmente na hora de ler ou analisar um código.

Leia mais em: http://scriptbrasil.com.br/forum/index.php?showtopic=131728

Quanto a sua dúvida... ela tem alguma coisa a ver com esse outro tópico aqui:

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

[]'s rafael Spilki

[bareta]

tenho certeza que já vi e respondi num tópico com esse codigo e essa duvida

[nosliwde]

Bom gente, contrariando algumas vontades, afirmo que resolvi o problema.

Eu não estav enviando os dados do FORM de forma adequada, portanto foi só mudar o modo de envio dos dados do formulário para GET e tudo ficou show de bola.

Obrigado pela ajuda. Té mais.