function sur un tableau

**bibi2607** · 15/02/2005, 09h38

Voici mon probleme :
J'ai créée un tableau dont voici le 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
 
<table border="1">
  <tr>
    <td><div align="center" class="Style3"><a>numhisto</a></div></td>
    <td><div align="center" class="Style3"><a>nummach</a></div></td>
    <td><div align="center" class="Style3"><a>numserie</a></div></td>
    <td><div align="center" class="Style3"><a>nomNB</a></div></td>
    <td><div align="center" class="Style3"><a>NomAV</a></div></td>
    <td><div align="center" class="Style3"><a>dateSauv</a></div></td>
    <td><div align="center" class="Style3"><a>nboctet</a></div></td>
    <td><div align="center" class="Style3"><a>nomDD</a></div></td>
    <td><div align="center" class="Style3"><a>nomVersion</a></div></td>
    <td><div align="center" class="Style3"><a>dateMAJ</a></div></td>
  </tr>
  <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
  <tr>
    <% for i = 0 to 9%>
    <td><%response.Write(Recordset1.Fields.Item(i).Value)%></td>
    <%'=sup%>
    <%next%>
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
</table>

J'aimerais créer une fonction qui dans la colonne nboctet, me mettent en rouge les nombres supérieurs à 200.
Je fais appel a vous pour m'aider à réaliser cette fonction.
J'ai déjà fait plusieurs tentatives en vain.
Merci de votre aide

**Immobilis** · 15/02/2005, 09h48

Essaye simplement un truc comme ça dans ta boucle:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
<td>
<%
IF Recordset1.Fields.Item(i).Value > 200 THEN
	response.write ("<font color='#FF0000'>" & Recordset1.Fields.Item(i).Value & "</font>")
ELSE
	response.write (Recordset1.Fields.Item(i).Value)
END IF
%>
</td>

A+

**franculo_caoulene** · 15/02/2005, 10h01

Encadrer le code d'Immobilis par un

Code :

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

if i = 6 then

Vu l'emplacement de la colonne visée.

**bibi2607** · 16/02/2005, 10h31

Merci de votre aide met lorsque je rentre ce code voici l'érreur qu'il me renvoie :

Code :

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

1
2
3
4
 
Erreur d'exécution Microsoft VBScript erreur '800a000d' 
 
Type incompatible

**franculo_caoulene** · 16/02/2005, 11h01

Toujours donner la ligne incriminée par le message d'erreur... on est pas devin

**bibi2607** · 16/02/2005, 12h18

Pour moi t'es le dieu de l'asp

Vous etes peut etre pas devin, mais bien callé en asp!

l'érreur se trouve à la ligne 104

Code :

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

1
2
 
IF Recordset1.Fields.Item(i).Value > 200 THEN

**franculo_caoulene** · 16/02/2005, 12h31

Hum... 2 options :

Code :

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

IF CInt(Recordset1(i)) > 200 THEN

Code :

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

IF Recordset1(i) > "200" THEN

Mais ASP n'est pas très regardant sur les types sauf quand on a un null qui traîne. Je pense que ta valeur retournée est nulle en fait.

**bibi2607** · 16/02/2005, 16h43

Merci pour tout, enfin je peux te dire que sa marche.
Mais il me reste encore une erreur: quand je lance le naviguateur, dans la colonne nboctet j'ai deux chiffres les meme qui apparaissent dont un en rouge.
Comment faire pour ne garder que celui en rouge?

**franculo_caoulene** · 16/02/2005, 16h52

Laisse moi 5 minutes, j'égorge un poulet, je lis dans ses entrailles, je devine ton code et je te donne ta réponse ensuite

**bibi2607** · 17/02/2005, 09h54

Alors le poulet ca a donner quoi?
Excuse moi j'ai pas encore le reflexe de donner tout les éléments.
Voici mon code, n'ésite pas à le critiqué, je suis la pour apprendre

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%' ****************************************************************************
' Manipulation de la base de données
' 
' ****************************************************************************
 
 
' Déclarations des variables utilisées tout au long du script :
 
Dim Recordset1
Dim Recordset1_numRows
Dim MM_connexion_STRING
' chaine de connexion
MM_connexion_STRING = "Provider=SQLOLEDB;Server=srvatelier;Database=flofra;UID=sa;PWD=rpi"
' Connexion à la base :
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
'ouverture de la connexion
Recordset1.ActiveConnection = MM_connexion_STRING
'requete de selection de la table souhaitée
Recordset1.Source = "SELECT * FROM dbo.test"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
 
Recordset1_numRows = 0
%>
 
<%
Set Recordset1 = Server.CreateObject("ADODB.Recordset") 
Recordset1.ActiveConnection = MM_connexion_STRING 
Recordset1.CursorType = adOpenDynamic
Recordset1.open "select * from dbo.test"
Recordset1_numRows = 0
Dim Repeat1__numRows
Dim Repeat1__index
 
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
 
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Document sans titre</title>
<style type="text/css">
<!--
.Style2 {font-weight: bold; color: #660099; font-size: 24px;}
.Style3 {
	font-size: 24;
	font-weight: bold;
}
body {
	background-color: #EEFEE9;
}
.Style4 {color: #CC0000}
.Style5 {font-family: "Comic Sans MS";
	font-weight: bold;
}
a:link {
	color: #336666;
	text-decoration: underline;
}
a:visited {
	text-decoration: underline;
}
a:hover {
	text-decoration: none;
	color: #CC0000;
}
a:active {
	text-decoration: underline;
}
-->
</style>
</head>
<body> 
 
<p align="center" class="Style2">Page Web Dynamique Rapport</p>
<strong></strong>
<table border="1" align="center">
<tr>
    <td><div align="center" class="Style3"><a>numhisto</a></div></td>
    <td><div align="center" class="Style3"><a>nummach</a></div></td>
    <td><div align="center" class="Style3"><a>numserie</a></div></td>
    <td><div align="center" class="Style3"><a>nomNB</a></div></td>
    <td><div align="center" class="Style3"><a>NomAV</a></div></td>
    <td><div align="center" class="Style3"><a>dateSauv</a></div></td>
    <td><div align="center" class="Style3"><a>nboctet</a></div></td>
    <td><div align="center" class="Style3"><a>nomDD</a></div></td>
    <td><div align="center" class="Style3"><a>nomVersion</a></div></td>
    <td><div align="center" class="Style3"><a>dateMAJ</a></div></td>
</tr>
  <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
<tr>
    <% for i = 0 to 9%>
    <td>
	<div align="center">
    <%response.Write(Recordset1.Fields.Item(i).Value)%>
	</div>
	<%if i = 6 then
	IF CInt(Recordset1.fields.item(i).value) > 200 THEN   
   			response.write ("<font color='#FF0000'>" & Recordset1.Fields.Item(i).Value & "</font>") 
			ELSE 
   			response.write (Recordset1.Fields.Item(i).Value) 
	END IF 
	end if	%>
	</td>
    <%next%>
</tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
 
%>
  <p><a href="essaipourTRI.asp?ch=nummach&tr=<%=tri%>"></a></p>
</table>
<p align="left"><a href="essaipourTRI.asp" target="_top">Haut de page</a></p>
<p align="center"><span class="Style5"><a href="menu.asp" target="_parent">revenir au menu principal</a></span></p>
</body>
</html>
<%
' fermeture  et destruction de la connexion
Recordset1.Close()
Set Recordset1 = Nothing
%>

Au faite les cartes de tarot, c'est pas mal non plus.

function sur un tableau

ASP

Discussions similaires

Partager

Partager