Plus de deux listes déroulantes liées [Résolu]

[Mateache]

Salut à tous

Je souhaiterais faire 4 listes déroulantes liées sur une page mais pour le moment seul deux sont liées, les autres n'affiche aucun résultat.

Voici mon code :

Code :

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
 
<script> 
 
   var liste=new Array() 
   var liste2=new Array()
   var liste3=new Array()
 
   liste[0]="<OPTION VALUE='Selectionnez'>Sélectionnez</OPTION>"; 
   liste2[0]="<OPTION VALUE='Selectionnez'>Sélectionnez</OPTION>"; 
   liste3[0]="<OPTION VALUE='Selectionnez'>Sélectionnez</OPTION>"; 
 
<%
i=1
j=1
k=1
 
rsfamille.movefirst
 
while not rsfamille.eof 
 
   temp2="<select name='sfamille'>" 
   temp=""
 
   set rssoufamille=conn.execute("SELECT DISTINCT S_FAMILLE FROM _FAMILLES WHERE FAMILLE='" & rsfamille("FAMILLE") & "' ORDER BY S_FAMILLE")
 
   while not rssoufamille.eof 
 
   temp5="<select name='cat'>"
   temp4=""
 
   set rscat=conn.execute("SELECT DISTINCT CATEGORIE FROM _FAMILLES WHERE S_FAMILLE='" & rssoufamille("S_FAMILLE") & "' ORDER BY CATEGORIE")
 
   while not rscat.eof
 
   temp8="<select name='scat'>"
   temp7=""
 
   set rssoucat=conn.execute("SELECT DISTINCT S_CATEGORIE FROM _FAMILLES WHERE CATEGORIE='" & rscat("CATEGORIE") & "' ORDER BY S_CATEGORIE")
 
   while not rssoucat.eof
 
   temp7=temp7&"<OPTION VALUE=" & rssoucat("S_CATEGORIE") & ">" & rssoucat("S_CATEGORIE") & "</OPTION>"
 
   rssoucat.movenext
 
   Wend
 
   temp4=temp4&"<OPTION VALUE" & k & ">" & rscat("CATEGORIE") 
& "<OPTION>"
 
   temp9="</select>"%>
 
   liste3[<%=k%>]="<%=temp7%>";
<%
 
   k=k+1
 
   rscat.movenext
 
   wend
 
   temp=temp&"<OPTION VALUE="& j &">" & rssoufamille("S_FAMILLE") & "</OPTION>"
 
   temp6="</select>"%>
 
   liste2[<%=j%>]="<%=temp4%>";
 
<%
 
   j=j+1 
 
   rssoufamille.movenext 
 
   wend 
 
   temp3="</select>"%> 
 
   liste[<%=i%>]="<%=temp%>"; 
<%
 
i=i+1
 
rsfamille.movenext 
wend 
 
%>
 
 
   function changeliste1() { 
      choix=document.famille.famille.value; 
     document.famille.sfamille.outerHTML="<%=temp2%>"+liste[choix]+"<%=temp3%>"; 
   }
      function changeliste2() { 
      choix2=document.famille.sfamille.value; 
 
     document.famille.cat.outerHTML="<%=temp5%>"+liste2[choix2]+"<%=temp6%>"; 
   }
         function changeliste3() { 
      choix3=document.famille.cat.value; 
     document.famille.scat.outerHTML="<%=temp8%>"+liste3[choix3]+"<%=temp9%>"; 
   }    
 
</script>

Il n'y a aucune erreur javascript ni aucune erreur ASP mais les deux dernières liste ne marchent pas.

Si quelqu'un sait comment faire ...

Merci d'avances pour vos réponses

[DavidDeTroyes]

Tu cherche a faire une liste qui, une fois selectionnée, "remplisse" les autres listes ou c'est une cascade ?

Je n'ai pas regardé ton code precisement mais pourquoi ne pas faire ca comme ca :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<SELECT ONCHANGE="window.location = 'page.asp?choix=' + this.value">
<OPTION VALUE="choix1">Choix 1</OPTION>
<OPTION VALUE="choix2">Choix 2</OPTION>
<OPTION VALUE="choix3">Choix 3</OPTION>
</SELECT>
 
<SELECT>
<OPTION></OPTION>
<%
set table = server.createobject("ADODB.Recordset")
table.open "SELECT * FROM TABLE WHERE Choix = " & request.querystring("choix") & "'", BASE, 3, 3
if not table.EOF then
table.movefirst
do
response.write "<OPTION>" & table("Valeur") & "</OPTION>"
table.movenext
loop until table.EOF
end if
table.close
set table = nothing
%>
</SELECT>

[Mateache]

Merci Beaucoup ca marche