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
|
<%
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