<%

function Decrypt(sText)
    'Replace with your own decrypt ;)
    Decrypt = sText
end function    


    application.lock
    application("PageViews") = application("PageViews") + 1
    if application("TodaysDate") <> Date() then
        application("PageViewsToday") = 0
        application("VisitorsToday") = 0
    end if
    application("PageViewsToday") = application("PageViewsToday") + 1
    application("TodaysDate") = Date()
    application.unlock
    
    if session("devUserName") = "" then
        session("devUserName") = Decrypt(request.cookies("devUserName"))
        session("devFullName") = Decrypt(request.cookies("devFullName"))
    end if

    session("PageViewed2") = session("PageViewed1")
    session("PageViewed1") = session("PageViewed0")
    session("PageViewed0") = request.ServerVariables("script_name")
    
    sUserInfo = dOnlineUsers.Item(Session.SessionID)
    aUserInfo = split(sUserInfo, "<|>")
    aUserInfo(1) = Time()
    aUserInfo(2) = request.ServerVariables("script_name")
    sUserInfo = aUserInfo(0) & "<|>" & aUserInfo(1) & "<|>" & aUserInfo(2)
    dOnlineUsers.Item(Session.SessionID) = sUserInfo
    
    
%>

Processing time: 0,64 seconds.

Visit 2eNetWorX for more OpenSource VB and ASP Projects.