Voici mon code sachant que j'ai deux tables:
carrier_name(carrier_id, carrier_name, ...) et
stat(N, carrier_id, product, ...)
Bien merci d'avance !!!
<html>
<head>
<base target="milieu">
</head>
<script language="JavaScript">
Function Val_Recherche()
{
rechercheform.submit();
}
</script>
<%
Set conn = Server.CreateObject("ADODB.Connection")
connstring = 'chaine de connection ...
conn.Open connstring
Set Doc_conn = conn
Dim sql
Dim NoTheme, NoSousTheme
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
Dim rsTheme, rsSousTheme
Set rsTheme=Server.CreateObject ("ADODB.Recordset")
rsTheme.Open "carrier_name", Doc_conn, 1, 2 ,2
sql = "SELECT distinct [N°], product FROM stat"
sql = sql & " where carrier_id = " '& NoTheme
Set rsSousTheme = Doc_conn.Execute (sql)
%>
<body leftmargin="0" topmargin="0">
<form name="rechercheform">
<table border="0" width="528">
<tr>
<td valign="middle" height="22" width="59">Thème</td>
<td valign="top" height="22" width="191"><font face="Arial" size="1">
<Select size="1" name="Theme" OnChange="rechercheform.target='_self';rechercheform.action='Theme.asp';Val_Recherche();">
<Option selected value=""></Option>
<%
If Not (rsTheme.eof) Then
rsTheme.movefirst
Do While Not(rsTheme.eof)
If rsTheme.fields("carrier_id")= NoTheme then%>
<Option value="<%=rsTheme.fields("carrier_id")%>" selected><font face="Arial" size="1"><%=rsTheme.fields("carrier_name")%></font></Option>
<%else%>
<Option value="<%=rsTheme.fields("carrier_id")%>"><font face="Arial" size="1"><%=rsTheme.fields("carrier_name")%></font></Option>
<%end If
rsTheme.movenext
Loop
End If
rsTheme.close
Set rsTheme = Nothing
%>
</Select>
</font></td>
<td valign="middle" height="22" width="82">Sous-thème</td>
<td valign="top" height="22" width="178"><font face="Arial" size="1">
<Select size="1" name="SousTheme">
<Option selected value=""></Option>
<%
If Not (rsSousTheme.eof) Then
rsSousTheme.movefirst
Do While Not(rsSousTheme.eof)
if rsSousTheme.fields("N°")=NoSousTheme then%>
<Option value="<%=rsSousTheme.fields("N°")%>" selected><font face="Arial" size="1"><%=rsSousTheme.fields("product")%></font></Option>
<%else%>
<Option value="<%=rsSousTheme.fields("N°")%>"><font face="Arial" size="1"><%=rsSousTheme.fields("product")%></font></Option>
<%end If
rsSousTheme.movenext
Loop
End If
rsSousTheme.close
Set rsSousTheme = Nothing
%>
</Select>
</font></td>
</tr>
</table>
<%
Doc_conn.close
Set Doc_conn=Nothing
%>
</form>
</body>
</html>