Discussion :

[avantoux]

Voila, j'aimerai executer une condition sur un affichage. J'ai une page asp qui va interroger une base de donnée.

Je veux que si un serveur a une erreur il affiche l'icone erreur et s'il a un warning il affiche l'icone warning. Si il a une erreur et un warning il affiche les 2 icones.

Or soit il m'affiche l'un soit l'autre. Je pense qu'il ne doit pas parcourir la colone champ type en entier.
Alors j'ai essayé avec une boucle avant le IF. Mais l'affichage est aussi dans la boucle et il m'affiche un icone pour chaque enregistrement.

Mon probleme estplus un probleme d'algorythme pure.

Voila mon 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
 
 
<%If ConsultRecordset("Type Os")="Server" Then	
 
	' Opening of the table : Query_Server_Log
	Set LogRecordset = Server.CreateObject("ADODB.Recordset")
 
	SQL = "SELECT * FROM Query_Server_Log WHERE ([Server]='" & ConsultRecordset("Name Station") & "' AND [View] IS NULL)"
	LogRecordset.Open SQL,  LogConnect, 3
		If LogRecordset.Recordcount>0 Then
 
			IF LogRecordset("Type")= "Error" then
 
%>
 
	- <img src="../../image/logo/l098.gif" alt="Error">
 
<%			
 
			Else
			If LogRecordset("Type")= "Warning" then
 
%>
	  - <img src="../../image/logo/l097.gif" alt="Warning">
<%
 
			End If
 
			End If
		End If
 
	End If
%>

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
 
 
<%If ConsultRecordset("Type Os")="Server" Then	
 
	' Opening of the table : Query_Server_Log
	Set LogRecordset = Server.CreateObject("ADODB.Recordset")
 
	SQL = "SELECT * FROM Query_Server_Log WHERE ([Server]='" & ConsultRecordset("Name Station") & "' AND [View] IS NULL)"
	LogRecordset.Open SQL,  LogConnect, 3
		If LogRecordset.Recordcount>0 Then
Do While not LogRecordset.eof
 
			IF LogRecordset("Type")= "Error" then
 
%>
 
	- <img src="../../image/logo/l098.gif" alt="Error">
 
<%			
 
			Else
			If LogRecordset("Type")= "Warning" then
 
%>
	  - <img src="../../image/logo/l097.gif" alt="Warning">
<%
 
			End If
		LogRecordset.MoveNext
Loop
 
			End If
		End If
 
	End If
%>

[sergio88]

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
 
<%
IF ConsultRecordset("Type Os")="Server" THEN    
	' Opening of the table : Query_Server_Log 
	Set LogRecordset = Server.CreateObject("ADODB.Recordset") 
  	SQL = "SELECT * FROM Query_Server_Log WHERE ([Server]='" & ConsultRecordset("Name Station") & "' AND [View] IS NULL)" 
	LogRecordset.Open SQL, LogConnect, 3 
	IF LogRecordset.Recordcount > 0 THEN
		' Test Error
		IF LogRecordset("Type")= "Error" then
			Response.Write "- <img src='../../image/logo/l098.gif' alt='Error'>"
		END IF
		' Test Warning
		IF LogRecordset("Type")= "Warning" THEN
			Response.Write "- <img src='../../image/logo/l097.gif' alt='Warning'>"
		END IF
	END IF
END IF
%>

A adapter éventuellement pour ton cas avec boucle while en fonction de ce que tu veux faire.

@+

[tomy4ever]

a paremment t'as un champ qui contient soit warning soit error; donc si j'ai bien compris la problématique le seul problème qui te reste à résoudre c'est le cas où il y aurait et un warning et une erreur? si c'est le cas, qu'est ce qui se trouve dans ton champ "type" quand ya les 2? ou alors ya 2 enregistrements?

[avantoux]

il y'a plusieur enregistrement par serveurs

EN faite je veux que si pour un serveur il y'a une erreur ca affiche l'icone erreur, si un warning un warning et si y'a les 2 cad un enregistrement erreur et un enregistrement warning distinc, 2 icones

Merci

[pc75]

Bonjour,

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
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
<%If ConsultRecordset("Type Os")="Server" Then    
 
   ' Opening of the table : Query_Server_Log 
   Set LogRecordset = Server.CreateObject("ADODB.Recordset") 
 
   SQL = "SELECT * FROM Query_Server_Log WHERE ([Server]='" & ConsultRecordset("Name Station") & "' AND [View] IS NULL)" 
   LogRecordset.Open SQL,  LogConnect, 3 
    If LogRecordset.Recordcount>0 Then 
			Erreur = False
			Warning = False
			Do While not LogRecordset.eof 
			    IF LogRecordset("Type")= "Error" then 
					Erreur = True
				end if
			    IF LogRecordset("Type")= "Warning" then 
					Warning = True
				end if
			    LogRecordset.MoveNext 
			Loop 
 
			if Erreur = True then
			%> 
			   - <img src="../../image/logo/l098.gif" alt="Error"> 
			<%          
			end if
 
			if Warning = True then
			%> 
			     - <img src="../../image/logo/l097.gif" alt="Warning"> 
			<% 
			End If 
	End If 
End If 
%>

[avantoux]

ah oui c'est ca. C'etait tout con j'y avais pas pensé merci beaucoup