<% Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile("D:\web\severtsoncattle\counter.txt") ct = cInt(a.ReadLine) if Session("ct") = "" then ct = ct + 1 Session("ct") = ct a.close Set a = fs.CreateTextFile("D:\web\severtsoncattle\counter.txt", True) a.WriteLine(ct) end if a.Close %>

You are visitor # <%=session("ct")%>