Bonjour,
Je voudrais faire apparaitre un menu deroulant en fonction du choix d'un autre menu deroulant. C-a-d, j'ai une base de donnees d'ou je tire des informations (ville, arrondissement, ...) via des requetes. J'obtiens la liste des villes de cette base que j'affiche dans le premier menu deroulant. En fonction du choix d'un utilisateur je voudrais faire apparaitre le menu deroulant concernant l'arrondissement. Par ex, si dans mon 1er menu je choisi Paris je desire faire apparaitre le menu arrondissement avec la liste des arrondissements de paris. Cependant je voudrais aussi que cette liste vienne de la base car je ne veux pas forcement tout les arrondissements.
source actuel :
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "base"
sqlville = "select ville from archive group by ville"
set RSville = Conn.Execute(sqlville)
RSville.movefirst
sqlarr = "select arrondissement from archive where ville = '" &Request.Form("ListeVil") &"' group by arrondissement"
set RSarr = Conn.Execute(sqlarr)
RSarr.movefirst
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</head>
<body bgcolor="#FFFFFF">
<p><%'=sqlville%></p>
<p><%'=sqlarrondissement%></p>
<form ACTION="recherche.asp" METHOD="post" id="form1" name="form1">
<table border="0" cellspacing="0" align="center">
<tr><td>
<table border="0" cellspacing="5" align="center" cellpadding="0">
<tr>
<td height="40"><div height="19" align="left" style="width: 82; height: 19"><font face="Arial" color="black" size="2"><strong>Ville </div>
</strong></font>
</td>
<td height="40">
<select name="ListeVil">
<option selected value="*">Sélectionnez ... <% while not RSville.eof %>
<option value="<%=RSville("ville")%>"><%=RSville("ville")%> <%
RSville.movenext
wend
RSville.close
%>
</select>
</td>
<td height="40"><div height="19" align="left" style="width: 82; height: 19"><font face="Arial" color="black" size="2"><strong>Arrondissement </div>
</strong></font>
</td>
<td height="40">
<select name="ListeArr">
<option selected value="*">Sélectionnez ... <% while not RSarr.eof %>
<option value="<%=RSarr("arrondissement")%>"><%=RSarr("arrondissement")%> <%
RSarr.movenext
wend
RSarr.close
%>
</select>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
Merci d'avance
Warrax