Make your own free website on Tripod.com
ISLAM

HOME

6 KALMAY | HOW TO PRAY | DUA | HOLY QURAN | Names Of GOD | Status of Women in ISLAM | MEN IN ISLAM | What is Halal? | Arabic Recitation of Quran | QIBLA DIRECTION | NEWSPAPERS OF PAKISTAN | National ID Card for Overseas Pakistanis
Who is Online

Who is Online

Who is Online

<% on error resume next response.write "" response.write "" aSessions = dOnlineUsers.Keys for iUser = 0 to dOnlineUsers.Count - 1 sKey = aSessions(iUser) sUserInfo = dOnlineUsers.Item(sKey) aUserInfo = split(sUserInfo, "<|>") sUserName = aUserInfo(0) sLastActionTime = aUserInfo(1) sLastPageViewed = aUserInfo(2) if sUserInfo <> "" then iUsrCount = iUsrCount + 1 response.write "" response.write "" end if next response.write "
WhoWhenWhere
" & iUsrCount & ". " & sUserName & "" & sLastActionTime & "" & sLastPageViewed & "
" %>

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