cs_alexmel
Messages postés13Date d'inscriptionlundi 30 juin 2003StatutMembreDernière intervention13 novembre 2008
-
28 avril 2005 à 16:07
cs_alexmel
Messages postés13Date d'inscriptionlundi 30 juin 2003StatutMembreDernière intervention13 novembre 2008
-
2 mai 2005 à 09:03
Salut a tous,
Pour fair mon apprentissage, je veux utiliser la fonction onchange.
Et je ne comprend pas pourquoi mon onchange ne fonctionne pas. Avec le bouton de rafraichissement cela marche.
Voila le code si une ame charitable peut m'aider:
<%@ LANGUAGE="VBScript" %>
<%
'Buffer the response, so Response.Expires can be used
Response.Buffer = TRUE
%>
If (request("Theme")<>"") Then
NoTheme = CInt(request("Theme"))
Else
NoTheme = 0
End If
If (request("SousTheme")<>"") Then
NoSousTheme = CInt(request("SousTheme"))
Else
NoSousTheme = 0
End If
%>
<head>
<script language="JavaScript">
Function ValRecherche()
{
rechercheform.submit()
}
</script>
</head>
<%
Dim rstBat
Set rstBat = SQLQuery(cnnDB, "SELECT * From Emplacement WHERE Emplacement_id > 0 ORDER BY Emplacement ASC")
' Get list of Designation to display lié au champs emplacement
Dim rstDesignationListSet rstDesignationList SQLQuery(cnnDB, "SELECT * From Equipement WHERE Emplacement " & NoTheme)
<Option selected value=""></Option>
<%
If Not (rstBat.eof) Then
rstBat.movefirst
Do While Not(rstBat.eof)
If rstBat.fields("Emplacement_id")= NoTheme then%>
<Option value="<%=rstBat.fields("Emplacement_id")%>" selected><%=rstBat.fields("Emplacement")%></Option>
<%else%>
<Option value="<%=rstBat.fields("Emplacement_id")%>"><%=rstBat.fields("Emplacement")%></Option>
<%end If
rstBat.movenext
Loop
End If
rstBat.close
Set rstBat = Nothing
%>
</Select>
</td>
<Select size="1" name="SousTheme">
<Option selected value=""></Option>
<%
If Not (rstDesignationList.eof) Then
rstDesignationList.movefirst
Do While Not(rstDesignationList.eof)
If rstDesignationList.fields("Equipement_id")=NoSousTheme then%>
<Option value="<%=rstDesignationList.fields("Equipement_id")%>" selected><%=rstDesignationList.fields("Designation")%></Option>
<%else%>
<Option value="<%=rstDesignationList.fields("Equipement_id")%>"><%=rstDesignationList.fields("Designation")%></Option>
<%end If
rstDesignationList.movenext
Loop
End If
rstDesignationList.close
Set rstDesignationList = Nothing
%>
</Select>
</td>