Bonjour,
J'ai un problème de récupération de données lors de la validation d'un formulaire.
Je souhaite juste récupérer les valeurs du moteur de recherche de l'USERCONTROL "ListeMembers.ascx"
Mon compte s'imbrique de cette façon :
PAGE ASPX :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
<asp:UpdatePanel ID="UpdatePanel2" runat="server" UpdateMode="Conditional">
		<ContentTemplate>
			<ajaxToolkit:TabContainer ID="TabContainer1" runat="server" ActiveTabIndex="0" AutoPostBack="true" OnActiveTabChanged="TabContainer1_ActiveTabChanged" CssClass="nav nav-tabs tab_container1" Width="100%">
				<ajaxToolkit:TabPanel ID="Tab_DashBoard" runat="server" HeaderText="<i class='fa fa-book icon'></i>Recent activity">
					<ContentTemplate>
					</ContentTemplate>
				</ajaxToolkit:TabPanel>
				<ajaxToolkit:TabPanel ID="Tab_Details" runat="server" HeaderText="<i class='fa fa-book icon'></i>Details">
					<ContentTemplate>
					</ContentTemplate>
				</ajaxToolkit:TabPanel>
				<ajaxToolkit:TabPanel ID="Tab_Forum" runat="server" HeaderText="<i class='fa fa-comments-o icon'></i>Forum">
					<ContentTemplate>
					</ContentTemplate>
				</ajaxToolkit:TabPanel>
				<ajaxToolkit:TabPanel ID="Tab_Documents" runat="server" HeaderText="<i class='fa fa-file-pdf-o icon'></i>Documents">
					<ContentTemplate>
					</ContentTemplate>
				</ajaxToolkit:TabPanel>
				<ajaxToolkit:TabPanel ID="Tab_Members" runat="server" HeaderText="<i class='fa fa-users icon'></i>Members">
					<ContentTemplate>						
					</ContentTemplate>
				</ajaxToolkit:TabPanel>
				<ajaxToolkit:TabPanel ID="Tab_News" runat="server" HeaderText="<i class='fa fa-newspaper-o icon'></i>News">
					<ContentTemplate>
					</ContentTemplate>
				</ajaxToolkit:TabPanel>
				<ajaxToolkit:TabPanel ID="Tab_Events" runat="server" HeaderText="<i class='fa fa-newspaper-o icon'></i>Events">
					<ContentTemplate>
					</ContentTemplate>
				</ajaxToolkit:TabPanel>
				<ajaxToolkit:TabPanel ID="Tab_Medias" runat="server" HeaderText="<i class='fa fa-picture-o icon'></i>Medias">
					<ContentTemplate>
					</ContentTemplate>
				</ajaxToolkit:TabPanel>
				<ajaxToolkit:TabPanel ID="Tab_Abonnements" runat="server" HeaderText="<i class='fa fa-file-pdf-o icon'></i>Subscriptions">
					<ContentTemplate>
					</ContentTemplate>
				</ajaxToolkit:TabPanel>
			</ajaxToolkit:TabContainer>
			<asp:UpdateProgress ID="UpdateProgress2" runat="server" DynamicLayout="true" DisplayAfter="0">
				<ProgressTemplate>
					<span id="loaderImage" style=" z-index: 1000;text-align: center; width: 100%; position: absolute; height: 100%; background: url(/images/giphy.gif) center no-repeat rgba(255, 255, 255,0.5); top:0; left: 0; color: #2E6E9E; font-weight: bold; font-size: 18px;">
				</ProgressTemplate>
			</asp:UpdateProgress>
		</ContentTemplate>
	</asp:UpdatePanel>
PAGE ASPX JAVASCRIPT
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
 
<script type="text/javascript">
		var $jQuery = jQuery.noConflict();
 
 
		$jQuery(function () {
			initializer();
		});
 
		var prmInstance = Sys.WebForms.PageRequestManager.getInstance();
 
		prmInstance.add_endRequest(function () {
			//you need to re-bind your jquery events here
			initializer();
		});
 
		function initializer() {
 
 
			var $jQuery = jQuery.noConflict();
 
			$jQuery(document).ready(function () {
				var hash = window.location.hash;
				hash && $jQuery('ul.nav-tabs a[href="' + hash + '"]').tab('show');
			});
 
			$jQuery(document).ready(function () {
				setTimeout(function () {
				<%if Session("TabIndex") <> Nothing Then%>
					$jQuery('ul.nav-tabs a[href="#<%=Session("TabIndex")%>"]').tab('show');
				<%End If%>
				}, 1000);
			});
 
 
 
			$jQuery("select").chosen({ disable_search_threshold: 11 });
 
 
			$jQuery(".tabs").tabs({
				create: function (event, ui) {
					$jQuery(this).fadeIn();
				}
			});
 
			$jQuery(".ButtonMiseaJour").click(function () {
				var Id = $jQuery(this).attr("id");
				__doPostBack(Id);
			})
 
			$jQuery(".SujetLinkButton").click(function () {
				var Id = $jQuery(this).attr("id");
				var Infos = Id.split("Clef_FORUMS_MESSAGES_");
				__doPostBack(Id, Infos[1]);
			})
 
			$jQuery(".link_repondre").click(function () {
				var Id = $jQuery(this).attr("id");
				var Infos = Id.split("AddMessage_");
				__doPostBack(Id, Infos[1]);
			})
 
			$jQuery(".link_ajouter").click(function () {
				var Id = $jQuery(this).attr("id");
				var Infos = Id.split("AddMessage_");
				__doPostBack(Id, Infos[1]);
			})
 
			$jQuery(".link_Modifier").click(function () {
				var Id = $jQuery(this).attr("id");
				var Infos = Id.split("ModifierMessage_");
				__doPostBack(Id, Infos[1]);
			})
 
			$jQuery(".link_Supprimer").click(function () {
				var Id = $jQuery(this).attr("id");
				var Infos = Id.split("SupprimerMessage_");
				__doPostBack(Id, Infos[1]);
			})
 
			$jQuery(".link_Citer").click(function () {
				var Id = $jQuery(this).attr("id");
				var Infos = Id.split("CiterMessage_");
				__doPostBack(Id, Infos[1]);
			})
 
			$jQuery(".retour").click(function () {
				var Id = $jQuery(this).attr("id");
				__doPostBack(Id);
			})		
 
			$jQuery(".chosen_IsDropDownList").chosen().change(function (event) {
				if (event.target == this) {
					Val = $jQuery(this).val();
 
					var $Hidden = $jQuery(this).parent(".block_form").find("input[type=hidden]");
					$Hidden.val(Val);
 
					//$jQuery("input[id*=Clef_MA]").val(Val);
 
					//$jQuery(".ID_Fileupload_Medias").val("");
					//$jQuery(".CodeEmbedded_MEDIASV2_IsTextBox").val("");
					//$jQuery(".BlocMediaVideo").find("iframe").remove();
					//$jQuery(".BlocMediaVideo").hide();
					//AfficheBlocMedia(Val);
				}
			});
 
 
 
		}
	</script>

PAGE ASPX VB :
PAGE ASPX PAGELOAD :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
Private Sub Members_Private_Projects_UpdateProjects_Load(sender As Object, e As EventArgs) Handles Me.Load
		MyErrorValidator = New VALIDATORS(LabelError, LiteralAjaxError, False)
 
		Clef_PROJECTS_IsHidden.Value = System.Int32.MaxValue
		If Not Request("Clef_PROJECTS") Is Nothing Then
			If Not System.Int32.TryParse(Request("Clef_PROJECTS"), Clef_PROJECTS_IsHidden.Value) Then
				MyErrorValidator.VALIDATORS_Controles_Error = "Erreur de format : request(""Clef_PROJECTS"")"
			End If
		End If
		Dim _Clef_PROJECTS = Clef_PROJECTS_IsHidden.Value
 
		If Clef_PROJECTS_IsHidden.Value <> Int32.MaxValue Then
 
			Dim MyPROJECTS As New PROJECTS(MyErrorValidator)
			MyPROJECTS.LoadInDataMemberByKey(Clef_PROJECTS_IsHidden.Value)
 
			Dim TopFullResponsable As Boolean = USERSxxPROJECTS.TopResponsableByClefProjetsAndClefUsersAndClefRole(MyErrorValidator, Clef_PROJECTS_IsHidden.Value, Session("Clef_USERS"), USERS_ROLES.ListeRoles.FullResponsable)
			Dim TopResponsable As Boolean = USERSxxPROJECTS.TopResponsableByClefProjetsAndClefUsersAndClefRole(MyErrorValidator, Clef_PROJECTS_IsHidden.Value, Session("Clef_USERS"), USERS_ROLES.ListeRoles.Responsable)
			Dim TopColaborateur As Boolean = USERSxxPROJECTS.TopResponsableByClefProjetsAndClefUsersAndClefRole(MyErrorValidator, Clef_PROJECTS_IsHidden.Value, Session("Clef_USERS"), USERS_ROLES.ListeRoles.Colaborateur)
			Dim TopEnfants As Boolean = USERSxxPROJECTS.ExistEnfantsByCleFUsersAndClefprojetsParent(MyErrorValidator, Clef_PROJECTS_IsHidden.Value, Session("Clef_USERS"))
 
			If Not Request("tabs") Is Nothing Then
				ViewState("ActiveTabIndex") = Request("tabs")
			End If
 
			If Not (ViewState("ActiveTabIndex") Is Nothing) Then
				TabContainer1.ActiveTabIndex = CInt(ViewState("ActiveTabIndex"))
 
				If TabContainer1.ActiveTabIndex = 0 Then
					Dim DashBoard As Members_Private_Projects_WebControls_DashBoard = LoadControl("~/Members/Private/Projects/WebControls/DashBoard.ascx")
					DashBoard.Clef_PROJECTS = Request("Clef_PROJECTS")
					Me.Tab_DashBoard.Controls.Add(DashBoard)
 
				ElseIf TabContainer1.ActiveTabIndex = 1 Then
 
					If TopFullResponsable Then
						ViewState("registrar") = True
						Dim FormUpdateProjects As Members_Private_Projects_WebControls_FormUpdateProjects = LoadControl("~/Members/Private/Projects/WebControls/FormUpdateProjects.ascx")
						FormUpdateProjects.Clef_PROJECTS = Request("Clef_PROJECTS")
						FormUpdateProjects.registrar = True
						Me.Tab_Details.Controls.Add(FormUpdateProjects)
					Else
						Dim FicheProject As Members_Private_Projects_WebControls_FicheProject = LoadControl("~/Members/Private/Projects/WebControls/FicheProject.ascx")
						FicheProject.Clef_PROJECTS = Request("Clef_PROJECTS")
						Me.Tab_Details.Controls.Add(FicheProject)
					End If
 
				ElseIf TabContainer1.ActiveTabIndex = 2 Then
					Dim ListeForum As Members_Private_Projects_WebControls_ListeForum = LoadControl("~/Members/Private/Projects/WebControls/ListeForum.ascx")
					ListeForum.Clef_PROJECTS = Request("Clef_PROJECTS")
					Me.Tab_Forum.Controls.Add(ListeForum)
 
				ElseIf TabContainer1.ActiveTabIndex = 3 Then
					Dim ListeDouments As Members_Private_Projects_WebControls_ListeDouments = LoadControl("~/Members/Private/Projects/WebControls/ListeDouments.ascx")
					ListeDouments.Clef_PROJECTS = Request("Clef_PROJECTS")
					Me.Tab_Documents.Controls.Add(ListeDouments)
 
				ElseIf TabContainer1.ActiveTabIndex = 4 Then
					ViewState("registrar") = True
					Dim ListeMembers As Members_Private_Projects_WebControls_ListeMembers = LoadControl("~/Members/Private/Projects/WebControls/ListeMembers.ascx")
					ListeMembers.Clef_PROJECTS = Request("Clef_PROJECTS")
					ListeMembers.registrar = True
					Me.Tab_Members.Controls.Add(ListeMembers)
 
				ElseIf TabContainer1.ActiveTabIndex = 5 Then
					Dim ListeNews As Members_Private_Projects_WebControls_ListeNews = LoadControl("~/Members/Private/Projects/WebControls/ListeNews.ascx")
					ListeNews.Clef_PROJECTS = Request("Clef_PROJECTS")
					Me.Tab_News.Controls.Add(ListeNews)
 
				ElseIf TabContainer1.ActiveTabIndex = 6 Then
					ViewState("registrar") = True
					Dim ListeEvents As Members_Private_Projects_WebControls_ListeEvents = LoadControl("~/Members/Private/Projects/WebControls/ListeEvents.ascx")
					ListeEvents.Clef_PROJECTS = Request("Clef_PROJECTS")
					Me.Tab_Events.Controls.Add(ListeEvents)
 
				ElseIf TabContainer1.ActiveTabIndex = 7 Then
					ViewState("registrar") = True
					Dim ListeMedias As Members_Private_Projects_WebControls_ListeMedias = LoadControl("~/Members/Private/Projects/WebControls/ListeMedias.ascx")
					ListeMedias.registrar = True
					ListeMedias.Clef_PROJECTS = Request("Clef_PROJECTS")
					Me.Tab_Medias.Controls.Add(ListeMedias)
 
				ElseIf TabContainer1.ActiveTabIndex = 8 Then
					Dim ListeAbonnements As Members_Private_Projects_WebControls_ListeAbonnements = LoadControl("~/Members/Private/Projects/WebControls/ListeAbonnements.ascx")
					ListeAbonnements.Clef_PROJECTS = Request("Clef_PROJECTS")
					Me.Tab_Abonnements.Controls.Add(ListeAbonnements)
 
				End If
 
			End If		
 
 
			MyPROJECTS.Dispose()
		End If
	End Sub
PAGE ASPX VB :
Function ActiveTabChanged :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Protected Sub TabContainer1_ActiveTabChanged(sender As Object, e As EventArgs)
		MyErrorValidator = New VALIDATORS(LabelError, LiteralAjaxError, False)
 
		Dim TopFullResponsable As Boolean = USERSxxPROJECTS.TopResponsableByClefProjetsAndClefUsersAndClefRole(MyErrorValidator, Clef_PROJECTS_IsHidden.Value, Session("Clef_USERS"), USERS_ROLES.ListeRoles.FullResponsable)
 
		If TabContainer1.ActiveTabIndex = 0 And ViewState("ActiveTabIndex") <> TabContainer1.ActiveTabIndex Then
			Dim DashBoard As Members_Private_Projects_WebControls_DashBoard = LoadControl("~/Members/Private/Projects/WebControls/DashBoard.ascx")
			DashBoard.Clef_PROJECTS = Request("Clef_PROJECTS")
			Me.Tab_DashBoard.Controls.Add(DashBoard)
 
		ElseIf TabContainer1.ActiveTabIndex = 1 And ViewState("ActiveTabIndex") <> TabContainer1.ActiveTabIndex Then
			If TopFullResponsable Then
				Dim FormUpdateProjects As Members_Private_Projects_WebControls_FormUpdateProjects = LoadControl("~/Members/Private/Projects/WebControls/FormUpdateProjects.ascx")
				FormUpdateProjects.Clef_PROJECTS = Request("Clef_PROJECTS")
				Me.Tab_Details.Controls.Add(FormUpdateProjects)
			Else
				Dim FicheProject As Members_Private_Projects_WebControls_FicheProject = LoadControl("~/Members/Private/Projects/WebControls/FicheProject.ascx")
				FicheProject.Clef_PROJECTS = Request("Clef_PROJECTS")
				Me.Tab_Details.Controls.Add(FicheProject)
			End If
 
		ElseIf TabContainer1.ActiveTabIndex = 2 And ViewState("ActiveTabIndex") <> TabContainer1.ActiveTabIndex Then
			Dim ListeForum As Members_Private_Projects_WebControls_ListeForum = LoadControl("~/Members/Private/Projects/WebControls/ListeForum.ascx")
			ListeForum.Clef_PROJECTS = Request("Clef_PROJECTS")
			Me.Tab_Forum.Controls.Add(ListeForum)
 
		ElseIf TabContainer1.ActiveTabIndex = 3 And ViewState("ActiveTabIndex") <> TabContainer1.ActiveTabIndex Then
			Dim ListeDouments As Members_Private_Projects_WebControls_ListeDouments = LoadControl("~/Members/Private/Projects/WebControls/ListeDouments.ascx")
			ListeDouments.Clef_PROJECTS = Request("Clef_PROJECTS")
			Me.Tab_Documents.Controls.Add(ListeDouments)
 
		ElseIf TabContainer1.ActiveTabIndex = 4 And ViewState("ActiveTabIndex") <> TabContainer1.ActiveTabIndex Then
			Dim ListeMembers As Members_Private_Projects_WebControls_ListeMembers = LoadControl("~/Members/Private/Projects/WebControls/ListeMembers.ascx")
			ListeMembers.Clef_PROJECTS = Request("Clef_PROJECTS")
			Me.Tab_Members.Controls.Add(ListeMembers)
 
		ElseIf TabContainer1.ActiveTabIndex = 5 And ViewState("ActiveTabIndex") <> TabContainer1.ActiveTabIndex Then
			Dim ListeNews As Members_Private_Projects_WebControls_ListeNews = LoadControl("~/Members/Private/Projects/WebControls/ListeNews.ascx")
			ListeNews.Clef_PROJECTS = Request("Clef_PROJECTS")
			Me.Tab_News.Controls.Add(ListeNews)
 
		ElseIf TabContainer1.ActiveTabIndex = 6 And ViewState("ActiveTabIndex") <> TabContainer1.ActiveTabIndex Then
			Dim ListeEvents As Members_Private_Projects_WebControls_ListeEvents = LoadControl("~/Members/Private/Projects/WebControls/ListeEvents.ascx")
			ListeEvents.Clef_PROJECTS = Request("Clef_PROJECTS")
			Me.Tab_Events.Controls.Add(ListeEvents)
 
		ElseIf TabContainer1.ActiveTabIndex = 7 And ViewState("ActiveTabIndex") <> TabContainer1.ActiveTabIndex Then
			Dim ListeMedias As Members_Private_Projects_WebControls_ListeMedias = LoadControl("~/Members/Private/Projects/WebControls/ListeMedias.ascx")
			ListeMedias.Clef_PROJECTS = Request("Clef_PROJECTS")
			Me.Tab_Medias.Controls.Add(ListeMedias)
 
		ElseIf TabContainer1.ActiveTabIndex = 8 And ViewState("ActiveTabIndex") <> TabContainer1.ActiveTabIndex Then
			Dim ListeAbonnements As Members_Private_Projects_WebControls_ListeAbonnements = LoadControl("~/Members/Private/Projects/WebControls/ListeAbonnements.ascx")
			ListeAbonnements.Clef_PROJECTS = Request("Clef_PROJECTS")
			Me.Tab_Abonnements.Controls.Add(ListeAbonnements)
 
		End If
 
		ViewState("ActiveTabIndex") = TabContainer1.ActiveTabIndex
 
	End Sub
USERCONTROL ListeMembers.ascx
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional" ChildrenAsTriggers="false">
	<Triggers>
		<asp:AsyncPostBackTrigger ControlID="FindDocuments" EventName="click" />
	</Triggers>
	<ContentTemplate>
<asp:HyperLink runat="server" ID="Contact_nonMembers_Hyperlink" CssClass="popup_contact Contact_nonMembers"><i class="fa fa-plus-square-o"></i> Invite external contact</asp:HyperLink>
<div class="clear"></div>
<br />
<asp:Literal runat="server" ID="TextNoActifProjectMembers"></asp:Literal>
<asp:PlaceHolder runat="server" ID="ListeMembersAttenteNotification_Placeholder"></asp:PlaceHolder>
<asp:PlaceHolder runat="server" ID="ListeMembersByProjects_Placeholder"></asp:PlaceHolder>
<asp:PlaceHolder runat="server" ID="BlocRechercheMembre_placeholder" Visible="false">
	<div class="divider"></div>
	<h3>Invite a member to join the project</h3>
	<asp:Panel runat="server" ID="BlocSearch" class="widget widget-sidebar sidebar-properties advanced-search" DefaultButton="FindDocuments">
		<h4 runat="server" id="TitreBloc">
			<asp:Label runat="server" ID="BlocTitre"></asp:Label><img src="/images/divider-half-white.png" alt="" /></h4>
		<div class="widget-content box">
			<div class="form-block border">
				<asp:Label AssociatedControlID="Users_IsTextBox" runat="server" ID="Clefusers_USERSxxACTIVITIES_IsSpan" CssClass="control-label col-md-4 col-sm-4 col-xs-12">Name : </asp:Label>
				<div class="col-md-8 col-sm-8 col-xs-12 block_form">
					<asp:TextBox class="border" ID="Users_IsTextBox" runat="server" ValidationGroup="Administration" placeholder="Name : " />
				</div>
			</div>
			<asp:Panel runat="server" ID="Activites_Panel" class="form-block border">
				<asp:Label AssociatedControlID="Clefactivities_USERSxxACTIVITIES_IsDropDownList" runat="server" ID="Clefactivities_USERSxxACTIVITIES_IsSpan" CssClass="control-label col-md-4 col-sm-4 col-xs-12">Activities : </asp:Label>
				<div class="col-md-8 col-sm-8 col-xs-12 block_form">
					<asp:DropDownList CssClass="border chosen_IsDropDownList" ID="Clefactivities_USERSxxACTIVITIES_IsDropDownList" runat="server" ValidationGroup="Administration" placeholder="Clefactivities : " />
					<asp:HiddenField runat="server" ID="Clefactivities_USERSxxACTIVITIES_IsHidden" />
				</div>
			</asp:Panel>
			<div class="form-block border">
				<asp:Label AssociatedControlID="ClefCountry_USERS_IsDropDownList" runat="server" ID="ClefCountry_USERS_IsSpan" CssClass="control-label col-md-4 col-sm-4 col-xs-12">Country : </asp:Label>
				<div class="col-md-8 col-sm-8 col-xs-12 block_form">
					<asp:DropDownList CssClass="border" ID="ClefCountry_USERS_IsDropDownList" runat="server" ValidationGroup="Administration" placeholder="Country : " />
				</div>
			</div>
			<div class="form-block border">
				<asp:Label AssociatedControlID="Clefstudyareas_USERS_IsDropDownList" runat="server" ID="Clefstudyareas_USERSxxSTUDY_AREAS_IsSpan" CssClass="control-label col-md-4 col-sm-4 col-xs-12">Study area : </asp:Label>
				<div class="col-md-8 col-sm-8 col-xs-12 block_form">
					<asp:DropDownList CssClass="border" ID="Clefstudyareas_USERS_IsDropDownList" runat="server" ValidationGroup="Administration" placeholder="Study area : " />
				</div>
			</div>
			<div class="form-block IsEntier">
				<asp:Label class="control-label col-md-4 col-sm-4 col-xs-12" AssociatedControlID="Clefspecies_USERSxxSPECIES_IsDropDownList" runat="server" ID="Clefspecies_USERSxxSPECIES_IsSpan">Species : </asp:Label>
				<div class="col-md-8 col-sm-8 col-xs-12 block_form">
					<asp:DropDownList table="USERSxxSPECIES" colonne="Clefspecies_USERSxxSPECIES" CssClass="border" ID="Clefspecies_USERSxxSPECIES_IsDropDownList" runat="server" ValidationGroup="Administration" placeholder="Species : " />
				</div>
			</div>
			<div class="form-block">
				<asp:LinkButton runat="server" ID="FindDocuments" CssClass="button" CausesValidation="false">Find</asp:LinkButton>
				<asp:LinkButton runat="server" ID="ClearSearch" CssClass="button">Clear</asp:LinkButton>
			</div>
		</div>
		<!-- end widget content -->
	</asp:Panel>
	<div class="property-listing-header">
		<span class="property-count left">
			<asp:Literal runat="server" ID="CountMembers"></asp:Literal></span>
		<div class="clear"></div>
	</div>
	<asp:PlaceHolder runat="server" ID="ListeMembers_Placeholder"></asp:PlaceHolder>
</asp:PlaceHolder>
<asp:HiddenField ID="ClefDatatableSource_NOTIFICATIONS3_IsHidden" runat="server" />
<asp:HiddenField ID="ClefLiaisonSource_NOTIFICATIONS3_IsHidden" runat="server" />
<asp:Label runat="server" ID="MessageErreur" CssClass="MessageErreur" Style="display: none;"></asp:Label>
<asp:Label ID="LabelError" runat="server" CssClass="AdminLabelError" />
<asp:Literal runat="server" ID="LiteralAjaxError" EnableViewState="false" />
	</ContentTemplate>
</asp:UpdatePanel>
USERCONTROL ListeMembers.ascx.VB

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
 
	Private Sub Members_Private_Projects_WebControls_ListeMembers_Init(sender As Object, e As EventArgs) Handles Me.Init
		If _Clef_PROJECTS <> Int32.MaxValue Then
			ListeUsersByProjects(_Clef_PROJECTS)
			ListeMembersAttenteNotification(_Clef_PROJECTS)
		End If
	End Sub
 
	Private Sub Members_Private_Projects_WebControls_ListeMembers_Load(sender As Object, e As EventArgs) Handles Me.Load
		MyErrorValidator = New VALIDATORS(LabelError, LiteralAjaxError, False)
 
		If _Clef_PROJECTS <> Int32.MaxValue Then
			Dim MyPROJECTS As New PROJECTS(MyErrorValidator)
			MyPROJECTS.LoadInDataMemberByKey(_Clef_PROJECTS)
 
			Contact_nonMembers_Hyperlink.NavigateUrl = "/Members/Private/PopupContactMembers.aspx?Clef_PROJECTS=" & _Clef_PROJECTS
 
			Dim TopFullResponsable As Boolean = USERSxxPROJECTS.TopResponsableByClefProjetsAndClefUsersAndClefRole(MyErrorValidator, _Clef_PROJECTS, Session("Clef_USERS"), USERS_ROLES.ListeRoles.FullResponsable)
 
			If TopFullResponsable Then
				BlocRechercheMembre_placeholder.Visible = True
			Else
				BlocRechercheMembre_placeholder.Visible = False
				Contact_nonMembers_Hyperlink.Visible = False
			End If
 
			Dim Clef_USERSxxPROJECTS As Int32 = USERSxxPROJECTS.GetClefClef_USERSxxPROJECTSByClefProjetAndClefusers(MyErrorValidator, _Clef_PROJECTS, Session("Clef_USERS"))
 
			If Clef_USERSxxPROJECTS = Int32.MaxValue Then
				Contact_nonMembers_Hyperlink.Visible = False
			End If
 
			If Request("InParent") <> Nothing Then
				If Request("InParent") <> Int32.MaxValue Then
					If Clef_USERSxxPROJECTS = Int32.MaxValue Then
						BlocRechercheMembre_placeholder.Visible = False
						Contact_nonMembers_Hyperlink.Visible = False
						Session("TabIndex") = "tabs-2"
					End If
				End If
			End If
 
 
			If MyPROJECTS.TopIsValided_PROJECTS = Int32.MaxValue Then
				BlocRechercheMembre_placeholder.Visible = False
				Contact_nonMembers_Hyperlink.Visible = False
				TextNoActifProjectMembers.Text = "<p>You’re not allowed to add members since your project is still not validated</p>"
 
			ElseIf MyPROJECTS.TopEnLigne_PROJECTS = False Then
				BlocRechercheMembre_placeholder.Visible = False
				TextNoActifProjectMembers.Text = "<p>You’re not allowed to add members since your project is still not published</p>"
				Contact_nonMembers_Hyperlink.Visible = False
				ListeMembersAttenteNotification_Placeholder.Visible = False
				ListeMembersByProjects_Placeholder.Visible = False
 
			End If
 
			MyPROJECTS.Dispose()
 
 
			If ViewState("registrar") = False Then
				Dim MyValidator_Clefactivities_USERSxxACTIVITIES As New VALIDATORS(Clefactivities_USERSxxACTIVITIES_IsDropDownList, LiteralAjaxError, False)
				Dim MyValidator_ClefCountry_USERS As New VALIDATORS(ClefCountry_USERS_IsDropDownList, LiteralAjaxError, False)
				Dim MyValidator_Clefstudyareas_USERS As New VALIDATORS(Clefstudyareas_USERS_IsDropDownList, LiteralAjaxError, False)
				Dim MyValidator_Clefspecies_USERSxxSPECIES As New VALIDATORS(Clefspecies_USERSxxSPECIES_IsDropDownList, LiteralAjaxError, False)
 
				Dim MyTabSqlParam_Clefactivities_USERSxxACTIVITIES() As SqlParameter
				Dim MyACTIVITIES_Clefactivities_USERSxxACTIVITIES As New ACTIVITIES(MyValidator_Clefactivities_USERSxxACTIVITIES)
				MyACTIVITIES_Clefactivities_USERSxxACTIVITIES.BindWebForms(MyValidator_Clefactivities_USERSxxACTIVITIES, MyACTIVITIES_Clefactivities_USERSxxACTIVITIES.GetListRequete(ACTIVITIES.ACTIVITIES_TypeListRequette.ListDLLTopenLigneTrue), New String(Request("Clefactivities")), "TextValue", MyTabSqlParam_Clefactivities_USERSxxACTIVITIES, "Select an activity", True, False)
				MyACTIVITIES_Clefactivities_USERSxxACTIVITIES.Dispose()
 
				Dim MyTabSqlParam_ClefCountry_USERS() As SqlParameter
				Dim MyCOUNTRIES_ClefCountry_USERS As New COUNTRIES(MyValidator_ClefCountry_USERS)
				MyCOUNTRIES_ClefCountry_USERS.BindWebForms(MyValidator_ClefCountry_USERS, MyCOUNTRIES_ClefCountry_USERS.GetListRequete(COUNTRIES.COUNTRIES_TypeListRequette.ListDLLTopenLigneTrue), New String(Request("ClefCountry")), "TextValue", MyTabSqlParam_ClefCountry_USERS, "Select a country", True, False)
				MyCOUNTRIES_ClefCountry_USERS.Dispose()
 
				Dim MyTabSqlParam_Clefstudyareas_USERS(0) As SqlParameter
				Dim MySTUDY_AREAS_Clefstudyareas_USERS As New AREAS(MyValidator_Clefstudyareas_USERS)
 
				Dim myparam3 As New SqlParameter("@Clef_GROUPS_AREA", System.Data.SqlDbType.Int)
				myparam3.Value = 2
				MyTabSqlParam_Clefstudyareas_USERS(0) = myparam3
 
				MySTUDY_AREAS_Clefstudyareas_USERS.BindWebForms(MyValidator_Clefstudyareas_USERS, MySTUDY_AREAS_Clefstudyareas_USERS.GetListRequete(AREAS.AREAS_TypeListRequetteSpecifique.ListDLLByClefGroupsArea), New String(Request("Clefarea")), "TextValue", MyTabSqlParam_Clefstudyareas_USERS, "Select an area", True, False)
				MySTUDY_AREAS_Clefstudyareas_USERS.Dispose()
 
				Dim MyTabSqlParam_Clefspecies_USERSxxSPECIES() As SqlParameter
				Dim MySPECIES_Clefspecies_USERSxxSPECIES As New SPECIES(MyValidator_Clefspecies_USERSxxSPECIES)
				MySPECIES_Clefspecies_USERSxxSPECIES.BindWebForms(MyValidator_Clefspecies_USERSxxSPECIES, MySPECIES_Clefspecies_USERSxxSPECIES.GetListRequete(SPECIES.SPECIES_TypeListRequette.ListDLL), New String(Request("Clef_SPECIES")), "TextValue", MyTabSqlParam_Clefspecies_USERSxxSPECIES, "Select a species", True, False)
				MySPECIES_Clefspecies_USERSxxSPECIES.Dispose()
 
			End If
			If ViewState("registrar") = True Then
				ViewState("Clefactivities_USERSxxACTIVITIES_IsDropDownList") = Clefactivities_USERSxxACTIVITIES_IsHidden.Value
 
				ListeMembersSearch()
			End If
 
 
			BlocTitre.Text = "Search Netccobams members"
 
			If Request.RawUrl.ToLower.Contains(LCase("/Members/Private/Projects/UpdateProjects.aspx")) Then
				TitreBloc.Attributes.Add("style", "padding:10px;")
				BlocSearch.Attributes.Add("style", "margin-top:20px;")
			End If
 
			If Request.RawUrl.ToLower.Contains(LCase("/organisations")) Then
				Activites_Panel.Visible = False
				BlocTitre.Text = "Search Organisation"
			End If
 
		End If
 
 
 
	End Sub
 
	Sub ListeMembersSearch()
 
		Dim _FilterCount As Integer = -1
 
		Dim MyTabSqlParam(-1) As SqlParameter
		Dim myUSERS As New USERS(MyErrorValidator)
 
		Dim myRequette As String = "SELECT * FROM USERS "
 
 
		If Clefactivities_USERSxxACTIVITIES_IsHidden.Value <> "" Then
			If Clefactivities_USERSxxACTIVITIES_IsHidden.Value <> Int32.MaxValue Then
				myRequette &= " INNER JOIN USERSxxACTIVITIES ON USERS.Clef_USERS = USERSxxACTIVITIES.Clefusers_USERSxxACTIVITIES "
			End If
		End If
 
		If Clefstudyareas_USERS_IsDropDownList.SelectedValue <> "" Then
			If Clefstudyareas_USERS_IsDropDownList.SelectedValue <> Int32.MaxValue Then
				myRequette &= " INNER JOIN USERS_AREAS_in_GROUPS_AREA ON USERS.Clef_USERS = USERS_AREAS_in_GROUPS_AREA.ClefUsers_USERS_AREAS_in_GROUPS_AREA "
				myRequette &= " INNER JOIN GROUPS_AREAxxAREAS ON USERS_AREAS_in_GROUPS_AREA.ClefGroupxxarea_USERS_AREAS_in_GROUPS_AREA = GROUPS_AREAxxAREAS.Clef_GROUPS_AREAxxAREAS  "
			End If
		End If
 
		'myRequette &= " where TopSuppression_USERS = 0 and TopCompteValide_USERS = 1 and EmailNonValide_USERS is null "
		myRequette &= " where TopSuppression_USERS = 0 and TopCompteValide_USERS = 1 and EmailNonValide_USERS is null and TopEnLigne_USERS = 1 and ClefCategories_USERS=1 and TopCompteValide_USERS=1"
 
		Dim ListeClefUsers As String = USERSxxPROJECTS.ListeUsersByClefProjet(MyErrorValidator, _Clef_PROJECTS)
 
		If ListeClefUsers.ToString.Length > 0 Then
			myRequette &= " AND Clef_USERS not in (" & ListeClefUsers & ")"
		End If
 
		myRequette &= "  AND Clef_USERS <> " & Session("Clef_USERS")
 
		If Users_IsTextBox.Text.ToString.Length > 0 Then
			myRequette &= " and (FamilyName_USERS like '%' + @Search_TextBox + '%' or FirstName_USERS like '%' + @Search_TextBox + '%')"
		End If
 
		If ClefCountry_USERS_IsDropDownList.SelectedValue <> "" Then
			If ClefCountry_USERS_IsDropDownList.SelectedValue <> Int32.MaxValue Then
				myRequette &= " and ClefCountry_USERS = " & ClefCountry_USERS_IsDropDownList.SelectedValue
			End If
		End If
 
		If Clefactivities_USERSxxACTIVITIES_IsHidden.Value <> "" Then
			If Clefactivities_USERSxxACTIVITIES_IsHidden.Value <> Int32.MaxValue Then
				myRequette &= "And USERSxxACTIVITIES.TopSuppression_USERSxxACTIVITIES = 0 And Clefactivities_USERSxxACTIVITIES = " & Clefactivities_USERSxxACTIVITIES_IsHidden.Value
			End If
		End If
 
		If Clefstudyareas_USERS_IsDropDownList.SelectedValue <> "" Then
			If Clefstudyareas_USERS_IsDropDownList.SelectedValue <> Int32.MaxValue Then
				myRequette &= " and TopSuppression_USERS_AREAS_in_GROUPS_AREA = 0 and TopEnLigne_USERS_AREAS_in_GROUPS_AREA = 1 and TopSuppression_GROUPS_AREAxxAREAS = 0 and Clefareas_GROUPS_AREAxxAREAS =" & Clefstudyareas_USERS_IsDropDownList.SelectedValue
			End If
		End If
 
		If Users_IsTextBox.Text.ToString.Length > 0 Then
			_FilterCount = _FilterCount + 1
			Dim MySQLParameterSearch_TextBox_Project As New SqlParameter("Search_TextBox", SqlDbType.NVarChar)
			MySQLParameterSearch_TextBox_Project.Value = Users_IsTextBox.Text
			ReDim Preserve MyTabSqlParam(_FilterCount)
			MyTabSqlParam(_FilterCount) = MySQLParameterSearch_TextBox_Project
 
		End If
 
		CountMembers.Text = "0 member found"
 
 
		'ClefCategories_USERS=
		'1 An expert
		'2 An organization
		'TopCompteValide_USERS
 
 
 
		Dim Myds = myUSERS.List(myRequette, "FamilyName_USERS", MyTabSqlParam, False)
		If Myds Is Nothing Then
			MyErrorValidator.VALIDATORS_Controles_Error = "Nothing"
		Else
			If Myds.Tables.Count > 0 Then
				If Myds.Tables(0).Rows.Count > 0 Then
 
					Dim ThisDataview As DataView = Myds.Tables(0).DefaultView
 
					Dim Count As Double = 0
 
					For cpt As Int32 = 0 To ThisDataview.Count - 1 Step 3
 
						'Dim TopValidatedOrganization_USERS As Int32 = ThisDataview(cpt)("TopValidatedOrganization_USERS")
						Dim TopCompteValide_USERS As Int32 = ThisDataview(cpt)("TopCompteValide_USERS")
 
						If cpt Mod 3 = 0 Then
							Dim Items As New Literal
							Items.Text = "<div class="" row"">"
							ListeMembers_Placeholder.Controls.Add(Items)
 
 
							'If TopValidatedOrganization_USERS = 1 Then
							Dim BlocMembers As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx")
							BlocMembers.Clef_USERS = ThisDataview(cpt)("Clef_USERS")
							ListeMembers_Placeholder.Controls.Add(BlocMembers)
							'End If
 
							If cpt + 1 <= ThisDataview.Count - 1 Then
 
								'TopValidatedOrganization_USERS = ThisDataview(cpt + 1)("TopValidatedOrganization_USERS")
				 'If TopValidatedOrganization_USERS = 1 Then
				 Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx")
								BlocMembers2.Clef_USERS = ThisDataview(cpt + 1)("Clef_USERS")
								ListeMembers_Placeholder.Controls.Add(BlocMembers2)
								'End If
 
							End If
 
							If cpt + 2 <= ThisDataview.Count - 1 Then
 
								'TopValidatedOrganization_USERS = ThisDataview(cpt + 2)("TopValidatedOrganization_USERS")
								'If TopValidatedOrganization_USERS = 1 Then
								Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx")
								BlocMembers2.Clef_USERS = ThisDataview(cpt + 2)("Clef_USERS")
								ListeMembers_Placeholder.Controls.Add(BlocMembers2)
								'End If
 
							End If
 
							Dim Items2 As New Literal
							Items2.Text = "</div>"
							ListeMembers_Placeholder.Controls.Add(Items2)
							'	Else
 
						End If
 
					Next
 
 
					Count = ThisDataview.Count
 
					If Count < 2 Then
						CountMembers.Text = Count & " member found"
					Else
						CountMembers.Text = Count & " members found"
					End If
 
 
				End If
			End If
		End If
 
	End Sub
 
	Sub ListeUsersByProjects(ByVal Clef_PROJECTS As Int32)
		Dim _FilterCount As Integer = -1
 
		Dim MyTabSqlParam(-1) As SqlParameter
		Dim myUSERS As New USERS(MyErrorValidator)
 
		Dim myRequette As String = "SELECT Clef_USERS, FamilyName_USERS  FROM USERS INNER JOIN USERSxxPROJECTS ON USERS.Clef_USERS = USERSxxPROJECTS.Clefusers_USERSxxPROJECTS INNER JOIN PROJECTS ON USERSxxPROJECTS.Clefprojects_USERSxxPROJECTS = PROJECTS.Clef_PROJECTS where TopSuppression_PROJECTS = 0 and TopSuppression_USERS = 0 and TopSuppression_USERSxxPROJECTS = 0 and TopEnLigne_USERS = 1 and TopIsValided_PROJECTS = 1 and EmailNonValide_USERS is null and TopCompteValide_USERS = 1 and Clefprojects_USERSxxPROJECTS = @Clef_PROJECTS"
 
 
		_FilterCount = _FilterCount + 1
		Dim MySQLParameterClef_PROJECTS As New SqlParameter("@Clef_PROJECTS", SqlDbType.Int)
		MySQLParameterClef_PROJECTS.Value = Clef_PROJECTS
		ReDim Preserve MyTabSqlParam(_FilterCount)
		MyTabSqlParam(_FilterCount) = MySQLParameterClef_PROJECTS
 
		Dim Myds = myUSERS.List(myRequette, "FamilyName_USERS", MyTabSqlParam, False)
		If Myds Is Nothing Then
			MyErrorValidator.VALIDATORS_Controles_Error = "Nothing"
		Else
			If Myds.Tables.Count > 0 Then
				If Myds.Tables(0).Rows.Count > 0 Then
 
					Dim ThisDataview As DataView = Myds.Tables(0).DefaultView
 
					Dim Count As Double = 0
 
					Dim Titre As New Literal
					Titre.Text = "<b>List of members</b><br /><br />"
					ListeMembersByProjects_Placeholder.Controls.Add(Titre)
 
					For cpt As Int32 = 0 To ThisDataview.Count - 1 Step 3
 
						If cpt Mod 3 = 0 Then
							Dim Items As New Literal
							Items.Text = "<div class=""row"">"
							ListeMembersByProjects_Placeholder.Controls.Add(Items)
 
							Dim BlocMembers As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx")
							BlocMembers.Clef_USERS = ThisDataview(cpt)("Clef_USERS")
							ListeMembersByProjects_Placeholder.Controls.Add(BlocMembers)
 
							Count += 1
 
							If cpt + 1 <= ThisDataview.Count - 1 Then
								Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx")
								BlocMembers2.Clef_USERS = ThisDataview(cpt + 1)("Clef_USERS")
								ListeMembersByProjects_Placeholder.Controls.Add(BlocMembers2)
 
								Count += 1
							End If
 
							If cpt + 2 <= ThisDataview.Count - 1 Then
								Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx")
								BlocMembers2.Clef_USERS = ThisDataview(cpt + 2)("Clef_USERS")
								ListeMembersByProjects_Placeholder.Controls.Add(BlocMembers2)
 
								Count += 1
							End If
 
							Dim Items2 As New Literal
							Items2.Text = "</div>"
							ListeMembersByProjects_Placeholder.Controls.Add(Items2)
							'	Else
 
						End If
 
					Next
 
				End If
			End If
		End If
 
	End Sub
 
 
	Sub ListeMembersAttenteNotification(ByVal Clef_PROJECTS As Int32)
		Dim _FilterCount As Integer = -1
 
		Dim MyTabSqlParam(-1) As SqlParameter
		Dim myNOTIFICATIONS3 As New NOTIFICATIONS3(MyErrorValidator)
 
		Dim myRequette As String = "SELECT * FROM NOTIFICATIONS3 where ClefDatatableSource_NOTIFICATIONS3 = @ClefDatatableSource_NOTIFICATIONS3 and ClefLiaisonSource_NOTIFICATIONS3 = @ClefLiaisonSource_NOTIFICATIONS3 and ClefEtats_NOTIFICATIONS3 = @ClefEtats_NOTIFICATIONS3 AND ClefTypes_NOTIFICATIONS3 = @ClefTypes_NOTIFICATIONS3 and TopSuppression_NOTIFICATIONS3 = 0"
 
		ClefDatatableSource_NOTIFICATIONS3_IsHidden.Value = DATATABLES.GetClefByLibelle(MyErrorValidator, "PROJECTS")
		ClefLiaisonSource_NOTIFICATIONS3_IsHidden.Value = Clef_PROJECTS
 
		_FilterCount = _FilterCount + 1
		Dim MySQLParameter1 As New SqlParameter("@ClefDatatableSource_NOTIFICATIONS3", SqlDbType.Int)
		MySQLParameter1.Value = ClefDatatableSource_NOTIFICATIONS3_IsHidden.Value
		ReDim Preserve MyTabSqlParam(_FilterCount)
		MyTabSqlParam(_FilterCount) = MySQLParameter1
 
		_FilterCount = _FilterCount + 1
		Dim MySQLParameter4 As New SqlParameter("@ClefLiaisonSource_NOTIFICATIONS3", SqlDbType.Int)
		MySQLParameter4.Value = ClefLiaisonSource_NOTIFICATIONS3_IsHidden.Value
		ReDim Preserve MyTabSqlParam(_FilterCount)
		MyTabSqlParam(_FilterCount) = MySQLParameter4
 
		_FilterCount = _FilterCount + 1
		Dim MySQLParameter5 As New SqlParameter("@ClefEtats_NOTIFICATIONS3", SqlDbType.Int)
		MySQLParameter5.Value = NOTIFICATIONS_ETATS3.ListeEtat.NonLu
		ReDim Preserve MyTabSqlParam(_FilterCount)
		MyTabSqlParam(_FilterCount) = MySQLParameter5
 
		_FilterCount = _FilterCount + 1
		Dim MySQLParameter6 As New SqlParameter("@ClefTypes_NOTIFICATIONS3", SqlDbType.Int)
		MySQLParameter6.Value = NOTIFICATIONS_TYPES3.ListeType.InvitationsProjects
		ReDim Preserve MyTabSqlParam(_FilterCount)
		MyTabSqlParam(_FilterCount) = MySQLParameter6
 
 
 
		Dim Myds = myNOTIFICATIONS3.List(myRequette, "DateInsertion_NOTIFICATIONS3", MyTabSqlParam, False)
		If Myds Is Nothing Then
			MyErrorValidator.VALIDATORS_Controles_Error = "Nothing"
		Else
			If Myds.Tables.Count > 0 Then
				If Myds.Tables(0).Rows.Count > 0 Then
 
					Dim ThisDataview As DataView = Myds.Tables(0).DefaultView
 
					Dim Count As Double = 0
 
					Dim Titre As New Literal
					Titre.Text = "<b>List of pending invitations</b><br /><br />"
					ListeMembersAttenteNotification_Placeholder.Controls.Add(Titre)
 
					For cpt As Int32 = 0 To ThisDataview.Count - 1 Step 3
 
						If cpt Mod 3 = 0 Then
							Dim Items As New Literal
							Items.Text = "<div class=""row"">"
							ListeMembersAttenteNotification_Placeholder.Controls.Add(Items)
 
							Dim BlocMembers As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx")
							BlocMembers.Clef_USERS = ThisDataview(cpt)("ClefLiaisonCible_NOTIFICATIONS3")
							ListeMembersAttenteNotification_Placeholder.Controls.Add(BlocMembers)
 
							Count += 1
 
							If cpt + 1 <= ThisDataview.Count - 1 Then
								Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx")
								BlocMembers2.Clef_USERS = ThisDataview(cpt + 1)("ClefLiaisonCible_NOTIFICATIONS3")
								ListeMembersAttenteNotification_Placeholder.Controls.Add(BlocMembers2)
 
								Count += 1
							End If
 
							If cpt + 2 <= ThisDataview.Count - 1 Then
								Dim BlocMembers2 As Members_Private_WebControls_BlocMembers = LoadControl("~/Members/Private/WebControls/BlocMembers.ascx")
								BlocMembers2.Clef_USERS = ThisDataview(cpt + 2)("ClefLiaisonCible_NOTIFICATIONS3")
								ListeMembersAttenteNotification_Placeholder.Controls.Add(BlocMembers2)
 
								Count += 1
							End If
 
							Dim Items2 As New Literal
							Items2.Text = "</div>"
							ListeMembersAttenteNotification_Placeholder.Controls.Add(Items2)
							'	Else
 
						End If
 
					Next
 
					Dim Sep As New Literal
					Sep.Text = "<div class=""divider""></div>"
					ListeMembersAttenteNotification_Placeholder.Controls.Add(Sep)
 
				End If
			End If
		End If
 
	End Sub