<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile(Server.MapPath("../../../counter/pagecount-aj.txt"))

visitor_no=objRF.ReadLine

objRF.Close
Set objRF=Nothing

   visitor_no=visitor_no+1
   Set objRF=objFS.OpenTextFile(Server.MapPath("../../../counter/pagecount-aj.txt"), 2)
   objRF.WriteLine visitor_no
   objRF.Close
   Set objRF=Nothing
   
Set objFS=Nothing
%>

<table width=200 height=30 border=0 cellpadding=0 background=../../../counter/border.gif cellpacing=0>
  <tr><td width=60></td>
<% For flag_counter=1 To 7-Len(visitor_no)%>
    <td bgcolor="#000000"><img src=../../../counter/0.gif vspace=0 hspace=0 width="16" height="21"></td>
<%Next%>

<% For flag_counter=1 To Len(visitor_no)%>
    <td bgcolor="#000000"><img src=../../../counter/<%=Mid(visitor_no,flag_counter,1)%>.gif vspace=0 hspace=0></td>
<%Next%>
</tr>
</table>