<% 'selectionne = request.form("ListeCat") %>
<select name='listeCat'>
<%
'sqlCat="SELECT * FROM Categorie"
'Set RsCat = Server.CreateObject("ADODB.Recordset")
'RsCat.Open sqlCat, ObjConnect
'Tant que l'on n'est pas à la fin du recodset, on affiche les éléments récupérés par la requête
'While Not RsCat.eof
%>
<!--- Insertion des éléments dans la liste déroulante-->
<OPTION VALUE="<%'= rsCat("id_Cat") %>">
<% 'if (rsCat("id_Cat") = "selectionne") then
'response.write " selected" %>
<%'= rsCat("nomCat") %></Option>
<%
'On passe à la ligne suivante
'RsCat.moveNext
'Wend
'On ferme et on vide le recodset
'RsCat.Close
'Set RsCat=Nothing
%>
</select>
<input type="hidden" name="ListeCat" value=<%=objRsetUser("ListCat").value%>>
Partager