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
   | <%
Dim Scripting_Dictionary
Set Scripting_Dictionary = Server.CreateObject("Scripting.Dictionary")
Scripting_Dictionary.CompareMode = VBBinaryCompare
 
Scripting_Dictionary.Add "Pays", request("list0")
Scripting_Dictionary.Add "Departement", request("list1")
%>
<!-- #include file="xml_serveur.asp"-->
 
<script language="JavaScript">
	 // Mise à jour des listes via XMLHttpRequest
     function liste(form_select,query_1,t) {
        var liste_1 = form_select.elements["list"+(query_1-1)];
        var index = liste_1.selectedIndex;
 
        for(i=query_1;i<=t;i++) form_select.elements["list"+i].options.length = 0;
 
        	if(index > 0) {
            	var xhr_object = null;
            	if(window.XMLHttpRequest) // Firefox
              		xhr_object = new XMLHttpRequest();
            	else if(window.ActiveXObject) // Internet Explorer
					xhr_object = new ActiveXObject("Microsoft.XMLHTTP");
            	else { // XMLHttpRequest non supporté par le navigateur
              		alert("Votre navigateur ne supporte pas les objets XMLHTTPRequest...");
              		return;
        	}
 
           xhr_object.open("POST", "xml_serveur.asp?query_1="+query_1, true);
 
           xhr_object.onreadystatechange = function() {
           if(xhr_object.readyState == 4)
           		eval(xhr_object.responseText);
           }
 
           xhr_object.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
           var data = "champ="+escape(liste_1.options[index].value)+"&form="+form_select.name+"&select=list"+query_1;
           xhr_object.send(data);
         }
      }
 
      // Mise à jour du selectedIndex d'une liste
      function update(L) {
         array_liste = new Array;
         array_liste[0] = "<%=Scripting_Dictionary("Pays")%>";
         array_liste[1] = "<%=Scripting_Dictionary("Departement")%>";
         if(array_liste[L]=="") return;
         form_select = document.forms.form_selects;
         liste_update = form_select.elements["list"+L];
         for(i=0;i<liste_update.options.length;i++)
            if(liste_update.options[i].value==array_liste[L]) {
               liste_update.selectedIndex=i;
               if(L1) liste(form_select,L+1,1);
               break;
            }
      }
 
</SCRIPT>
 
 
<html>
<body>
        <form name="form_selects" id="form_selects" method="POST">
        	<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
				Pays:
        		<select class="select1" name="list0" onchange="liste(this.form,1,1);">
        			<option value="">Choisir Pays</option>
        			<%=liste_serveur_dpt%>
				</select>
 
				Departement:
				<select class="select2" name="list1">
					<option value="">Choisir Departement</option>
				</select>
        	</font>      
        </form>
 
</body>
</html> |