<% if (Request.Form() <> "") then end if ' Lê as pesquisas do banco call db_open() sql_lista = "select * from cf_pesquisa where id_cf_pesquisa = "&Request("id_pesquisa")&"" set rs = con.execute(sql_lista) %> IPESO <% while not rs.eof %> <% rs.moveNext : wend %>
Título da pesquisa <% db_write(rs("titulo")) %>
Cidade <% db_write rs("cidade") %>
Estado <% db_write rs("estado") %>
Início <% db_write rs("data_inicio") %>
Término <% db_write rs("data_encerramento") %>
Entrevistadores cadastrados nesta pesquisa
<% set rs_ent = con.execute("select cf_entrevistador.id_cf_entrevistador, id_CF_PESQUISA_ENTREVISTADOR, cf_entrevistador.nome from CF_PESQUISA_ENTREVISTADOR, cf_entrevistador where CF_PESQUISA_ENTREVISTADOR.id_cf_entrevistador = cf_entrevistador.id_cf_entrevistador and ID_CF_PESQUISA = "&request("id_pesquisa")&" and (inativo = 0 or inativo is null) order by nome") %> <% while not rs_ent.eof %> <% rs_ent.movenext : wend %>
<% = rs_ent("nome") %> &id_pesquisa=<% = request("id_pesquisa") %>&nome=<% = rs_ent("nome")%>">Quantificar Cota " title="clique para excluir" onClick="return confirm('Deseja realmente excluir o entrevistador da pesquisa?')">

'">
Cotas cadastradas nesta pesquisa
<% set rs_ent = con.execute("select * from vw_cf_pesquisa_cota where id_cf_PESQUISA = "&request("id_pesquisa")&" and inativo <> 1 order by estrato") %> <% while not rs_ent.eof %> <% rs_ent.movenext : wend %>
Região Estado Cidade Estrato Quantidade Preço quest. Preço dig.  
<% = rs_ent("regiao") %> <% = rs_ent("estado") %> <% = rs_ent("cidade") %> <% = rs_ent("estrato") %> <% = rs_ent("quantidade") %> R$ <% = rs_ent("preco_questionario") %> R$ <% = rs_ent("preco_digitacao") %> &tipo=pesquisa" title="clique para excluir" onClick="return confirm('Deseja realmente excluir essa cota do entrevistador?')">

'" value="Cadastrar mais cotas">