Bonjour,

j'ai un petit problème qui me triture l'esprit depuis un moment.
J'exécute une requête que je parcours avec un recordset :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
SQLST="SELECT UserName ,MAX(dtmBeginDate) AS MaxDateConn, MAX(ProcessEnd) AS MaxDateProc" _
& " FROM MContactServer.dbo.T_CallsLog PTB INNER JOIN MContactServer.dbo.T_ProcessLog STB" _ 
& " ON PTB.strRemoteUserIdentifier = STB.UserIdentifier" _
& " WHERE ProcessName = 'MàJ Résultats'" _
& " AND ProcessOK = -1" _
& " AND MONTH(dtmBeginDate) = MONTH(getDate())" _
& " GROUP BY UserName ORDER BY UserName ASC"
 
'Ouverture de l'objet Recordset
Set RSST = server.createobject("ADODB.Recordset")
RSST.Open SQLST,Conn , 3, 3
jusqu'ici rien d'anormal...
Ensuite j'aimerais effectuer un test sur une valeur d'un champ de ma table, je voudrais afficher un voyant vert si la date MaxDateProc est égale à aujourd'hui. Ensuite un voyant orange si MaxDateProc vaut aujourd'hui - 1 (hier), enfin un voyant rouge si plus de un jour .

je me sert de SELECT CASE pour tester, mais cela ne fonctionne pas :

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
while not RSST.eof %>
<TABLE border="0"> 
  <TR align=center id="bestCA">
    <TD><fieldset id="best">
        <%select case RSST("MaxDateProc")
            case RSST("MaxDateProc") = Date()%>
                    Afficher voyant vert
           <%case RSST("MaxDateProc") <= (Date() -1) %>
                    Afficher voyant orange
           <%case RSST("MaxDateProc") <= (Date()-2) %>
                    Afficher voyant rouge           
           <%end select%>
         </fieldset>
      </td>
   <%RSST.MOVENEXT ' fiche suivante
wend %>
</table>
Si vous avez une petite idée, car je ne suis pas un cador de la programmation (comme vous pouvez le voir)

Merci d'avance