<%
dim fsoobject 'file system object
dim tsoobject 'tsxt system object
dim filobject 'file object
dim lngvisitornumber 'hold visitor number
dim loopcounter
set fsoobject = server.createobject("scripting.filesystemobject")
'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("hitcounter.txt"))
'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)
'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1
'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hitcounter.txt"))
'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
'Display the hit count as text
'Response.Write(lngVisitorNumber)
'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
'Display the graphical hit count
Response.Write("")
Next
'
%>
itamal design Sdn Bhd(336584P)Unit B-3-4 Megan Phileo Avenue12 Jalan Yap Kwan Seng50450 Kuala Lumpur, MalaysiaTel:+60-3-27103660/1Fax:+60-3-27103662e-mail: info@itamaldesign.com
