J'ai bien essayer mais je ne comprend pas je te joins mon code peux tu m'indiquer l'erreur stp merci.
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "SPGM"
'-------définition et exécution de la requête---------------
sql = "Select * FROM TCliPro, TClient where TCliPro.Id = TClient.IdClient and Id = 3"
set Resultat = server.CreateObject("adodb.recordset")
Resultat.open sql,conn
do while not Resultat.Eof
%>
<form method="post" name="ModifClient" action="Modif_client.asp">
<pre align="justify">N° Client : <input type="text" name="Id_Client" value="<%=Resultat("Id")%>" readonly="">
</pre>
<pre align="justify">Nom : <input type="text" name="Nom_Client" value="<%=Resultat("Nom")%>">
</pre>
<select size="1" ><%
Set con=Server.CreateObject("ADODB.Connection")
con.Open "SPGM"
Set res=Server.CreateObject("ADODB.recordset")
sql="select * from TType order by type asc"
res.open sql,con
do while not res.eof
%>
<option selected <%=resultat("Type1")%> ><%=res("Type")%></option><% res.movenext
loop%> </select> <%
res.close
set res = nothing
con.close
set con = nothing %>