<% file=server.mappath("counter.txt") Set files = CreateObject("Scripting.FileSystemObject") Set openfile = files.OpenTextFile(file) visitors=openfile.readline openfile.close countsize=len(visitors) for n=1 to countsize response.write "" next If IsEmpty(Session("visitors")) Then visitors=visitors+1 Set out=files.CreateTextFile(file) out.WriteLine(visitors) out.close End If Session("visitors") = True %>