<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile(Server.MapPath("db/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("db/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)%>
