<%cadre=true%>

<% fp_sQry = "SELECT CodFil , LibFil FROM 1FILIERES order by LibFil" set fp_rs = Server.CreateObject("ADODB.RecordSet") fp_rs.Open fp_sQry, "DSN=statutnet" Do Until fp_rs.EOF CodFil = fp_rs("CodFil") LibFil = fp_rs("LibFil") %> <%=LibFil%> <% fp_rs.MoveNext Loop fp_rs.Close %> <% if cadre = true Then %> <% fil=request.form("s1") Sqlq="SELECT CodCadre , LibCadre FROM 2CADRES where CodFil='"&fil&"' order by LibCadre" set fp_rs = Server.CreateObject("ADODB.Recordset") fp_rs.Open Sqlq, "DSN=statutnet" Do Until fp_rs.EOF CodCadre = fp_rs("CodCadre") LibCadre = fp_rs("LibCadre") %> <%=LibCadre%> <% fp_rs.MoveNext Loop fp_rs.Close %> <% End If %>