<%
Dim x, y, temp, serv, D, cogul
x = Trim(day(date()))
D = Application( "serv" )
If D = x Then
Application( "cogul" ) = Application( "cogul" ) + 1
Else
Application( "cogul" ) = 1
End If
y = x
temp = y
Application( "serv" ) = temp
%>
Bugün ki hit sayısı: <%=Application( "cogul" )
%>