<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Rs_action__var_action_id Rs_action__var_action_id = "555" If (Request("action_id") <> "") Then Rs_action__var_action_id = Request("action_id") End If %> <% Dim Rs_action Dim Rs_action_numRows Set Rs_action = Server.CreateObject("ADODB.Recordset") Rs_action.ActiveConnection = MM_pseau_STRING Rs_action.Source = "SELECT T_actions.*, T_pays.pay_pays, T_organismes.org_sigle, T_organismes.org_ville, T_organismes.org_organisme, T_types_organisme.type_organisme, IIf(IsNull([org_sigle]),[org_organisme],[org_sigle]) AS organisme_sigle FROM T_types_organisme RIGHT JOIN ((T_pays RIGHT JOIN T_actions ON T_pays.pays_code = T_actions.act_pays_code) LEFT JOIN T_organismes ON T_actions.act_gestionnaire = T_organismes.organisme_id) ON T_types_organisme.type_organisme_id = T_organismes.org_type_id WHERE action_id = " + Replace(Rs_action__var_action_id, "'", "''") + "" Rs_action.CursorType = 0 Rs_action.CursorLocation = 2 Rs_action.LockType = 1 Rs_action.Open() Rs_action_numRows = 0 %> <% Dim Rs_contact_france__var_action_id Rs_contact_france__var_action_id = "413" If (request("action_id") <> "") Then Rs_contact_france__var_action_id = request("action_id") End If %> <% Dim Rs_contact_france Dim Rs_contact_france_numRows Set Rs_contact_france = Server.CreateObject("ADODB.Recordset") Rs_contact_france.ActiveConnection = MM_pseau_STRING Rs_contact_france.Source = "SELECT T_actions.action_id, IIf(IsNull([org_sigle]) or ''=([org_sigle]),[org_organisme],[org_sigle]) AS organisme_sigle, T_contacts.cont_nom, T_contacts.cont_prenom, T_contacts.cont_civilite_code, T_contacts.cont_fonction, T_contacts.cont_tel_direct, T_contacts.cont_tel_direct_en_ligne, T_contacts.cont_email_direct_1, T_contacts.cont_email_direct_1_en_ligne, T_organismes.org_sigle, T_organismes.org_organisme, T_organismes.org_adresse_postale, T_organismes.org_adresse_postale2, T_organismes.org_code_postal, T_organismes.org_ville, T_organismes.org_ville_code, T_pays.pay_pays, T_organismes.org_tel_std, T_organismes.org_fax_std, T_organismes.org_email_std_1, T_organismes.org_web, T_organismes.org_logo_site FROM T_actions LEFT JOIN (T_pays RIGHT JOIN (T_organismes RIGHT JOIN T_contacts ON T_organismes.organisme_id = T_contacts.cont_organisme_id) ON T_pays.pays_code = T_organismes.org_pays_code) ON T_actions.act_responsable_europe = T_contacts.contact_id WHERE T_actions.action_id=" + Replace(Rs_contact_france__var_action_id, "'", "''") + ";" Rs_contact_france.CursorType = 0 Rs_contact_france.CursorLocation = 2 Rs_contact_france.LockType = 1 Rs_contact_france.Open() Rs_contact_france_numRows = 0 %> <% Dim Rs_contact_ds_le_pays__var_action_id Rs_contact_ds_le_pays__var_action_id = "318" If (request("action_id") <> "") Then Rs_contact_ds_le_pays__var_action_id = request("action_id") End If %> <% Dim Rs_contact_ds_le_pays Dim Rs_contact_ds_le_pays_numRows Set Rs_contact_ds_le_pays = Server.CreateObject("ADODB.Recordset") Rs_contact_ds_le_pays.ActiveConnection = MM_pseau_STRING Rs_contact_ds_le_pays.Source = "SELECT T_actions.action_id, IIf(IsNull([org_sigle]) or ''=[org_sigle],[org_organisme],[org_sigle]) AS organisme_sigle, T_contacts.cont_nom, T_contacts.cont_prenom, T_contacts.cont_civilite_code, T_contacts.cont_fonction, T_contacts.cont_tel_direct, T_contacts.cont_tel_direct_en_ligne, T_contacts.cont_email_direct_1, T_contacts.cont_email_direct_1_en_ligne, T_organismes.org_sigle, T_organismes.org_organisme, T_organismes.org_adresse_postale, T_organismes.org_adresse_postale2, T_organismes.org_code_postal, T_organismes.org_ville, T_organismes.org_ville_code, T_pays.pay_pays, T_organismes.org_tel_std, T_organismes.org_fax_std, T_organismes.org_email_std_1, T_organismes.org_web, T_organismes.org_logo_site FROM T_actions LEFT JOIN (T_pays RIGHT JOIN (T_organismes RIGHT JOIN T_contacts ON T_organismes.organisme_id = T_contacts.cont_organisme_id) ON T_pays.pays_code = T_organismes.org_pays_code) ON T_actions.act_responsable_afrique = T_contacts.contact_id WHERE T_actions.action_id=" + Replace(Rs_contact_ds_le_pays__var_action_id, "'", "''") + ";" Rs_contact_ds_le_pays.CursorType = 0 Rs_contact_ds_le_pays.CursorLocation = 2 Rs_contact_ds_le_pays.LockType = 1 Rs_contact_ds_le_pays.Open() Rs_contact_ds_le_pays_numRows = 0 %> <% Dim Rs_partenaires__var_action_id Rs_partenaires__var_action_id = "555" If (request("action_id") <> "") Then Rs_partenaires__var_action_id = request("action_id") End If %> <% Dim Rs_partenaires Dim Rs_partenaires_numRows Set Rs_partenaires = Server.CreateObject("ADODB.Recordset") Rs_partenaires.ActiveConnection = MM_pseau_STRING Rs_partenaires.Source = "SELECT IIf(IsNull([org_sigle]),[org_organisme],[org_sigle]) AS organisme_sigle, T_lien_action_organisme.lie_actorg_action_id, T_lien_action_organisme.lie_actorg_partenaire, T_organismes.org_sigle, T_organismes.org_organisme, T_organismes.org_adresse_postale, T_organismes.org_adresse_postale2, T_organismes.org_code_postal, T_organismes.org_ville, T_organismes.org_ville_code, T_pays.pay_pays, T_organismes.org_tel_std, T_organismes.org_fax_std, T_organismes.org_email_std_1, T_organismes.org_web, T_organismes.org_logo_site FROM T_lien_action_organisme LEFT JOIN (T_pays RIGHT JOIN T_organismes ON T_pays.pays_code = T_organismes.org_pays_code) ON T_lien_action_organisme.lie_actorg_organisme_id = T_organismes.organisme_id WHERE (((T_lien_action_organisme.lie_actorg_partenaire)=True)) AND T_lien_action_organisme.lie_actorg_action_id=" + Replace(Rs_partenaires__var_action_id, "'", "''") + "" Rs_partenaires.CursorType = 0 Rs_partenaires.CursorLocation = 2 Rs_partenaires.LockType = 1 Rs_partenaires.Open() Rs_partenaires_numRows = 0 %> <% Dim Rs_bailleurs__var_action_id Rs_bailleurs__var_action_id = "555" If (request("action_id") <> "") Then Rs_bailleurs__var_action_id = request("action_id") End If %> <% Dim Rs_bailleurs Dim Rs_bailleurs_numRows Set Rs_bailleurs = Server.CreateObject("ADODB.Recordset") Rs_bailleurs.ActiveConnection = MM_pseau_STRING Rs_bailleurs.Source = "SELECT IIf(IsNull([org_sigle]),[org_organisme],[org_sigle]) AS organisme_sigle, T_lien_action_organisme.lie_actorg_action_id, T_lien_action_organisme.lie_actorg_bailleur, T_organismes.org_sigle, T_organismes.org_organisme, T_organismes.org_adresse_postale, T_organismes.org_adresse_postale2, T_organismes.org_code_postal, T_organismes.org_ville, T_organismes.org_ville_code, T_pays.pay_pays, T_organismes.org_tel_std, T_organismes.org_fax_std, T_organismes.org_email_std_1, T_organismes.org_web, T_organismes.org_logo_site FROM T_pays RIGHT JOIN (T_lien_action_organisme LEFT JOIN T_organismes ON T_lien_action_organisme.lie_actorg_organisme_id = T_organismes.organisme_id) ON T_pays.pays_code = T_organismes.org_pays_code WHERE (((T_lien_action_organisme.lie_actorg_bailleur)=True)) AND T_lien_action_organisme.lie_actorg_action_id=" + Replace(Rs_bailleurs__var_action_id, "'", "''") + ";" Rs_bailleurs.CursorType = 0 Rs_bailleurs.CursorLocation = 2 Rs_bailleurs.LockType = 1 Rs_bailleurs.Open() Rs_bailleurs_numRows = 0 %> <% Dim RsNature_des_Interventions__var_action_id RsNature_des_Interventions__var_action_id = "285" If (request("action_id") <> "") Then RsNature_des_Interventions__var_action_id = request("action_id") End If %> <% set RsNature_des_Interventions = Server.CreateObject("ADODB.Recordset") RsNature_des_Interventions.ActiveConnection = MM_pseau_STRING RsNature_des_Interventions.Source = "SELECT * FROM r_nature_des_interventions WHERE action_id = " + Replace(RsNature_des_Interventions__var_action_id, "'", "''") + "" RsNature_des_Interventions.CursorType = 0 RsNature_des_Interventions.CursorLocation = 2 RsNature_des_Interventions.LockType = 3 RsNature_des_Interventions.Open() RsNature_des_Interventions_numRows = 0 %> <% Dim RsSecteur_intervention1__var_action_id RsSecteur_intervention1__var_action_id = "285" If (Request("action_id") <> "") Then RsSecteur_intervention1__var_action_id = Request("action_id") End If %> <% set RsSecteur_intervention1 = Server.CreateObject("ADODB.Recordset") RsSecteur_intervention1.ActiveConnection = MM_pseau_STRING RsSecteur_intervention1.Source = "SELECT * FROM r_asp_actionsen_secteur_intervention1 WHERE action_id = " + Replace(RsSecteur_intervention1__var_action_id, "'", "''") + "" RsSecteur_intervention1.CursorType = 0 RsSecteur_intervention1.CursorLocation = 2 RsSecteur_intervention1.LockType = 3 RsSecteur_intervention1.Open() RsSecteur_intervention1_numRows = 0 %> <% Dim Rs_action_secteur_inter_eau_assainissement__var_action_id Rs_action_secteur_inter_eau_assainissement__var_action_id = "285" If (Request("action_id") <> "") Then Rs_action_secteur_inter_eau_assainissement__var_action_id = Request("action_id") End If %> <% set Rs_action_secteur_inter_eau_assainissement = Server.CreateObject("ADODB.Recordset") Rs_action_secteur_inter_eau_assainissement.ActiveConnection = MM_pseau_STRING Rs_action_secteur_inter_eau_assainissement.Source = "SELECT * FROM r_cumul_secteurs_d_intervention_2 WHERE action_id = " + Replace(Rs_action_secteur_inter_eau_assainissement__var_action_id, "'", "''") + "" Rs_action_secteur_inter_eau_assainissement.CursorType = 0 Rs_action_secteur_inter_eau_assainissement.CursorLocation = 2 Rs_action_secteur_inter_eau_assainissement.LockType = 3 Rs_action_secteur_inter_eau_assainissement.Open() Rs_action_secteur_inter_eau_assainissement_numRows = 0 %> <% Dim Rs_action_secteur_inter_irrigation__var_action_id Rs_action_secteur_inter_irrigation__var_action_id = "285" If (Request("action_id") <> "") Then Rs_action_secteur_inter_irrigation__var_action_id = Request("action_id") End If %> <% set Rs_action_secteur_inter_irrigation = Server.CreateObject("ADODB.Recordset") Rs_action_secteur_inter_irrigation.ActiveConnection = MM_pseau_STRING Rs_action_secteur_inter_irrigation.Source = "SELECT * FROM r_cumul_secteurs_d_intervention_2_irri WHERE action_id = " + Replace(Rs_action_secteur_inter_irrigation__var_action_id, "'", "''") + "" Rs_action_secteur_inter_irrigation.CursorType = 0 Rs_action_secteur_inter_irrigation.CursorLocation = 2 Rs_action_secteur_inter_irrigation.LockType = 3 Rs_action_secteur_inter_irrigation.Open() Rs_action_secteur_inter_irrigation_numRows = 0 %> <% Dim RsChampsNonVides__MMColParam RsChampsNonVides__MMColParam = "285" If (Request("action_id") <> "") Then RsChampsNonVides__MMColParam = Request("action_id") End If %> <% set RsChampsNonVides = Server.CreateObject("ADODB.Recordset") RsChampsNonVides.ActiveConnection = MM_pseau_STRING RsChampsNonVides.Source = "SELECT t_actions.* FROM t_actions WHERE action_id = " + Replace(RsChampsNonVides__MMColParam, "'", "''") + "" RsChampsNonVides.CursorType = 0 RsChampsNonVides.CursorLocation = 2 RsChampsNonVides.LockType = 3 RsChampsNonVides.Open() RsChampsNonVides_numRows = 0 %> <% Dim Rs_action_etat_d_avancement__var_action_id Rs_action_etat_d_avancement__var_action_id = "285" If (Request("action_id") <> "") Then Rs_action_etat_d_avancement__var_action_id = Request("action_id") End If %> <% set Rs_action_etat_d_avancement = Server.CreateObject("ADODB.Recordset") Rs_action_etat_d_avancement.ActiveConnection = MM_pseau_STRING Rs_action_etat_d_avancement.Source = "SELECT * FROM r_asp_actionSen_etat_d_avancement WHERE action_id = " + Replace(Rs_action_etat_d_avancement__var_action_id, "'", "''") + "" Rs_action_etat_d_avancement.CursorType = 0 Rs_action_etat_d_avancement.CursorLocation = 2 Rs_action_etat_d_avancement.LockType = 3 Rs_action_etat_d_avancement.Open() Rs_action_etat_d_avancement_numRows = 0 %> <% Dim Rs_action_null__var_action_id Rs_action_null__var_action_id = "555" If (Request("action_id") <> "") Then Rs_action_null__var_action_id = Request("action_id") End If %> <% Dim Rs_action_null Dim Rs_action_null_numRows Set Rs_action_null = Server.CreateObject("ADODB.Recordset") Rs_action_null.ActiveConnection = MM_pseau_STRING Rs_action_null.Source = "SELECT T_actions.*, T_pays.pay_pays, T_organismes.org_sigle, T_organismes.org_ville, T_organismes.org_organisme, T_types_organisme.type_organisme, IIf(IsNull([org_sigle]),[org_organisme],[org_sigle]) AS organisme_sigle FROM T_types_organisme RIGHT JOIN ((T_pays RIGHT JOIN T_actions ON T_pays.pays_code = T_actions.act_pays_code) LEFT JOIN T_organismes ON T_actions.act_gestionnaire = T_organismes.organisme_id) ON T_types_organisme.type_organisme_id = T_organismes.org_type_id WHERE action_id = " + Replace(Rs_action_null__var_action_id, "'", "''") + "" Rs_action_null.CursorType = 0 Rs_action_null.CursorLocation = 2 Rs_action_null.LockType = 1 Rs_action_null.Open() Rs_action_null_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Rs_partenaires_numRows = Rs_partenaires_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Rs_bailleurs_numRows = Rs_bailleurs_numRows + Repeat2__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim RsNature_des_Interventions_total Dim RsNature_des_Interventions_first Dim RsNature_des_Interventions_last ' set the record count RsNature_des_Interventions_total = RsNature_des_Interventions.RecordCount ' set the number of rows displayed on this page If (RsNature_des_Interventions_numRows < 0) Then RsNature_des_Interventions_numRows = RsNature_des_Interventions_total Elseif (RsNature_des_Interventions_numRows = 0) Then RsNature_des_Interventions_numRows = 1 End If ' set the first and last displayed record RsNature_des_Interventions_first = 1 RsNature_des_Interventions_last = RsNature_des_Interventions_first + RsNature_des_Interventions_numRows - 1 ' if we have the correct record count, check the other stats If (RsNature_des_Interventions_total <> -1) Then If (RsNature_des_Interventions_first > RsNature_des_Interventions_total) Then RsNature_des_Interventions_first = RsNature_des_Interventions_total End If If (RsNature_des_Interventions_last > RsNature_des_Interventions_total) Then RsNature_des_Interventions_last = RsNature_des_Interventions_total End If If (RsNature_des_Interventions_numRows > RsNature_des_Interventions_total) Then RsNature_des_Interventions_numRows = RsNature_des_Interventions_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (RsNature_des_Interventions_total = -1) Then ' count the total records by iterating through the recordset RsNature_des_Interventions_total=0 While (Not RsNature_des_Interventions.EOF) RsNature_des_Interventions_total = RsNature_des_Interventions_total + 1 RsNature_des_Interventions.MoveNext Wend ' reset the cursor to the beginning If (RsNature_des_Interventions.CursorType > 0) Then RsNature_des_Interventions.MoveFirst Else RsNature_des_Interventions.Requery End If ' set the number of rows displayed on this page If (RsNature_des_Interventions_numRows < 0 Or RsNature_des_Interventions_numRows > RsNature_des_Interventions_total) Then RsNature_des_Interventions_numRows = RsNature_des_Interventions_total End If ' set the first and last displayed record RsNature_des_Interventions_first = 1 RsNature_des_Interventions_last = RsNature_des_Interventions_first + RsNature_des_Interventions_numRows - 1 If (RsNature_des_Interventions_first > RsNature_des_Interventions_total) Then RsNature_des_Interventions_first = RsNature_des_Interventions_total End If If (RsNature_des_Interventions_last > RsNature_des_Interventions_total) Then RsNature_des_Interventions_last = RsNature_des_Interventions_total End If End If %> Détail de l'action

<%=(Rs_action.Fields.Item("act_titre").Value)%>

<% If (Session("MM_UserAuthorization"))>="3" Then %> "> <% End If %> <% if (Rs_action.Fields.Item("act_cercle").Value)<>"" then %> <% end if %> <% if (Rs_action.Fields.Item("act_arrondissement").Value)<>"" then%> <% end if %> <% if (Rs_action.Fields.Item("act_communes").Value)<>"" then%> <% end if %> <% if (Rs_action.Fields.Item("act_villages").Value)<>"" then%> <% end if %>
LOCALISATION <%=UCase((Rs_action.Fields.Item("pay_pays").Value))%>
Province/région
<%=(Rs_action.Fields.Item("act_region").Value)%>
Cercle
<%=(Rs_action.Fields.Item("act_cercle").Value)%>
District
<%=(Rs_action.Fields.Item("act_arrondissement").Value)%>
Communautés rurales
ou Communes
<%=(Rs_action.Fields.Item("act_communes").Value)%>
Villages
<%=(Rs_action.Fields.Item("act_villages").Value)%>

<% if (RsChampsNonVides.Fields.Item("act_resume").Value) <> "" then %> <% end if%>
Résumé
<%=replace((Rs_action.Fields.Item("act_resume").Value),Chr(13), "
") %>

<% If (Rs_action_null.Fields.Item("org_organisme").Value)<>"" Then %> <% End If %> <% if (Rs_action_null.Fields.Item("act_beneficiaires").Value)<>"" then%> <% end if %> <% if (Rs_action_null.Fields.Item("act_budget").Value)<>"" then%> <% end if %> <% if (Rs_action_null.Fields.Item("act_moyens_humains").Value)<>"" then%> <% end if %> <% if (Rs_action_null.Fields.Item("act_equipement").Value)<>"" then%> <% end if %> <% if (Rs_action_null.Fields.Item("act_date_demarrage").Value)<>"" then%> <% end if %> <% if (Rs_action_null.Fields.Item("act_duree").Value)<>"" then%> <% end if %> <% if (Rs_action_etat_d_avancement.Fields.Item("cont").Value)<>"" then%> <% end if %> <% if (Rs_action_null.Fields.Item("act_produc_info").Value)<>"" then%> <% end if %> <% if (Rs_action_null.Fields.Item("act_liste_documents").Value)<>"" then%> <% end if %>
Porteur principal du projet <%=(Rs_action.Fields.Item("organisme_sigle").Value)%> / <%=(Rs_action.Fields.Item("org_ville").Value)%>
Nature du porteur <%=(Rs_action.Fields.Item("type_organisme").Value)%>
Responsable de l'action en France <%=(Rs_contact_france.Fields.Item("cont_prenom").Value)%>  <%=(Rs_contact_france.Fields.Item("cont_nom").Value)%> <% if (Rs_contact_france.Fields.Item("cont_fonction").Value)<>"" then %>
<%=(Rs_contact_france.Fields.Item("cont_fonction").Value)%> <% end if %> <% if (Rs_contact_france.Fields.Item("cont_email_direct_1_en_ligne").Value)<>0 and (Rs_contact_france.Fields.Item("cont_email_direct_1").Value)<>"" then %>
"><%=(Rs_contact_france.Fields.Item("cont_email_direct_1").Value)%> <% end if %>
<%=(Rs_contact_france.Fields.Item("organisme_sigle").Value)%> <% if (Rs_contact_france.Fields.Item("org_adresse_postale").Value)<>"" then %>
<%=(Rs_contact_france.Fields.Item("org_adresse_postale").Value)%>
<% end if %> <%=(Rs_contact_france.Fields.Item("org_code_postal").Value)%>  <%=(Rs_contact_france.Fields.Item("org_ville").Value)%> <%=(Rs_contact_france.Fields.Item("org_ville_code").Value)%> <% if (Rs_contact_france.Fields.Item("org_tel_std").Value)<>"" then %>
Tél: <%=(Rs_contact_france.Fields.Item("org_tel_std").Value)%> <% end if %> <% if (Rs_contact_france.Fields.Item("org_fax_std").Value)<>"" then %>
Fax: <%=(Rs_contact_france.Fields.Item("org_fax_std").Value)%> <% end if %> <% if (Rs_contact_france.Fields.Item("org_email_std_1").Value)<>"" then %>
Courriel: "><%=(Rs_contact_france.Fields.Item("org_email_std_1").Value)%> <% end if %>
Responsable de l'action dans le pays <%=(Rs_contact_ds_le_pays.Fields.Item("cont_prenom").Value)%>  <%=(Rs_contact_ds_le_pays.Fields.Item("cont_nom").Value)%> <% if (Rs_contact_ds_le_pays.Fields.Item("cont_fonction").Value)<>"" then %>
<%=(Rs_contact_ds_le_pays.Fields.Item("cont_fonction").Value)%> <% end if %> <% if (Rs_contact_ds_le_pays.Fields.Item("cont_email_direct_1_en_ligne").Value)<>0 and (Rs_contact_ds_le_pays.Fields.Item("cont_email_direct_1").Value)<>"" then %>
"><%=(Rs_contact_ds_le_pays.Fields.Item("cont_email_direct_1").Value)%> <% end if %>
<%=(Rs_contact_ds_le_pays.Fields.Item("organisme_sigle").Value)%>
<%=(Rs_contact_ds_le_pays.Fields.Item("org_adresse_postale").Value)%>
<%=(Rs_contact_ds_le_pays.Fields.Item("org_code_postal").Value)%> <%=(Rs_contact_ds_le_pays.Fields.Item("org_ville").Value)%> <%=(Rs_contact_ds_le_pays.Fields.Item("org_ville_code").Value)%> <% if (Rs_contact_ds_le_pays.Fields.Item("org_tel_std").Value)<>"" then %>
Tél: <%=(Rs_contact_ds_le_pays.Fields.Item("org_tel_std").Value)%> <% end if %> <% if (Rs_contact_ds_le_pays.Fields.Item("org_fax_std").Value)<>"" then %>
Fax: <%=(Rs_contact_ds_le_pays.Fields.Item("org_fax_std").Value)%> <% end if %> <% if (Rs_contact_ds_le_pays.Fields.Item("org_email_std_1").Value)<>"" then %>
Courriel: "><%=(Rs_contact_ds_le_pays.Fields.Item("org_email_std_1").Value)%> <% end if %>
Bénéficiaires du projet <%=(Rs_action.Fields.Item("act_beneficiaires").Value)%>
Budget <%=(Rs_action.Fields.Item("act_budget").Value)%>
Moyens humains <%=(Rs_action.Fields.Item("act_moyens_humains").Value)%>
Equipement, matériel <%=(Rs_action.Fields.Item("act_equipement").Value)%>
Autres partenaires <% While ((Repeat1__numRows <> 0) AND (NOT Rs_partenaires.EOF)) %> <%=(Rs_partenaires.Fields.Item("organisme_sigle").Value)%> - <%=(Rs_partenaires.Fields.Item("org_ville").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Rs_partenaires.MoveNext() Wend %> <% If (Session("MM_UserAuthorization"))>="3" Then %> "> <% End If %><% If (Rs_action_null.Fields.Item("act_autres_partenaires").Value)<>"" or (Rs_action_null.Fields.Item("act_autres_partenaires").Value)<> null Then %> <%=Replace((Rs_action.Fields.Item("act_autres_partenaires").Value),Chr(13), "
")%><% End If %>  
Bailleurs de fonds <% While ((Repeat2__numRows <> 0) AND (NOT Rs_bailleurs.EOF)) %> <%=(Rs_bailleurs.Fields.Item("organisme_sigle").Value)%> - <%=(Rs_bailleurs.Fields.Item("org_ville").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Rs_bailleurs.MoveNext() Wend %> <% If (Session("MM_UserAuthorization"))>="3" Then %> "> <% End If %>  
Date de démarrage <%=(Rs_action.Fields.Item("act_date_demarrage").Value)%>
Durée d'engagement <%=(Rs_action.Fields.Item("act_duree").Value)%>
Etat d'avancement <%=(Rs_action_etat_d_avancement.Fields.Item("cont").Value)%>
Producteur de l'info <%=(Rs_action.Fields.Item("act_produc_info").Value)%>
Liste des documents produits <%=(Rs_action.Fields.Item("act_liste_documents").Value)%>
<% if (RsChampsNonVides.Fields.Item("act_gestion_du_terroir").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_agriculture").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_sante").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_enseignement").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_genie_rural").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_devlpt_urbain").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_appui_petites_entr").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_elevage").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_peche").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_energie").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_aide_alimentaire").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_epargne_credit").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_cooperation_culturelle").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_action_femmes").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_eau_et_assainissement").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_irrigation").Value) = "Vrai" then %> <% End if %> <% if (RsChampsNonVides.Fields.Item("act_memo_autres").Value) <> "" then %> <% End if %>
SECTEUR(S) D'INTERVENTION  
GESTION DE TERROIR  
AGRICULTURE <% if (RsSecteur_intervention1.Fields.Item("agriculture").Value) <> "" then %> <%=(RsSecteur_intervention1.Fields.Item("agriculture").Value)%> <% End if %>  
SANTE <% if (RsSecteur_intervention1.Fields.Item("sante").Value) <> "" then %> <%=(RsSecteur_intervention1.Fields.Item("sante").Value)%> <% End if %>  
ENSEIGNEMENT <% if (RsSecteur_intervention1.Fields.Item("enseignement").Value) <> "" then %> <%=(RsSecteur_intervention1.Fields.Item("enseignement").Value)%> <% End if %>  
GENIE RURAL <% if (RsSecteur_intervention1.Fields.Item("genie_rural").Value) <> "" then %> <%=(RsSecteur_intervention1.Fields.Item("genie_rural").Value)%> <% End if %>  
DEVELOPPEMENT URBAIN <% if (RsSecteur_intervention1.Fields.Item("dev_urbain").Value) <> "" then %> <%=(RsSecteur_intervention1.Fields.Item("dev_urbain").Value)%> <% End if %>  
APPUI AUX PETITES ENTREPRISES <% if (RsSecteur_intervention1.Fields.Item("ape").Value) <> "" then %> <%=(RsSecteur_intervention1.Fields.Item("ape").Value)%> <% End if %>  
ELEVAGE  
PECHE  
ENERGIE  
AIDE ALIMENTAIRE  
EPARGNE / CREDIT  
COOPERATION CULTURELLE ET ARTISTIQUE  
ACTIONS EN FAVEUR DES FEMMES  
EAU ET ASSAINISSEMENT <% if (Rs_action_secteur_inter_eau_assainissement.Fields.Item("cont").Value) <> "" then %> <%=(Rs_action_secteur_inter_eau_assainissement.Fields.Item("cont").Value)%> <% End if %>  
IRRIGATION <% if (Rs_action_secteur_inter_irrigation.Fields.Item("cont").Value) <> "" then %> <%=(Rs_action_secteur_inter_irrigation.Fields.Item("cont").Value)%> <% End if %>  
AUTRES <%=(Rs_action.Fields.Item("act_memo_autres").Value)%>
<% if (RsNature_des_Interventions_total)>0 then %> <% end if %>
Second choix par secteur affiné
Milieu: <% if (Rs_action.Fields.Item("act_eau_rural").Value)<>0 then %> rural; <% end if %> <% if (Rs_action.Fields.Item("act_eau_petites_villes").Value)<>0 then %> rural; <% end if %> <% if (Rs_action.Fields.Item("act_eau_urbain").Value)<>0 then %> rural; <% end if %>
Nature des interventions: <%=(RsNature_des_Interventions.Fields.Item("cont").Value)%>

 

<% Rs_action.Close() Set Rs_action = Nothing %> <% Rs_contact_france.Close() Set Rs_contact_france = Nothing %> <% Rs_contact_ds_le_pays.Close() Set Rs_contact_ds_le_pays = Nothing %> <% Rs_partenaires.Close() Set Rs_partenaires = Nothing %> <% Rs_bailleurs.Close() Set Rs_bailleurs = Nothing %> <% RsNature_des_Interventions.Close() %> <% RsSecteur_intervention1.Close() %> <% Rs_action_secteur_inter_eau_assainissement.Close() %> <% Rs_action_secteur_inter_irrigation.Close() %> <% RsChampsNonVides.Close() %> <% Rs_action_etat_d_avancement.Close() %> <% Rs_action_null.Close() Set Rs_action_null = Nothing %>