<%
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)
If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If
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
'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