|
|
Vous êtes ici : Forums > Langage XML > Je ne sais pas ce qui ne veux pas marcher
Je ne sais pas ce qui ne veux pas marcher
<%SQL="SELECT * FROM Tb_Rubriques ORDER BY Nom_Rubrique ASC"
set RecRub = Server.CreateObject("ADODB.Recordset")
RecRub.ActiveConnection = MM_ConnQuidordine_STRING
set RecSousRub = Server.CreateObject("ADODB.Recordset")
RecSousRub.ActiveConnection = MM_ConnQuidordine_STRING
%>
<script language="JavaScript">
liste=new Array()
liste[0]=new Array("vide !","")
<%
while not RecRub.eof
SQL2 = "SELECT * FROM Tb_SousRubriques WHERE Rubrique= " & RecRub.Field.Item("Id_Rubrique").value & " ORDER BY Nom_Rubrique ASC"
RecSousRub.Open SQL2,Conn , 3, 3%>
liste[<%=RecRub.Field.Item("Id_Rubrique")%>]=new Array(<% while not RecSousRub.eof
response.write """" & RecSousRub.Field.Item("Rubrique") & ""","
RecSousRub.moveNext
wend
RecSousRub.close%>"")
<%
RecRub.moveNext
wend
%>
function changeliste() {
choix=document.Recherche.Id_Rubrique.value
t="<select name='Id_Sous_Rubrique'>"
for(i=0;i<liste[choix].length-1;i++)
t+="<option>"+liste[choix][i]+"</option>"
document.Recherche.Id_Sous_Rubrique.outerHTML=t+"</select>"
}
--></script>
<form name="Recherche">
<select name="Id_Rubrique" onchange=changeliste()>
<option value=0>Choisit une liste</option>
<%RecRub.moveFirst
while not RecRub.eof
%> <option value=<%=RecRub("Id_Rubrique")%>>Liste <%
response.write RecRub("Nom_Rubrique")%></option>
<%RecRub.moveNext
wend
RecRub.close
Conn.close%>
</select><select name="Id_Sous_Rubrique">
<option>vide !</option>
</select><br><br>
<input type="Submit" value="Envoyer">
</form>
Message posté le 10/04/2002
par Dadou
Répondre à ce message |
|
|
|
A RETENIR CETTE SEMAINE |
16/07/2008 -
Windows Server 2008 : Network Access Protection
Le nouveau système d’exploitation serveur de Microsoft, Windows Server 2008, apporte avec lui de nou ...
|
16/07/2008 -
Webcasts - Développement parallèle, à l'aube d'une nouvelle ère
Avec l'avénement des multi-coeurs, le développement parallèle devient une necéssité. Dans cette séri ...
|
16/07/2008 -
J'en ai rien à coder - Votre devoir de vacances sur Silverlight !
Qu'est-ce que Silverlight ? Une nouvelle technologie Web permettant d'exécuter des RIA sur un large ...
|
16/07/2008 -
Quelques petits tests sur les bases embarquées
Dans ce billet, Ayende réalise un benchmarking de plusieurs "petites" bases de données embarquées. S ...
|
15/07/2008 -
Présentation d'ASP.NET Dynamic Data
Dynamic Data est une nouvelle technologie inclue dans l' "Asp.net 3.5 Extension CTP ".
Elle fournit ...
|
15/07/2008 -
Silverlight 2 - Les webcasts de l'événement sont en ligne
L’objectif de cette journée était de comprendre les limitations de Silverlight 1, et d’appréhender l ...
|
15/07/2008 -
Cache transparent et Entity Framework
La gestion du cache (1er et second niveau) est une fonctionnalité très importante d'un outil de mapp ...
|
|
|
