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

%>