0

100%

MaxVal then

Dim temp_val

temp_val = MinVal

MinVal = MaxVal

MaxVal = temp_val

end if

if CurVal MaxVal then

CurVal = MaxVal

end if

' Figure out the percentage that the CurVal is

' within MinVal and MaxVal.

Dim percentage_val

percentage_val = (CurVal - MinVal) / (MaxVal - MinVal)

' Compute the first and second widths.

Dim fg_width

fg_width = Round(Width * percentage_val)

Dim bg_width

bg_width = Width - fg_width

RenderHTML = "

Width & " height=" & Height & ">" _

& ""

if fg_width > 0 then

RenderHTML = RenderHTML _

& "

"1_pix_trans.gif>"

end if

if bg_width > 0 then

RenderHTML = RenderHTML _

& "

"1_pix_trans.gif>"

end if

RenderHTML = RenderHTML _

& "" _

& "

"

end function

end class

%>