1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
<Select id="Num" name="Num">
<%if (NumId = "All") then %>
<option selected="true" value="All" >Tous (N° )</option>
<%else%>
<option value="All" >Tous (N° )</option>
<%end if%>
<% Requete = ""
Requete = " SELECT Nom, Num"
Requete = Requete & " FROM PROJET"
Requete = Requete + " ORDER BY Num ASC"
cmdArea.CommandText = Requete
set ListeRecords = cmdArea.Execute
do while not ListeRecords.eof %>
<option value="<%=ListeRecords("Num")%>" <%if (NumId = ListeRecords("Num")) then%> selected="true"<%end if%>><% =ListeRecords("Num")%></OPTION>
<% ListeRecords.movenext
loop
set ListeRecords=nothing %>
</Select>
</TD>
</TR>
<TR>
<TD align=center colspan=3><br><INPUT TYPE=BUTTON Value="Supprimer" OnClick="javascript:supprimer();" id=BUTTON1 name=BUTTON1></a></TD>
</TR>
</TABLE>
<%
if Request.QueryString("action") = "supprimer" then
cmdArea.CommandText = "DELETE FROM PROJET WHERE num= '"&Num&"' "
cmdArea.Execute
end if%> |
Partager