Discussion :

[Alice_B]

C'est parce qu'il n'y a pas de problème de fond.
Il faut juste reproduire le traitement des listes 1 et 2 avec les listes 2 et 3.

Donc bien comprendre le fonctionnement pour faire attention à tout.

Je l'ai surtout aidée pour des problèmes de syntaxe et d'objets mal référencés, mais il n'y a rien à savoir de plus que ce qu'il y a déjà dans ton code existant.

Courage

A+

Pourtant il me semble que j'ai repris le même système que dans le tuto donc s'il y a un problème de fond je le vois pas...

[Zeo34]

Salut,
Je l'ai fait pour 5 listes liées mais en ASP, si c'est sur une autre technologies, tu pourras assez facilement remplacer le code ASP par du code PHP par exemple ...

Fichier qui fait apparaître le formulaire XHTML

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
 
<%
' ###############################################################################################
' # Fichier Ajax permettant de générer la liste déroulante des agences en fonction des secteurs #
' ###############################################################################################
%>
<!--#include file="../config.inc.asp"-->
 
<%
' Récupération de la variable qui permet de traiter la demande Ajax/ASP/SQL
action = Request.QueryString("action")
 
If action="ajax1" Then
%>
<select name="dir" id="dir" onChange="go3()">
<option value='0'><%= data_pages("process_news_dir_to_choice") %></option>
<%
	' Récupération de la variable 
	idA0 = Request.Form("idA0")
	idA0 = Int(idA0)
	rechercher_a0 = "SELECT * FROM uo_synchro WHERE UO_SUP=" & CSql(idA0)
	obj_db_command.CommandText = rechercher_a0
	Set a0 = obj_db_command.Execute
	While not a0.EOF 
		response.write("<OPTION value=" & a0.Fields("UO") & ">" & a0.Fields("LIBELLE_COURT") & "</OPTION>")
	a0.MoveNext
	Wend ' fin de la boucle WHILE qui détermine les agences en fonction du secteur
	a0.Close
%></select><%
 
ElseIf action="ajax2" Then
%>
<select name="region" id="region" onChange="go4()">
<option value='0'><%= data_pages("process_news_section_to_choice") %></option>
<%
	' Récupération de la variable 
	idA1 = Request.Form("idA1")
	idA1 = Int(idA1)
	rechercher_a1 = "SELECT * FROM uo_synchro WHERE UO_SUP=" & CSql(idA1)
	obj_db_command.CommandText = rechercher_a1
	Set a1 = obj_db_command.Execute
	While not a1.EOF 
		response.write("<OPTION value=" & a1.Fields("UO") & ">" & a1.Fields("LIBELLE_COURT") & "</OPTION>")
	a1.MoveNext
	Wend ' fin de la boucle WHILE qui détermine les agences en fonction du secteur
	a1.Close
%></select><%
 
 
ElseIf action="ajax3" Then
%>
<select name="secteur" id="secteur" onChange="go5()">
<option value='0'><%= data_pages("process_news_dir_to_choice") %></option>
<%
	' Récupération de la variable 
	idA2 = Request.Form("idA2")
	idA2 = Int(idA2)
	rechercher_a2 = "SELECT * FROM uo_synchro WHERE UO_SUP=" & CSql(idA2)
	obj_db_command.CommandText = rechercher_a2
	Set a2 = obj_db_command.Execute
	While not a2.EOF 
		response.write("<OPTION value=" & a2.Fields("UO") & ">" & a2.Fields("LIBELLE_COURT") & "</OPTION>")
	a2.MoveNext
	Wend ' fin de la boucle WHILE qui détermine les agences en fonction du secteur
	a2.Close
 
ElseIf action="ajax4" Then
%>
<select name="agence" id="agence">
<option value='0'><%= data_pages("process_news_dir_to_choice") %></option>
<%
	' Récupération de la variable 
	idA3 = Request.Form("idA3")
	idA3 = Int(idA3)
	rechercher_a3 = "SELECT * FROM uo_synchro WHERE UO_SUP=" & CSql(idA3)
	obj_db_command.CommandText = rechercher_a3
	Set a3 = obj_db_command.Execute
	While not a3.EOF 
		response.write("<OPTION value=" & a3.Fields("UO") & ">" & a3.Fields("LIBELLE_COURT") & "</OPTION>")
	a3.MoveNext
	Wend ' fin de la boucle WHILE qui détermine les agences en fonction du secteur
	a3.Close
End If ' fin de la boucle IF qui permet de traiter la requête AJAX/ASP/SQL en fonction de l'entité qui demande
 
 
%>

Fichier JavaScript qui s'occupe de la communication entre les différentes listes liées, comme les scripts s'exécutent dans un intranet, je me suis servi des adresses IP ... A toi de changer au besoin ...

Fichier à insérer dans l'entête HTML par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<script language="javascript" src="ajax.js"></script>

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
 
/*
############################################################################
# Fichier qui permet de générer dynamiquement le contenu de balises SELECT #
############################################################################
 
Explication : lors de l'appel d'une des fonctions définies dans ce script
une demande est envoyée au fichier (passé en paramètre dans la variable
"fichier"), ce fichier traite la demande et la retourne sous forme d'un
flux HTML/XML qui est mis en page par la fonction JavaScript : voir ligne 47 
de la fonction go() par exemple !!
 
 
*/
//var adresseip = "0.0.0.0"; // IP PUBLIQUE
//var adresseip = "192.168.0.48"; // IP LOCALE
var adresseip = "192.168.0.28"; // IP LOCALE - Dév
 
/*
		/!\ ATTENTION /!\ : ce script fonctionne avec un autre fichier (includes/config/config.js)
		qui contient la valeur de la variable "adresseip"
*/
 
// Création d'un objet AJAX
	// Fonction compatible avec tous les navigateurs compatibles, enfin on essaye :)
function getXhr(){
	var xhr = null; 
	if(window.XMLHttpRequest) // Firefox et autres
		xhr = new XMLHttpRequest(); 
	else if(window.ActiveXObject){ // Internet Explorer 
		try {
			// Pour Internet Explorer 6
			xhr = new ActiveXObject("Msxml2.XMLHTTP");			
		} catch (e) {
		    xhr = new ActiveXObject("Microsoft.XMLHTTP");			
		}
	}
	else { // XMLHttpRequest non supporté par le navigateur 
		alert("Votre navigateur ne supporte pas les objets XMLHTTPRequest..."); 
		xhr = false; 
	} 
    return xhr;
}
 
 
/**
* Méthode qui sera appelée sur le click du bouton
*/
 
// Fonction qui permet de générer dynamiquement du contenu depuis un fichier passé en paramètre (voir variable fichier)
var fichier = "http://" + adresseip + "/didactrh2/includes/ajax/ajax_tableau_de_bord_select.asp";
 
function go(){
	var xhr = getXhr();
	// On définit ce qu'on va faire quand on aura la réponse
	xhr.onreadystatechange = function(){
	// On ne fait quelque chose que si on a tout reçu et que le serveur est ok
	if(xhr.readyState == 4 && xhr.status == 200){
		leselect = xhr.responseText;
		// On se sert de innerHTML pour rajouter les options a la liste
		document.getElementById('manager_agence').innerHTML = leselect;
		}
	}
 
	// Ici on va voir comment faire du post
	xhr.open("POST",fichier,true);
	// ne pas oublier ça pour le post
	xhr.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
	// ne pas oublier de poster les arguments
	sel = document.getElementById('secteur');
	idsecteur = sel.options[sel.selectedIndex].value;
	xhr.send("idSecteur="+idsecteur);
}
 
 
// Variante 2
var fichier2 = "http://192.168.0.28/didactrh2/includes/ajax/ajax_tableau_de_bord_select_recru.asp?action=ajax1"
 
function go2(){
				var xhr = getXhr();
				// On défini ce qu'on va faire quand on aura la réponse
				xhr.onreadystatechange = function(){
					// On ne fait quelque chose que si on a tout reçu et que le serveur est ok
					if(xhr.readyState == 4 && xhr.status == 200){
						leselect = xhr.responseText;
						// On se sert de innerHTML pour rajouter les options a la liste
						document.getElementById('div_dir').innerHTML = leselect;
					}
				}
 
				// Ici on va voir comment faire du post
				xhr.open("POST",fichier2,true);
				// ne pas oublier ça pour le post
				xhr.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
				// ne pas oublier de poster les arguments
				// ici, l'id de l'auteur
				sel = document.getElementById('direction');
				ida0 = sel.options[sel.selectedIndex].value;
				xhr.send("idA0="+ida0);
			}
 
// Variante 3
var fichier3 = "http://192.168.0.28/didactrh2/includes/ajax/ajax_tableau_de_bord_select_recru.asp?action=ajax2"
 
function go3(){
				var xhr = getXhr();
				// On défini ce qu'on va faire quand on aura la réponse
				xhr.onreadystatechange = function(){
					// On ne fait quelque chose que si on a tout reçu et que le serveur est ok
					if(xhr.readyState == 4 && xhr.status == 200){
						leselect = xhr.responseText;
						// On se sert de innerHTML pour rajouter les options a la liste
						document.getElementById('div_region').innerHTML = leselect;
					}
				}
 
				// Ici on va voir comment faire du post
				xhr.open("POST",fichier3,true);
				// ne pas oublier ça pour le post
				xhr.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
				// ne pas oublier de poster les arguments
				// ici, l'id de l'auteur
				sel = document.getElementById('dir');
				ida1 = sel.options[sel.selectedIndex].value;
				xhr.send("idA1="+ida1);
			}
 
// Variante 4
var fichier4 = "http://192.168.0.28/didactrh2/includes/ajax/ajax_tableau_de_bord_select_recru.asp?action=ajax3"
 
function go4(){
				var xhr = getXhr();
				// On défini ce qu'on va faire quand on aura la réponse
				xhr.onreadystatechange = function(){
					// On ne fait quelque chose que si on a tout reçu et que le serveur est ok
					if(xhr.readyState == 4 && xhr.status == 200){
						leselect = xhr.responseText;
						// On se sert de innerHTML pour rajouter les options a la liste
						document.getElementById('div_secteur').innerHTML = leselect;
					}
				}
 
				// Ici on va voir comment faire du post
				xhr.open("POST",fichier4,true);
				// ne pas oublier ça pour le post
				xhr.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
				// ne pas oublier de poster les arguments
				// ici, l'id de l'auteur
				sel = document.getElementById('region');
				ida2 = sel.options[sel.selectedIndex].value;
				xhr.send("idA2="+ida2);
			}	
 
// Variante 4
var fichier5 = "http://192.168.0.28/didactrh2/includes/ajax/ajax_tableau_de_bord_select_recru.asp?action=ajax4"
 
function go5(){
				var xhr = getXhr();
				// On défini ce qu'on va faire quand on aura la réponse
				xhr.onreadystatechange = function(){
					// On ne fait quelque chose que si on a tout reçu et que le serveur est ok
					if(xhr.readyState == 4 && xhr.status == 200){
						leselect = xhr.responseText;
						// On se sert de innerHTML pour rajouter les options a la liste
						document.getElementById('div_agence').innerHTML = leselect;
					}
				}
 
				// Ici on va voir comment faire du post
				xhr.open("POST",fichier5,true);
				// ne pas oublier ça pour le post
				xhr.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
				// ne pas oublier de poster les arguments
				// ici, l'id de l'auteur
				sel = document.getElementById('secteur');
				ida3 = sel.options[sel.selectedIndex].value;
				xhr.send("idA3="+ida3);
			}

[Zeo34]

Fichier qui s'occupe du traitement "ajax_tableau_de_bord_select_recru.asp"

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
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
 
<!--#include file="../includes/config.inc.asp"-->
<!--#include file="../includes/ident.inc.asp"-->
<!--#include file="../includes/style/header.menu.inc.asp"-->
<!--#include file="../includes/style/menu.inc.asp"-->
<!--#include file="../includes/secur.inc.asp" -->
 
<!--#include file="../includes/classes/calendrier.inc.asp"-->
<!--#include file="../includes/classes/processus.inc.asp"-->
<!--#include file="../includes/classes/point.inc.asp"-->
<!--#include file="../includes/classes/bloc.inc.asp"-->
<!--#include file="../includes/classes/element.inc.asp"-->
 
<!--#include file="../includes/config/lang.inc.asp"-->
<!--#include file="../includes/fonctions/utilisateurs.asp"-->
 
 
<%
' Récupération de la variable depuis le formulaire par "Request.Form"
agence = Request.Form("agence")
 
' On a besoin de simuler la présence du N+1 de l'agence pour consulter les "stages et essaus"
If not agence = "" Then
' A partir de la table "users_synchro", il faut récupérer le manager de l'agence pour consulter les "stages et essais"
	manager_n1 = findN1UO(agence)
End If
 
 
' Récupèrer le user_dn
user_dn = Session("user_distinguishName")
%>
<TABLE class="cadre" width="100%">
	<TR>
		<TD class="titre1" colspan="5"><%= data_pages("process_news_employees_title") %></TD>
	</TR>
</TABLE>
<FORM action="#" method="post">
<TABLE>
<TR><TD>
	<TABLE>
		<TR><TD>
		<%= data_pages("process_news_employees_case_select_choice_months") %> &nbsp; : <br />
		<select id="periode" name="periode">
			<option value="rien"><%= data_pages("process_news_employees_null_months") %></option>			
			<%
				chercher_dates_recrutement_nouveaux_embauches = "SELECT DISTINCT(dateFinPeriodeEssai) FROM users ORDER BY dateFinPeriodeEssai DESC"
				obj_db_command.CommandText = chercher_dates_recrutement_nouveaux_embauches
				Set dates_ne = obj_db_command.Execute
				While not dates_ne.EOF
					dates_recrutements = Split(dates_ne.Fields("dateFinPeriodeEssai"), "/")
					date_arrivee = DateAdd("d",jourAccueil, dates_recrutements(0)&"/"&dates_recrutements(1)&"/"&dates_recrutements(2))
					date_commencement = Split(date_arrivee,"/")
 
					response.write("<option value=" & dates_ne.Fields("dateFinPeriodeEssai") & ">" & affiche_mois(date_commencement(1)) & "&nbsp;" & date_commencement(2) & "</option>")
				dates_ne.MoveNext
				Wend ' fin de la boucle WHILE pour récupérer les dates des nouveaux embauches au niveau de leur recrutement
			%>	
		</select>
		</TD>
		<TD>
		<%= data_pages("process_news_employees_case_select_choice_types") %> &nbsp; : <br />
		<select id="entretien" name="entretien" >
				<option value="0"><%= data_pages("process_news_employees_null_interviews") %></option>
				<%
					chercher_types_entretiens = "SELECT point_code,title FROM point WHERE point_code LIKE '%titu_nouveaux_embauche%'"
					obj_db_command.CommandText = chercher_types_entretiens
					Set types_entretiens = obj_db_command.Execute
					te = 1
					While not types_entretiens.EOF
						response.write("<option value=" & te & ">" & types_entretiens.Fields("title") & "</option>")
						te = te + 1
					types_entretiens.MoveNext
					Wend ' fin de la boucle WHILE pour récupérer les types d'entretiens
				%>
			</select>
			</TD></TR></TABLE>
</TD></TR>
<TR><TD>	
	<TABLE>
	<TR>
		<TD>
		1 : <br />
		<select id="id_direction" name="direction" onChange="go2()">
				<option value="0"><%= data_pages("process_news_employees_null_direction_generale") %></option>
				<%
					rechercher_entite = "SELECT * FROM uo_synchro WHERE UO_SUP=0" ' Le code UO se trouvant au plus haut dans la pyramide hierarchique
					obj_db_command.CommandText = rechercher_entite
					Set entite = obj_db_command.Execute
					While not entite.EOF
						response.write("<OPTION value=" & entite.Fields("UO") & ">" & entite.Fields("LIBELLE_COURT") & "</OPTION>")
					entite.MoveNext
					Wend
					entite.close					
				%>
				</select>
		</TD><TD>
		2 : <br />
		<div id="div_dir"></div>
		</TD><TD>
		3 : <br />
		<div id="div_region"></div>
		</TD><TD>
		4 : <br />
		<div id="div_secteur"></div>
		</TD><TD>
		5 : <br />
		<div id="div_agence"></div>
		</TD></TR></TABLE>
</TD></TR>
</TABLE>
		<center><input type="submit"></center>
 
 
</FORM>
 
 
<div id="recepteur" style='display:inline'>
 
<%
' Récupération des 2 variables
periode = Request.Form("periode")
entretien = Request.Form("entretien")
 
' Récupérer le manager en fonction de l'agence sélectionnée
agence = Request.Form("agence")
 
' Récupère le code UO de la région pour afficher la direction
region = Request.Form("region")
 
If entretien = 1 Then
%>
	<TABLE class="cadre" width="100%"><TR><TD class="titre1" colspan="5"><%= data_pages("process_news_employees_array_welcome") %></TD></TR></TABLE>
<%
ElseIf entretien = 2 Then
%>
	<TABLE class="cadre" width="100%"><TR><TD class="titre1" colspan="5"><%= data_pages("process_news_employees_array_p2m") %></TD></TR></TABLE>
<%
ElseIf entretien = 3 Then
%>
	<TABLE class="cadre" width="100%"><TR><TD class="titre1" colspan="5"><%= data_pages("process_news_employees_array_p4m") %></TD></TR></TABLE>
<%
ElseIf entretien = 4 Then
%>
	<TABLE class="cadre" width="100%"><TR><TD class="titre1" colspan="5"><%= data_pages("process_news_employees_array_p6m") %></TD></TR></TABLE>
<%
End If
 
%>
<TABLE border="1" width="100%">
<%
' Pour l'entretien à l'accueil du collaborateur
If entretien = 1 Then
%>
<TR>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_matricule")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_nom")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_prenom")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_direction")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_etat")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_voir")%></center></TD>
</TR>
<%
' Pour l'entretien à 2 mois du collaborateur
ElseIf entretien = 2 Then
%>
<TR>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_matricule")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_nom")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_prenom")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_direction")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_etat")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_decision")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_alerte")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_voir")%></center></TD>
</TR>
<%
' Pour l'entretien à 4 mois du collaborateur
ElseIf entretien = 3 Then
%>
<TR>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_matricule")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_nom")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_prenom")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_direction")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_etat")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_decision")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_questionManager")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_alerte")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_alerte_mfs1")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_alerte_mfs2")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_voir")%></center></TD>
</TR>
<%
' Pour l'entretien à 6 mois du collaborateur
ElseIf entretien = 4 Then
%>
<TR>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_matricule")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_nom")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_prenom")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_direction")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_etat")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_decision")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_alerte")%></center></TD>
	<TD id="enteteTableau"><center><%=data_pages("process_news_employees_voir")%></center></TD>
</TR>
<%
End If
 
' Afficher le tableau de bord du manager N+1
If not periode = "rien" and not entretien = 0 Then
	' Les types d'entretien
	Select Case entretien
		Case 1 type_entretien = "titu_nouveaux_embauche_accueil"
		Case 2 type_entretien = "titu_nouveaux_embauche_p2m"
		Case 3 type_entretien = "titu_nouveaux_embauche_p4m"
		Case 4 type_entretien = "titu_nouveaux_embauche_p6m"
	End Select	
	' Rechercher stagiaires supervisés par ce manager (N+1)
	rechercher_stagiaires = "SELECT users.distinguishName,users.dateFinPeriodeEssai,users.employeeNumber,users.commonName,point_logs.user_dn,point_logs.hand FROM users,point_logs WHERE manager=" & CSql(manager_n1) & " AND users.distinguishName=point_logs.user_dn" & " AND point_logs.point_code=" & CSql(type_entretien)
	obj_db_command.CommandText = rechercher_stagiaires
	Set nouveaux_stagiaires = obj_db_command.Execute
	While not nouveaux_stagiaires.EOF		
		' Pour l'accueil
		If entretien = 1 Then			
			date_fin_stage = Split(nouveaux_stagiaires.Fields("dateFinPeriodeEssai"),"/")
			dateDebutAccueil = DateAdd("d", jourAccueil, date_fin_stage(0)&"/"&date_fin_stage(1)&"/"&date_fin_stage(2))
 
			date_periode = Split(periode,"/")
			datePeriode = DateAdd("d", jourAccueil, date_periode(0)&"/"&date_periode(1)&"/"&date_periode(2))
			mois_periode = Split(datePeriode,"/")
			moisPeriode = mois_periode(1)
 
			dateDebutAccueil = DateAdd("d",jourAccueil, date_fin_stage(0)&"/"&date_fin_stage(1)&"/"&date_fin_stage(2))
			mois_accueil = Split(dateDebutAccueil,"/")
			moisAccueil = mois_accueil(1)
 
			If moisAccueil = moisPeriode Then
				rechercher_point_accueil = "SELECT * FROM point_logs WHERE user_dn=" & CSql(nouveaux_stagiaires.Fields("distinguishName")) & " AND point_code=" & CSql(type_entretien)
				obj_db_command.CommandText = rechercher_point_accueil
				Set accueil_collaborateur = obj_db_command.Execute
				If not accueil_collaborateur.EOF Then
					response.write("<TR>")
						response.write("<TD><CENTER>" & nouveaux_stagiaires.Fields("employeeNumber") & "</CENTER></TD>")
						identite = Split(nouveaux_stagiaires.Fields("commonName")," ")
						response.write("<TD><CENTER>" & identite(0) & "</CENTER></TD>")
						response.write("<TD><CENTER>" & identite(1) & "</CENTER></TD>")
						rechercher_direction = "SELECT libDIR FROM users_synchro WHERE Nom=" & CSql(identite(0)) & " AND Prenom=" & CSql(identite(1))
						obj_db_command.CommandText = rechercher_direction
						Set agence = obj_db_command.Execute
							response.write("<TD><CENTER>" & agence.Fields("libDIR") & "</CENTER></TD>")
						' Savoir qui a la main actuellement sur le point demandé par le manager N+1
						If accueil_collaborateur.Fields("hand") = "n1" Then
							etat = data_pages("process_news_employees_niveau_da")
						ElseIf accueil_collaborateur.Fields("hand") = "n2" Then
							etat = data_pages("process_news_employees_niveau_ds")
						ElseIf accueil_collaborateur.Fields("hand") = "n3" Then
							etat = data_pages("process_news_employees_niveau_dr")
						ElseIf accueil_collaborateur.Fields("hand") = "n0" Then
							etat = data_pages("process_news_employees_niveau_co")
						ElseIf accueil_collaborateur.Fields("hand") = "end" Then
							etat = data_pages("process_news_employees_niveau_finish")
						Else
							etat = data_pages("process_news_employees_niveau_er")
						End If
						response.write("<TD><CENTER>" & etat & "</CENTER></TD>")
						new_user_dn = CUrl(nouveaux_stagiaires.Fields("distinguishName"))
						voir = config_app_path & "processus/point.asp?id=titu_nouveaux_embauche___titu_nouveaux_embauche_accueil___" & new_user_dn & "&user_dn=" & new_user_dn & "&profil=manager"
						voir = "<a href='" & voir & "'>" & data_pages("process_news_employees_acceder") & "</a>"
						response.write("<TD><CENTER>" & voir & "</CENTER></TD>")
					response.write("</TR>")
				End If ' fin de la boucle IF qui teste si la requête est correcte
			End If ' fin de la boucle IF qui teste les mois	
		' Pour le point à 2 mois
		ElseIf entretien = 2 Then
			date_fin_stage = Split(nouveaux_stagiaires.Fields("dateFinPeriodeEssai"),"/")
			dateDebutP2m = DateAdd("d", jourP2m, date_fin_stage(0)&"/"&date_fin_stage(1)&"/"&date_fin_stage(2))
 
			date_periode = Split(periode,"/")
			datePeriode = DateAdd("d", jourP2m, date_periode(0)&"/"&date_periode(1)&"/"&date_periode(2))
			mois_periode = Split(datePeriode,"/")
			moisPeriode = mois_periode(1)
 
			dateDebutP2m = DateAdd("d",jourP2m, date_fin_stage(0)&"/"&date_fin_stage(1)&"/"&date_fin_stage(2))
			mois_p2m = Split(dateDebutP2m,"/")
			moisP2m = mois_p2m(1)
 
			If moisP2m = moisPeriode Then
				rechercher_point_p2m = "SELECT * FROM point_logs WHERE user_dn=" & CSql(nouveaux_stagiaires.Fields("distinguishName")) & " AND point_code=" & CSql(type_entretien)
				obj_db_command.CommandText = rechercher_point_p2m
				Set p2m_collaborateur = obj_db_command.Execute
				If not p2m_collaborateur.EOF Then
					response.write("<TR>")
						response.write("<TD><CENTER>" & nouveaux_stagiaires.Fields("employeeNumber") & "</CENTER></TD>")
						identite = Split(nouveaux_stagiaires.Fields("commonName")," ")
						response.write("<TD><CENTER>" & identite(0) & "</CENTER></TD>")
						response.write("<TD><CENTER>" & identite(1) & "</CENTER></TD>")
						rechercher_direction = "SELECT libUO FROM users_synchro WHERE Nom=" & CSql(identite(0)) & " AND Prenom=" & CSql(identite(1))
						obj_db_command.CommandText = rechercher_direction
						Set agence = obj_db_command.Execute
						response.write("<TD><CENTER>" & findCenterRegion(region) & "</CENTER></TD>")
						' Savoir qui a la main actuellement sur le point demandé par le manager N+1
						If p2m_collaborateur.Fields("hand") = "n1" Then
							etat = data_pages("process_news_employees_niveau_da")
						ElseIf p2m_collaborateur.Fields("hand") = "n2" Then
							etat = data_pages("process_news_employees_niveau_ds")
						ElseIf p2m_collaborateur.Fields("hand") = "n3" Then
							etat = data_pages("process_news_employees_niveau_dr")
						ElseIf p2m_collaborateur.Fields("hand") = "n0" Then
							etat = data_pages("process_news_employees_niveau_co")
						ElseIf p2m_collaborateur.Fields("hand") = "end" Then
							etat = data_pages("process_news_employees_niveau_finish")
						Else
							etat = data_pages("process_news_employees_niveau_er")
						End If
						response.write("<TD><CENTER>" & etat & "</CENTER></TD>")
						rechercher_decision_finale = "SELECT nbr_value FROM element_logs_nbr WHERE user_dn=" & CSql(nouveaux_stagiaires.Fields("distinguishName")) & " AND element_code=" & CSql(radio_decision_n3_p2m)
						obj_db_command.CommandText = rechercher_decision_finale
						Set decisionFinale = obj_db_command.Execute
						If not decisionFinale.EOF Then
						If decisionFinale.Fields("nbr_value") = 0 Then
								decision = data_pages("process_news_employees_decision_n3_0")
							ElseIf decisionFinale.Fields("nbr_value") = 1 Then
								decision = data_pages("process_news_employees_decision_n3_1")
							ElseIf decisionFinale.Fields("nbr_value") = 2 Then
								decision = data_pages("process_news_employees_decision_n3_2")
							ElseIf decisionFinale.Fields("nbr_value") = 3 Then
								decision = data_pages("process_news_employees_decision_n3_3")
							Else
								' Rien à mettre ici
							End If
						Else
							decision = data_pages("process_news_employees_decision_n3_wait")
						End If ' fin de la boucle IF qui recherche la décision du N+3 à propos du stage du collaborateur
						response.write("<TD><CENTER>" & decision & "</CENTER></TD>")
						If isLaterN1(type_entretien,nouveaux_stagiaires.Fields("distinguishName")) = "enRetard" Then
							alerte = nouveaux_stagiaires.Fields("dateFinPeriodeEssai")
						Else
							alerte = data_pages("process_news_employees_attente_manager")
						End If ' fin de la boucle IF qui vérifie si le point est fait ou non
						response.write("<TD><CENTER>" & alerte & "</CENTER></TD>")
						new_user_dn = CUrl(nouveaux_stagiaires.Fields("distinguishName"))
						voir = config_app_path & "processus/point.asp?id=titu_nouveaux_embauche___titu_nouveaux_embauche_p2m___" & new_user_dn & "&user_dn=" & new_user_dn & "&profil=manager"
						voir = "<a href='" & voir & "'>" & data_pages("process_news_employees_acceder") & "</a>"
						response.write("<TD><CENTER>" & voir & "</CENTER></TD>")
					response.write("</TR>")
				End If ' fin de la boucle IF qui teste si la requête est correcte
			End If ' fin de la boucle IF qui teste les mois	
		' Pour le point à 4 mois
		ElseIf entretien = 3 Then
			date_fin_stage = Split(nouveaux_stagiaires.Fields("dateFinPeriodeEssai"),"/")
			dateDebutP4m = DateAdd("d", jourP4m, date_fin_stage(0)&"/"&date_fin_stage(1)&"/"&date_fin_stage(2))
 
			date_periode = Split(periode,"/")
			datePeriode = DateAdd("d", jourP4m, date_periode(0)&"/"&date_periode(1)&"/"&date_periode(2))
			mois_periode = Split(datePeriode,"/")
			moisPeriode = mois_periode(1)
 
			dateDebutP4m = DateAdd("d",jourP4m, date_fin_stage(0)&"/"&date_fin_stage(1)&"/"&date_fin_stage(2))
			mois_p4m = Split(dateDebutP4m,"/")
			moisP4m = mois_p4m(1)
 
			If moisP4m = moisPeriode Then
				rechercher_point_p4m = "SELECT * FROM point_logs WHERE user_dn=" & CSql(nouveaux_stagiaires.Fields("distinguishName")) & " AND point_code=" & CSql(type_entretien)
				obj_db_command.CommandText = rechercher_point_p4m
				Set p4m_collaborateur = obj_db_command.Execute
				If not p4m_collaborateur.EOF Then
					response.write("<TR>")
						response.write("<TD><CENTER>" & nouveaux_stagiaires.Fields("employeeNumber") & "</CENTER></TD>")
						identite = Split(nouveaux_stagiaires.Fields("commonName")," ")
						response.write("<TD><CENTER>" & identite(0) & "</CENTER></TD>")
						response.write("<TD><CENTER>" & identite(1) & "</CENTER></TD>")
						rechercher_direction = "SELECT libUO FROM users_synchro WHERE Nom=" & CSql(identite(0)) & " AND Prenom=" & CSql(identite(1))
						obj_db_command.CommandText = rechercher_direction
						Set agence = obj_db_command.Execute
						response.write("<TD><CENTER>" & findCenterRegion(region) & "</CENTER></TD>")
						' Savoir qui a la main actuellement sur le point demandé par le manager N+1
						If p4m_collaborateur.Fields("hand") = "n1" Then
							etat = data_pages("process_news_employees_niveau_da")
						ElseIf p4m_collaborateur.Fields("hand") = "n2" Then
							etat = data_pages("process_news_employees_niveau_ds")
						ElseIf p4m_collaborateur.Fields("hand") = "n3" Then
							etat = data_pages("process_news_employees_niveau_dr")
						ElseIf p4m_collaborateur.Fields("hand") = "n0" Then
							etat = data_pages("process_news_employees_niveau_co")
						ElseIf p4m_collaborateur.Fields("hand") = "end" Then
							etat = data_pages("process_news_employees_niveau_finish")
						Else
							etat = data_pages("process_news_employees_niveau_er")
						End If
						response.write("<TD><CENTER>" & etat & "</CENTER></TD>")
						rechercher_decision_finale = "SELECT nbr_value FROM element_logs_nbr WHERE user_dn=" & CSql(nouveaux_stagiaires.Fields("distinguishName")) & " AND element_code=" & CSql(radio_decision_n3_p4m)
						obj_db_command.CommandText = rechercher_decision_finale
						Set decisionFinale = obj_db_command.Execute
						If not decisionFinale.EOF Then
						If decisionFinale.Fields("nbr_value") = 0 Then
								decision = data_pages("process_news_employees_decision_n3_0")
							ElseIf decisionFinale.Fields("nbr_value") = 1 Then
								decision = data_pages("process_news_employees_decision_n3_1")
							ElseIf decisionFinale.Fields("nbr_value") = 2 Then
								decision = data_pages("process_news_employees_decision_n3_2")
							ElseIf decisionFinale.Fields("nbr_value") = 3 Then
								decision = data_pages("process_news_employees_decision_n3_3")
							Else
								' Rien à mettre ici
							End If
						Else
							decision = data_pages("process_news_employees_decision_n3_wait")
						End If ' fin de la boucle IF qui recherche la décision du N+3 à propos du stage du collaborateur
						response.write("<TD><CENTER>" & decision & "</CENTER></TD>")
						rechercher_question_manager = "SELECT nbr_value FROM element_logs_nbr WHERE user_dn=" & CSql(nouveaux_stagiaires.Fields("distinguishName")) & " AND element_code=" & CSql(radio_question_manager_p4m)
						obj_db_command.CommandText = rechercher_question_manager
						Set questionManager = obj_db_command.Execute
						If not questionManager.EOF Then
							If questionManager.Fields("nbr_value") = 0 Then
								response.write("<TD><CENTER>" & data_pages("process_news_employees_alerte_oui") & "</CENTER></TD>")
							ElseIf questionManager.Fields("nbr_value") = 1 Then
								response.write("<TD><CENTER>" & data_pages("process_news_employees_alerte_non") & "</CENTER></TD>")
							End If ' fin de la boucle IF qui affiche les choix du manager						
						Else
							response.write("<TD><CENTER>" & data_pages("process_news_employees_alerte_3points") & "</CENTER></TD>")
						End If ' fin de la boucle IF qui vérifie si la requête est correctement exécutée
						If isLaterN1(type_entretien,nouveaux_stagiaires.Fields("distinguishName")) = "enRetard" Then
							alerte = nouveaux_stagiaires.Fields("dateFinPeriodeEssai")
						Else
							alerte = data_pages("process_news_employees_attente_manager")
						End If ' fin de la boucle IF qui vérifie si le point est fait ou non
						response.write("<TD><CENTER>" & alerte & "</CENTER></TD>")
						response.write("<TD><CENTER>" & returnPast(nouveaux_stagiaires.Fields("dateFinPeriodeEssai"),jourP4m_mfs1) & "</CENTER></TD>")
						response.write("<TD><CENTER>" & returnPast(nouveaux_stagiaires.Fields("dateFinPeriodeEssai"),jourP4m_mfs2) & "</CENTER></TD>")
						new_user_dn = CUrl(nouveaux_stagiaires.Fields("distinguishName"))
						voir = config_app_path & "processus/point.asp?id=titu_nouveaux_embauche___titu_nouveaux_embauche_p4m___" & new_user_dn & "&user_dn=" & new_user_dn & "&profil=manager"
						voir = "<a href='" & voir & "'>" & data_pages("process_news_employees_acceder") & "</a>"
						response.write("<TD><CENTER>" & voir & "</CENTER></TD>")
					response.write("</TR>")
				End If ' fin de la boucle IF qui teste si la requête est correcte
			End If ' fin de la boucle IF qui teste les mois	
		' Pour le point à 6 mois
		ElseIf entretien = 4 Then
			date_fin_stage = Split(nouveaux_stagiaires.Fields("dateFinPeriodeEssai"),"/")
			dateDebutP6m = DateAdd("d", jourP6m, date_fin_stage(0)&"/"&date_fin_stage(1)&"/"&date_fin_stage(2))
 
			date_periode = Split(periode,"/")
			datePeriode = DateAdd("d", jourP6m, date_periode(0)&"/"&date_periode(1)&"/"&date_periode(2))
			mois_periode = Split(datePeriode,"/")
			moisPeriode = mois_periode(1)
 
			dateDebutP6m = DateAdd("d",jourP6m, date_fin_stage(0)&"/"&date_fin_stage(1)&"/"&date_fin_stage(2))
			mois_p6m = Split(dateDebutP6m,"/")
			moisP6m = mois_p6m(1)
 
			If moisP6m = moisPeriode Then
				rechercher_point_p6m = "SELECT * FROM point_logs WHERE user_dn=" & CSql(nouveaux_stagiaires.Fields("distinguishName")) & " AND point_code=" & CSql(type_entretien)
				obj_db_command.CommandText = rechercher_point_p6m
				Set p6m_collaborateur = obj_db_command.Execute
				If not p6m_collaborateur.EOF Then
					response.write("<TR>")
						response.write("<TD><CENTER>" & nouveaux_stagiaires.Fields("employeeNumber") & "</CENTER></TD>")
						identite = Split(nouveaux_stagiaires.Fields("commonName")," ")
						response.write("<TD><CENTER>" & identite(0) & "</CENTER></TD>")
						response.write("<TD><CENTER>" & identite(1) & "</CENTER></TD>")
						rechercher_direction = "SELECT libUO FROM users_synchro WHERE Nom=" & CSql(identite(0)) & " AND Prenom=" & CSql(identite(1))
						obj_db_command.CommandText = rechercher_direction
						Set agence = obj_db_command.Execute
						response.write("<TD><CENTER>" & findCenterRegion(region) & "</CENTER></TD>")
						' Savoir qui a la main actuellement sur le point demandé par le manager N+1
						If p6m_collaborateur.Fields("hand") = "n1" Then
							etat = data_pages("process_news_employees_niveau_da")
						ElseIf p6m_collaborateur.Fields("hand") = "n2" Then
							etat = data_pages("process_news_employees_niveau_ds")
						ElseIf p6m_collaborateur.Fields("hand") = "n3" Then
							etat = data_pages("process_news_employees_niveau_dr")
						ElseIf p6m_collaborateur.Fields("hand") = "n0" Then
							etat = data_pages("process_news_employees_niveau_co")
						ElseIf p6m_collaborateur.Fields("hand") = "end" Then
							etat = data_pages("process_news_employees_niveau_finish")
						Else
							etat = data_pages("process_news_employees_niveau_er")
						End If
						response.write("<TD><CENTER>" & etat & "</CENTER></TD>")
						rechercher_decision_finale = "SELECT nbr_value FROM element_logs_nbr WHERE user_dn=" & CSql(nouveaux_stagiaires.Fields("distinguishName")) & " AND element_code=" & CSql(radio_decision_n3_p2m)
						obj_db_command.CommandText = rechercher_decision_finale
						Set decisionFinale = obj_db_command.Execute
						If not decisionFinale.EOF Then
						If decisionFinale.Fields("nbr_value") = 0 Then
								decision = data_pages("process_news_employees_decision_n3_p6m-0")
							ElseIf decisionFinale.Fields("nbr_value") = 1 Then
								decision = data_pages("process_news_employees_decision_n3_p6m-1")
							Else
								' Rien à mettre ici
							End If
						Else
							decision = data_pages("process_news_employees_decision_n3_wait")
						End If ' fin de la boucle IF qui recherche la décision du N+3 à propos du stage du collaborateur
						response.write("<TD><CENTER>" & decision & "</CENTER></TD>")
						If isLaterN1(type_entretien,nouveaux_stagiaires.Fields("distinguishName")) = "enRetard" Then
							alerte = nouveaux_stagiaires.Fields("dateFinPeriodeEssai")
						Else
							alerte = data_pages("process_news_employees_attente_manager")
						End If ' fin de la boucle IF qui vérifie si le point est fait ou non
						response.write("<TD><CENTER>" & alerte & "</CENTER></TD>")
						new_user_dn = CUrl(nouveaux_stagiaires.Fields("distinguishName"))
						voir = config_app_path & "processus/point.asp?id=titu_nouveaux_embauche___titu_nouveaux_embauche_p6m___" & new_user_dn & "&user_dn=" & new_user_dn & "&profil=manager"
						voir = "<a href='" & voir & "'>" & data_pages("process_news_employees_acceder") & "</a>"
						response.write("<TD><CENTER>" & voir & "</CENTER></TD>")
					response.write("</TR>")
				End If ' fin de la boucle IF qui teste si la requête est correcte
			End If ' fin de la boucle IF qui teste les mois	
		End If ' fin de la boucle IF pour les différents points des collaborateurs
		'response.write("Date : " & periode & "<br />")
		'response.write("ID : " & nouveaux_stagiaires.Fields("commonName") & "<br />")
	nouveaux_stagiaires.MoveNext
	Wend
 
End If ' fin de la boucle IF qui gère le tableau de bord
%>
</TABLE>
<br />
<center><input type="button" onClick="window.print();" value="<%=data_button("print")%>"/></center>
<%
 
%>
</div>