<%
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_suvarnaphum_ok_pic2.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)
%>
ภาพชุดที่2_มหัศจรรย์วิ่งสุวรรณภูมิ
ผู้เยี่ยมชมตั้งแต่วันที่ 17 ก.ย.49<%
L=Len(NewHits)
i = 1
For i = i to L
num = Mid(NewHits,i,1)
Display = Display & "![]()
"
Next
Response.Write Display
%>
ภาพชุดที่2
เดิน-วิ่ง เฉลิมพระเกียรติ
"มหัศจรรย์สุวรรณภูมิ "
09.09.49
Suvarnaphumi Airport
[photogallery/photo00026962/real.htm]
คลิกชมภาพชุดที่1
รายละเอียดเกี่ยวกับสนามบินสุวรรณภูมิคลิกที่นี่
http://www.airportthai.co.th/
Suvarnabhumi Airport Call centet
02-132-1888
Help Desk
02-132-3888
Flights information
02-132-0000
