% ' 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) %>
|
You
are the
|
Visitors |
Chinese medicine acupuncture clinic and doctor
in toronto Canada Chinese medicine acupuncture clinic and doctor in toronto
Canada Chinese medicine acupuncture clinic and doctor in toronto Canada Chinese
medicine acupuncture clinic and doctor in toronto Canada Chinese medicine acupuncture
clinic and doctor in toronto
Chinese medicine acupuncture clinic and doctor in toronto Canada Chinese medicine
acupuncture clinic and doctor in toronto Canada Chinese medicine acupuncture
clinic and doctor in toronto Canada Chinese medicine acupuncture clinic and
doctor in toronto Canada Chinese medicine acupuncture clinic and doctor in toronto
Chinese medicine acupuncture clinic and doctor in toronto CanadaChinese medicine
acupuncture clinic and doctor in toronto Canada Chinese medicine acupuncture
clinic and doctor in toronto Canada Chinese medicine acupuncture clinic and
doctor in toronto Canada Chinese medicine acupuncture clinic and doctor in toronto
Chinese medicine acupuncture clinic and doctor in toronto Canada Chinese medicine acupuncture clinic and doctor in toronto Canada Chinese medicine acupuncture clinic and doctor in toronto Canada Chinese medicine acupuncture clinic and doctor in toronto Canada Chinese medicine acupuncture clinic and doctor in toronto