Please note that digital images of artwork can not fully capture the true feel
of a painting and colours may differ dependant on your monitor settings.
<%
function showCounter()
' ---------------------------------------------------
' Declare variables
' ---------------------------------------------------
Dim FixedDigitCount
Dim DigitCount
Dim DigitCountLength
Dim DigitZerosToAdd
Dim DigitZeroCount
Dim ShowDigits
Dim DigitPath
FixedDigitCount = 5 ' Number of digits
' DigitPath = "digits/calibu" ' colour of digits
DigitPath = "digits/green_on_black" ' colour of digits
' --------------------------------------------------------------------
' Display the graphics
' --------------------------------------------------------------------
DigitCountLength = Len(Session("CounterHits"))
If DigitCountLength < FixedDigitCount Then
DigitZerosToAdd= FixedDigitCount - DigitCountLength
DigitZeroCount = 1
For DigitZeroCount = DigitZeroCount to DigitZerosToAdd
ShowDigits = ShowDigits & ""
Next
End If
DigitCount = 1
For DigitCount = DigitCount to DigitCountLength
ShowDigits = ShowDigits & ""
Next
response.write( ShowDigits )
end function
%>