<% 'if (request.form("nome") <> "") then filtro = " and cf_entrevistador.nome like '%"&request.form("nome")&"%' " 'sql_lista = "select id_cf_entrevistador, cf_entrevistador.nome as nome, cf_status.nome as status, cidade, estado, email from cf_entrevistador, cf_status where cf_entrevistador.id_cf_status = cf_status.id_cf_status and cf_entrevistador.id_cf_status <> 3 and id_cf_tipo_usuario = 1 "&filtro&" and id_cf_entrevistador in (select id_cf_entrevistador from CF_PESQUISA_ENTREVISTADOR where CF_PESQUISA_ENTREVISTADOR.inativo <> 1 and CF_PESQUISA_ENTREVISTADOR.id_cf_entrevistador = cf_entrevistador.id_cf_entrevistador) order by nome asc" 'set rs = con.execute(sql_lista) sql_lista = "Select cf_entrevistador.nome as nome, cf_entrevistador.nome as nome, cf_entrevistador.id_cf_entrevistador as id_cf_entrevistador, CF_PAGAMENTO.VALOR, cf_bancos.NOME_BANCO, CF_DADOS_BANCARIOS.BANCO_AGENCIA, CF_DADOS_BANCARIOS.BANCO_AGENCIA_DIG, CF_DADOS_BANCARIOS.BANCO_NUM_CONTA, CF_DADOS_BANCARIOS.TIPO_CONTA, CF_DADOS_BANCARIOS.NOME_TITULAR_CONTA, CF_DADOS_BANCARIOS.NOME_TITULAR_CONTA, CPF_TITULAR_CONTA from CF_DADOS_BANCARIOS, cf_entrevistador, cf_pesquisa, CF_PAGAMENTO, cf_bancos where cf_entrevistador.id_cf_entrevistador=CF_PAGAMENTO.id_cf_entrevistador and CF_PAGAMENTO.ID_COD_BANCO=cf_bancos.ID_COD_BANCO and CF_PAGAMENTO.ID_CF_PESQUISA=cf_pesquisa.ID_CF_PESQUISA and CF_DADOS_BANCARIOS.ID_COD_CONTA=CF_PAGAMENTO.ID_COD_CONTA and CF_PAGAMENTO.status='PROGRAMADO' order by CF_PAGAMENTO.PGTO_AGENDADO_PARA, cf_bancos.NOME_BANCO, CF_PAGAMENTO.VALOR ASC " 'sql_lista = "select id_cf_entrevistador, cf_entrevistador.nome as nome, cf_status.nome as status, cidade, estado from cf_entrevistador, cf_status where cf_entrevistador.id_cf_status = cf_status.id_cf_status and cf_entrevistador.id_cf_status <> 3 and id_cf_tipo_usuario = 1" _ ' & " "&filtro&" and id_cf_entrevistador in (select id_cf_entrevistador from CF_PESQUISA_ENTREVISTADOR where CF_PESQUISA_ENTREVISTADOR.inativo <> 1 and CF_PESQUISA_ENTREVISTADOR.id_cf_entrevistador = cf_entrevistador.id_cf_entrevistador) order by nome asc" 'set rs = con.execute(sql_lista) 'response.write sql_lista 'response.end Const adCmdText = &H0001 : Const adOpenStatic = 3 Set Command = Server.CreateObject("ADODB.Command") Set RS =Server.CreateObject("ADODB.RecordSet") call db_open() RS.Open sql_lista,Con,adopenstatic,adcmdtext if not (rs.eof) then 'resultados por pagina a escolher arbitrariamente 'Dimensionamos as paginas e determinamos a pagina atual num_registros = 15 : RS.PageSize=num_registros : RS.AbsolutePage=Session("pagina") end If 'opcao="lista" 'End if If Request.QueryString("pag")<>"" Then Session("pagina")=Request.QueryString("pag") Else Session("pagina")=1 End If 'response.write "listacidade " & listacidade & "
" 'if (Request.Form() <> "") then ' for each item in request.Form() ' if (left(item,3) = "cmb") and (request.Form(item) <> "") then ' id = split(item,"-") ' if (id(1) <> "") then ' str_sql = "update cf_entrevistador set id_cf_status = " & request.Form(item) & " where id_cf_entrevistador = " & id(1) ' con.execute(str_sql) ' end if ' end if ' next 'end if ' response.Write(str_sql) ' Lê as pesquisas do banco %> IPESO
Listagem de entrevistadores
<% cont =0 While (Not RS.eof And registros_mostrados < num_registros) registros_mostrados = registros_mostrados +1 cont = cont+1%> <%rs.moveNext wend %>
Cod. Nome Valor Banco Agência Dig Conta Tipo Conta Titular CPF
<% db_write(rs("id_cf_entrevistador")) %> <% db_write rs("nome") %> <% db_write(FormatNumber(rs("VALOR"),2)) %> <% db_write rs("NOME_BANCO") %> <% db_write rs("BANCO_AGENCIA") %> <% db_write rs("BANCO_AGENCIA_DIG") %> <% db_write rs("BANCO_NUM_CONTA") %> <% If rs("TIPO_CONTA")="C" Then response.write "Corrente" Else response.write "Poupança"%> <% db_write rs("NOME_TITULAR_CONTA") %> <% db_write rs("CPF_TITULAR_CONTA") %>
<% i=0 While ( i < RS.PageCount ) i=i+1 %> <%=i%> <% Wend %>
Página atual: <%=Session("pagina")%>
Total de páginas: <%=RS.PageCount%>
Registros por página: <%=RS.PageSize%>
Total de registros: <%=RS.RecordCount%>