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...



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
%>
mais Voila ce qui s affiche ds mon explorateur
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
Je pense que le probleme vien du type de donnee de mes variables (qui sont extraites en numeric de ma base de donnees)...

Merci d'avance

KéViN