jetzt: <% =application("activevisitors")%>4 Besucher online

Total <% CounterFile = "\usercounthotel.cnt" Set fs = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set a = fs.OpenTextFile(CounterFile, 1, 0, 0) usercnt = a.Readline set fs = Nothing usercnt = FormatNumber(usercnt + 1,0) Set fs = CreateObject("Scripting.FileSystemObject") set b = fs.CreateTextFile (CounterFile, 1, 0) b.WriteLine usercnt Set b = Nothing Response.Write usercnt %> Hits - <% 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 %> Heute <%=Application( "hits" )%> Besucher