<%
' Graphical Hit Counter Example By www.PowerASP.com
' Declare variables
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Dim FixedDigitCount
Dim DigitCount
Dim DigitCountLength
Dim DigitZerosToAdd
Dim DigitZeroCount
Dim ShowDigits
Dim DigitPath
' (FixedDigitCount) will add zeros to the front of your count
' if the count is less then the (FixedDigitCount)
' just like "frontpage" counters let you do
FixedDigitCount = 5
DigitPath = "digits/blue_on_black"
On Error Resume Next
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
CounterFile = Server.MapPath ("counter.txt")
Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
ReadCounterFile.Close
Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1
Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
DigitCountLength = Len(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
%>
<% =ShowDigits %>
|
|
It's true! We can't think of a better way to earn your repeat business than to show you the fantastic customer service and outstanding product quality our other customers have come to expect from the staff here at Express Media Services, Inc.
|
|
|
 |
We are also an authorized Microboards Technology reseller, offering a full line of CD and DVD duplication/print equipment and consumables. Whether you need CD or DVD duplication and printing equipment for mass production or an automated system for hands free operation, Express Media Services has a solution to meet your company production goals.
|
|
|
|