<% ' 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

 

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
Chinese English

Treatment
All Kinds of Internal Disorders
Pain Management
Cancer/Critical Illness Support
Female & Children Wellness
Fertility Disorders
Healthy Aging
Immunity Boosting
Allergies
Weight Management
Stress & Miscellaneous Disorders

 
We have moved to a new location ( Intersection of Esna Park and Denison )


 

S
You are the
Visitors