Bonjour,

Actuellement j'ai deux menus déroulant (domaine et pays) et je souhaiterai rajouter "tous les domaines" et "tous les pays" dans chaque menu.
Comment faire ?

Voici mon code

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
		<form name="RECHERCHE" method="get" action="/Essai/Annuaires/AL.asp">
	<table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" id="AutoNumber2">
	<tr>
	<td>
		<select name="Domaine">
		<option><%=Request("Domaine")%></option>
<%
	strRequete="SELECT * FROM Tbl_Domaine WHERE Domaine <> '" & Request("Domaine") & "' ORDER BY Domaine"
	Set RsDomaine=Server.CreateObject("ADODB.Recordset")
	RsDomaine.Open strRequete,Connexion					
	While Not RsDomaine.Eof
%>
		<option><%=rTrim(RsDomaine("Domaine"))%></option>
<%
	RsDomaine.Movenext
	Wend
	Set RsDomaine=Nothing	
%>
	</select>
	</td>
	<td>
		<select name="Pays">
		<option><%=Request("Pays")%></option>
<%
	strRequete="SELECT * FROM Tbl_PaysAnnuaires WHERE Pays <> '" & Request("Pays") & "' ORDER BY Pays"
	Set RsPays=Server.CreateObject("ADODB.Recordset")
	RsPays.Open strRequete,Connexion					
	While Not RsPays.Eof
%>
		<option><%=rTrim(RsPays("Pays"))%></option>
<%
	RsPays.Movenext
	Wend
	Set RsPays=Nothing	
%>
	</select>	
	</td>
	<td>
	<input type="submit" name="action" value="Chercher" style="border-style: solid; border-width: 1px; background-color: #B8A6B2">
	</td>
	</table>
</form>