Bonjour à tous,
voila j ai un petit souci avec un petit souci avec un pauvre bou de code...
je veux extarire deux champs de base "RACK("TF_SINGLE")" & "WEB("TF_SINGLE")" et effectuer un pourcentage avec ces deux valeurs...
mais Voila ce qui s affiche ds mon explorateur
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 <% Dim RACK Dim RACK_numRows Set RACK = Server.CreateObject("ADODB.Recordset") RACK.ActiveConnection = Conn WEB.Source = "Select * from dbo.table" RACK.CursorType = 0 RACK.CursorLocation = 2 RACK.LockType = 1 RACK.Open() RACK_numRows = 0 %> <% Dim WEB Dim WEB_numRows Set WEB = Server.CreateObject("ADODB.Recordset") WEB.ActiveConnection = Conn WEB.Source = "Select * from dbo.table" WEB.CursorType = 0 WEB.CursorLocation = 2 WEB.LockType = 1 WEB.Open() WEB_numRows = 0 %> <% Dim rack_tf rack_tf = RACK("TF_SINGLE") Dim web_tf web_tf = WEB("TF_SINGLE") Dim pourcent_temp pourcent_temp = 100 Dim pourcent pourcent = (web_tf * pourcent_temp) / rack_tf %>Je pense que le probleme vien du type de donnee de mes variables (qui sont extraites en numeric de ma base de donnees)...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Erreur d'exécution Microsoft VBScript error '800a000d' Type incompatible /fr/test_calcul.asp, line 55
Merci d'avance
KéViN
Partager