Problèmes Test sur des dates
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:
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:
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
