Bonjour

Voilà le problème.

Je récupère une donnée dans une table. Je voudrais afficher un select où cette donnée apparaitrai en premier.

Seulement j'ai essayé différentes solutions mais aucune ne fonctionne.
ou je récupère toutes mes données ou je récupère n fois la même donnée.

Voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
37
38
39
 
<%	Dim data1
	data1=request.form("commande")
 
'Recupération des données'
 
Dim str
Dim cnBD
Dim rs
Dim Recup
Recup="SELECT * FROM Commande WHERE NumCommande='"&data1&"'"
 
str = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") &"\PR.mdb"
 
set cnBD =Server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.RecordSet")
 
cnBD.Open str
 
rs.open Recup, cnBD
 
%>
.....
<tr>
 <td><B><div align=center><SELECT name="diam">
   <%
   Dim rsdiam,sql
   set rsdiam = server.CreateObject("ADODB.RecordSet")
   sql = "SELECT DISTINCTROW diametre FROM SourceProduits GROUP BY diametre ORDER BY diametre"
   rsdiam.open sql, cnBD
      do while not rsdiam.eof
   %>
   <OPTION value="<% response.Write(trim(rs("diametre"))) %>"><% response.Write(rsdiam("diametre")) %></OPTION>
   <%
         rsdiam.movenext
      loop
        %>
 
  </SELECT></B></td>