Website Hits Counter

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