<% busca = Request("busca") ' Define o evento como id_evento = 2 - Meeting 2002 str_evento = " id_evento = 2" If Len(Request("pais_id")) = 0 Then sql_projeto = "SELECT tbl_projeto.*, tbl_pais.pais AS pais2, tbl_evento_projeto.id_evento "&_ " FROM tbl_evento_projeto INNER JOIN (tbl_projeto INNER JOIN tbl_pais ON tbl_projeto.id_pais = tbl_pais.id) "&_ " ON tbl_evento_projeto.cod_projeto = tbl_projeto.cod_projeto "&_ " WHERE " & str_evento &" AND status = 'member' "&_ " ORDER BY ordem,projeto" Else sql_projeto = "SELECT tbl_projeto.*, tbl_pais.pais AS pais2, tbl_evento_projeto.id_evento "&_ " FROM tbl_evento_projeto INNER JOIN (tbl_projeto INNER JOIN tbl_pais ON tbl_projeto.id_pais = tbl_pais.id) "&_ " ON tbl_evento_projeto.cod_projeto = tbl_projeto.cod_projeto "&_ " WHERE ("& str_evento &" AND status = 'member' " If Request("pais_id") <> "-1" Then sql_projeto = sql_projeto & " AND id_pais = " & Request("pais_id") Else End if sql_projeto = sql_projeto & ")" sql_projeto = sql_projeto & " AND (projeto LIKE '%" & busca & "%' "&_ " OR email LIKE '%" & busca & "%' "&_ " OR resenha LIKE '%" & busca & "%' "&_ " OR diretor LIKE '%" & busca & "%' "&_ " OR apresentador LIKE '%" & busca & "%') "&_ " ORDER BY ordem,projeto" End if AbreRS "RS_projeto", sql_projeto If Not RS_projeto.EOF Then %>

Redepaz » <%=RS_projeto.Recordcount%>

Search "> <% sql_pais = "SELECT * FROM tbl_pais ORDER BY pais" AbreRS "RS_pais", sql_pais %> All contries <% While Not RS_pais.EOF id = RS_pais("id") titulo = RS_pais("pais") %> <% if RS_pais("id") = Int(Request("pais_id")) then %> <%=titulo%> <% else %> <%=titulo%> <% end if%> <% RS_pais.movenext Wend RS_pais.close Set RS_pais= nothing %>

<% While Not RS_projeto.EOF cod_projeto = RS_projeto("cod_projeto") razao_social = RS_projeto("razao_social") projeto = RS_projeto("projeto") missao = RS_projeto("missao") diretor = RS_projeto("diretor") fundacao = RS_projeto("fundacao") endereco = RS_projeto("endereco") bairro = RS_projeto("bairro") cidade = RS_projeto("cidade") estado = RS_projeto("estado") pais = RS_projeto("pais") If TestaNulo(RS_projeto("pais2")) Then Else pais2 = RS_projeto("pais2") End if cep = RS_projeto("cep") telefone = RS_projeto("telefone") email = RS_projeto("email") website = RS_projeto("website") ordem = RS_projeto("ordem") %> <% RS_projeto.movenext Wend %>

Project	Institutions
<%=projeto%> <%=diretor%>	<%=pais2%> <%=email%>

<% Else %>

No itens found

Search "> <% sql_pais = "SELECT * FROM tbl_pais ORDER BY pais" AbreRS "RS_pais", sql_pais %> All contries <% While Not RS_pais.EOF id = RS_pais("id") titulo = RS_pais("pais") %> <% if RS_pais("id") = Int(Request("pais_id")) then %> <%=titulo%> <% else %> <%=titulo%> <% end if%> <% RS_pais.movenext Wend RS_pais.close Set RS_pais= nothing %>

<% End If RS_projeto.close Set RS_projeto = nothing %>