<% '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 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) call db_open() ID_COD_PAGTO = Request.QueryString("ID_COD_PAGTO") sqlPGTO = "update CF_PAGAMENTO set status='PROGRAMADO' where ID_COD_PAGTO="&ID_COD_PAGTO&"" 'response.write sqlPGTO 'response.End con.execute(sqlPGTO) 'set rs = con.execute(sql) response.write "ok;" %>