<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% fp = Server.MapPath("aspcount.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close Response.Write ct %> <% Dim x, y, temp, serv, D, hits x = Trim(day(date())) D = Application( "serv" ) If D = x Then Application( "hits" ) = Application( "hits" ) + 1 Else Application( "hits" ) = 1 End If y = x temp = y Application( "serv" ) = temp %> There have been <%=Application( "hits" )%> hits to this page today!