<%
    'Enable buffering (This is false in PWS by default)
    response.buffer = true

    'Lock the application
    application.lock
    'Increment the pageviews
    application("PageViews") = application("PageViews") + 1
    'Similar to the one in global.asa, this If statement returns true at midnight
    if application("TodaysDate") <> Date() then
        'Reset the today's pageviews
        application("PageViewsToday") = 0
        application("VisitorsToday") = 0
    end if
    'Increment the today's pageviews
    application("PageViewsToday") = application("PageViewsToday") + 1
    'Update the stored date to later check for changes
    application("TodaysDate") = Date()
    application.unlock
    
    'Store the viewed pages using a stack method
    session("PageViewed2") = session("PageViewed1")
    session("PageViewed1") = session("PageViewed0")
    session("PageViewed0") = request.ServerVariables("script_name")


%>

Processing time: 0,64 seconds.

Visit 2eNetWorX for more OpenSource VB and ASP Projects.