Cita:
Iniciado por Al Zuwaga Ah, porque estás asignando a los dos arrays (arrValores(5) y arrValores2(5)) el mismo valor:
arrValores(0) = rs("ProM2Lun")
arrValores2(0) = rs("ProM2Lun")
(y así para todos los elementes de ambos arrays)
Modificá eso y listo
Saludos
Esta igual Amigo !!!...
!
Quedo asi :
Cita: <%
AltoMAX_Graf2 = 100 'en px
Dim arrValores2(5)
arrValores(0) = rs("ProM2Lun")
arrValores2(0) = rs("ProM2Lun")
arrValores2(1) = rs("ProM2Mar")
arrValores2(2) = rs("ProM2Mie")
arrValores2(3) = rs("ProM2Jue")
arrValores2(4) = rs("ProM2Vie")
arrValores2(5) = rs("ProM2Sab")
For Idaz2 = 0 To Ubound(arrValores2)
If arrValores2(Idaz2) > valorMax2 Then valorMax2 = arrValores2(Idaz2)
Next
AltoBarraLun2 = Int((arrValores2(0)/valorMax2)* AltoMAX_Graf2)
AltoBarraMar2 = Int((arrValores2(1)/valorMax2)* AltoMAX_Graf2)
AltoBarraMie2 = Int((arrValores2(2)/valorMax2)* AltoMAX_Graf2)
AltoBarraJue2 = Int((arrValores2(3)/valorMax2)* AltoMAX_Graf2)
AltoBarraVie2 = Int((arrValores2(4)/valorMax2)* AltoMAX_Graf2)
AltoBarraSab2 = Int((arrValores2(5)/valorMax2)* AltoMAX_Graf2)
%>
Y me lo sigue mostrando igual !!!
