% ' 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) %>
|
||||
Welcome to Canada 39 Medical Center,
Traditional Chinese Medicine, Acupuncture & Herbs (2021)
|
||||
C | ||||
Our
Services
Traditional Chinese Medicine Acupuncture Acupressure Herbal Medicine Food Therapy Tai Chi Exercise Therapeutic Massage |
![]() |
Treatment |
||
We have moved to a new location
( Intersection of Esna Park and Denison )
|
||||
You
are the
|
Visitors |