ตัวอย่างนี้
<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile(Server.MapPath("/m/manpower3000/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("/m/manpower3000/counter.txt"), 2)
objRF.WriteLine visitor_no
objRF.Close
Set objRF=Nothing
Session("visitor")=visitor_no
End If
Set objFS=Nothing
%>
รันไม่ได้