|
At Asbuilt
Solutions
we believe that combination of cutting edge technology along
with artistic and competent technical skills will result
in the best product at a minimum expense. To take an advantage
of our proficient expertise in Architectural and Structural
CAD drafting, closeout documentation redline transfer, high
definition 3D rendering, field verification services, general
drafting services and more, please feel free to look through
our web site. |
|
|
|
|
|
| <%
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Dim FixedDigitCount
Dim DigitCount
Dim DigitCountLength
Dim DigitZerosToAdd
Dim DigitZeroCount
Dim ShowDigits
Dim DigitPath
FixedDigitCount = 5
DigitPath = "digits/white_on_black"
On Error Resume Next
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
CounterFile="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
Response.Write "You are visitor: "&CounterHits
%> |
