<% 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)%> <%Next%>

.gif vspace=0 hspace=0>