| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 
 |  
<%
sql = "SELECT DISTINCT ref, titre FROM product"
 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
rs.movefirst
 
Do While Not rs.EOF 
 
if rs("ref") <>"aucun" and rs("ref") <>"" Then
 
response.write("<option value='default.asp?etape1=4&ref="& rs("ref")&"'")
 
if Request("ref")=rs("ref") then
response.write(" Selected")
end if
response.write(">"& rs("ref") & " - " & rs("titre") & "</option>")
end if
 
rs.MoveNext
Loop 
 
'...................
 
%> | 
Partager