<%@ Language=VBScript %> <% if Session("Started")=" " then dim Hits set FS=Server.CreateObject("Scripting.FileSystemObject") Set TS=FS.OpenTextFile(Server.MapPath("counter.txt")) Hits=TS.Readline Hits=Hits+1 TS.Close Set TS=FS.OpenTextFile(Server.MapPath("counter.txt"),2) TS.WriteLine Hits TS.close set TS=nothing set FS=nothing Session("Started")=Hits end if %> <% =Session("Started")%>