% 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 End If Set objFS=Nothing %>
| <% For flag_counter=1 To 6-Len(visitor_no)%> | ![]() |
<%Next%>
<% For flag_counter=1 To Len(visitor_no)%>