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 :
jusqu'ici rien d'anormal...
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
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 :
Si vous avez une petite idée, car je ne suis pas un cador de la programmation (comme vous pouvez le voir)
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>![]()
Merci d'avance
Partager