<% 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 %>