Visitor No.

<% FilePath = Server.MapPath("counter/visitors4.txt") Set ObjFile = CreateObject("Scripting.FileSystemObject") Set ObjStream = ObjFile.OpenTextFile (FilePath, 1) temp = ObjStream.ReadLine+1 ObjStream.Close Set ObjStream = ObjFile.OpenTextFile (FilePath, 2) ObjStream.WriteLine(temp) ObjStream.Close %> <%bit=temp\10000%> <%bit=(temp mod 10000)\1000%> <%bit=(temp mod 1000)\100%> <%bit=(temp mod 100)\10%> <%bit=temp mod 10%>