<%
' Web Counter
Dim sPath, filesys, count, getValue, update, twohrs
sPath = Request.ServerVariables("Path_Translated")
sPath = Left(sPath,InStrRev(sPath,"\")) & "counter.txt"
Set filesys = CreateObject("Scripting.FileSystemObject")
Set getValue = filesys.OpenTextFile(sPath,1,0)
count = getValue.ReadLine ' Get the current value
'Response.write(count)
count = Int(count) + 1
getValue.Close
Set update = filesys.CreateTextFile(sPath)
update.WriteLine(count) ' Put new value in text file
update.Close
'Response.write(count)
%>
Sanjiu acupuncture 999 Chinese Medicine holistic clinic & doctor in Toronto Canada
