<% Set objFS=Server.CreateObject("Scripting.FileSystemObject") Set objRF=objFS.OpenTextFile(Server.MapPath("counter.txt")) visitor_no=objRF.ReadLine objRF.Close Set objRF=Nothing If Session("visitor")="" Then visitor_no=visitor_no+1 Set objRF=objFS.OpenTextFile(Server.MapPath("counter.txt"), 2) objRF.WriteLine visitor_no objRF.Close Set objRF=Nothing Session("visitor")=visitor_no 'Response.Write visitor_no End If Set objFS=Nothing Response.Write "" Response.Write "ผู้เข้าชมตั้งแต่ 12/10/2553 จำนวน " Response.Write visitor_no Response.Write " ครั้ง" Response.Write "

" %>