Discussion :

[guigui11]

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

[sergio88]

Une idée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim iDelai
iDelai = datediff("d", date(), RSST("MaxDateProc"))
 
SELECT CASE iDelai
    CASE 0
          ' Afficher voyant vert
    CASE -1
         ' Afficher voyant orange
    CASE ELSE
         ' Afficher voyant rouge
END SELECT

@+