<%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 %>