<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(Dir) & "\hitcounter\hits_hotlink.txt" On Error Resume Next Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) %> Hot Link

ผู้เยี่ยมชมตั้งแต่วันที่ 31 ส.ค. 46 <% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %>

 

Hot Link

 

เว็บวิ่งในไทย

Jog & Joy SportsVision AmazingField
Street_Runners ไตรกีฬา  

 

เว็บวิ่งต่างประเทศ

Runner's World

Ultra Running Youth Runner
Running Network Running Past Running.com
Cool Running RunningTimesMagazine Web Race
Coaching Forum Do It Sports Running with dr.Sheehan
Hillrunner.com Suite 101 Running Team Oregon
Peak Running Performance Running Free Dr.J. on Running
Hal Higdon : On the Run On the Run.com Kick
Endure Plus roadrunnersports  
International Amateur Athletic Federation (IAAF)


 

เว็บรองเท้า

Adidas Nike Reebok
Brooks Asics Mizuno
D-Maq RunningShoes  

 

เว็บกีฬาอื่นๆ

ป้อมพระจุล

ThaiMTB

SiamSwim

     

 

เว็บสุขภาพ

สสส.

สมาคมเวชศาสตร์ฟื้นฟูแห่งประเทศไทย

สยามฟิตเนส