% 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_brochure.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) %>
ผู้เข้าชม (ตั้งแต่ 15 พค.44) : <% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %>
ไปหน้าโปรแกรมการแข่งขัน
โบชัวร์งานวิ่งปี 2548
( Racing Brochure 2005)
งานวิ่งไหนที่โบชัวร์ออกแล้วงานนั้นค่อนข้าง "ชัวร์" (99%) ว่าจัดแน่ แต่กันการผิดพลาดใน 1% ควรโทรฯ สอบถามผู้จัดการแข่งขันโดยตรง
ขอนแก่นมาราธอนนานาชาติครั้งที่3วันที่22ม.ค.49 |
วันที่ |
รายการแข่งขัน |
สนามแข่งขัน |
22มกราคา2549 |
ขอนแก่นมาราธอนนานาชาติครั้งที่3 Click ภาพเส้นทางวิ่งและบรรยากาศแถลงข่าวขอนแก่นมาราธอน ชมไดโนเสาร์ที่ภูกุ้มข้าว |
|
Nov 27,2005 27พ.ย.48 |
กรุงเทพมาราธอนครั้งที่18 Bangkok Marathon#18 http://www.bkkmarathon.com/main.asp
Start 02.00 AM |
Last Update : อาทิตย์, 05. พฤศจิกายน 2549 11:57
= มีรูปเหรียญโชว์
*** ใครมีโบชัวร์งานไหนที่ต้องการให้ประชาสัมพันธ์ scan ส่งไปที่ thairunning@hotmail.com หรือ ส่งเป็นจดหมายไปที่
คุณรุจิรา บูรณตระกูล 10/391 ถ.นวมินทร์ แขวงคลองกุ่ม เขตบึงกุ่ม กท.10240
และถ้างานวิ่งไหนต้องการที่จะประชาสัมพันธ์ให้เด่นยิ่งขึ้น ควรจัดประชาสัมพันธ์ในรูปแบบการเล่นเกมส์ แจก บัตรวิ่ง ซึ่งเป็นที่ชื่นชอบของนักวิ่งมาก สนใจแจ้ง เบอร์โทรไปใน email เพื่อที่ผมจะติดต่อกลับไป
|