<% 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_thairath_thairunning_june18_2006.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) %> ไทยรัฐ18มิถุนายน2549

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

 

นสพ.ไทยรัฐ คอลัมน์ เดลี่เวป

ฉบับวันที่ 16 มิ.ย.49แนะนำเวปไซต์ ไทยรันนิ่งดอทคอม
 



วิ่งเพื่อสุขภาพ
www.thairunning.com


วิ่ง เป็นวิธีออกกำลังกายที่ลงทุนน้อยแต่ได้ผลกำไรงาม คือมีร่างกายแข็งแรง จิตใจแจ่มใส และถ้าหากทำตามเคล็ดลับเกี่ยวกับการวิ่งให้สนุก เช่น ใส่เสน่ห์และความคิดสร้างสรรค์ลงไป ในโปรแกรมการวิ่งเพื่อความสนุกสนานเพลิดเพลิน อาทิ การหาที่วิ่งตามทางรถไฟเก่าๆ วิ่งเข้าป่าช้า ขึ้นเขา ลงห้วย ชายหาด และในทะเลหรือวิ่งลงบันไดออฟฟิศทำงาน วิ่งเล่นกับหมา ตีคู่ไปกับสาว ก็จะเป็นการเพิ่มสีสันให้กับชีวิตได้ไม่น้อย

คำแนะนำดังกล่าวมาจากบทความหนึ่งในหัวข้อ รู้ก่อนวิ่ง ของ thairunning.com ศูนย์รวมเทคนิคเคล็ดลับเพื่อการวิ่งให้สนุกและเป็นประโยชน์ต่อร่างกาย ที่มีการให้ความรู้ทั้งในเรื่อง อาหารกับนักวิ่ง อุปกรณ์การวิ่ง รวมถึง การบาดเจ็บจากการวิ่ง ฯลฯ นอกจากนี้ ยังติดตามวันเวลาลงสนามประลองฝีเท้าเพื่อพบปะกับเพื่อนนักวิ่งได้ใน ตารางวิ่ง...