<% Dim uStatDateArray(100), uStatCountArray(100), aStatDateArray(100), aStatCountArray(100) If Len(Request("u")) > 0 and isNumeric(Request("u")) then minusDateu = Clng(Request("u")) Else: minusDateu = 14 End If If Len(Request("a")) > 0 and isNumeric(Request("a")) then minusDatea = Clng(Request("a")) Else: minusDatea = 14 End If If Request("rev") = 1 then isRev = 1 Else: isRev = 0 End If If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp" setLocale server_locale sdd = dd(objConn) baseDateToday = ConvDateShort(Date) baseDateWeek = DateAdd("d", -6, ConvDate(Date)) baseDateWeek = ConvDate(baseDateWeek) baseDateMonth = DateAdd("d", -29, ConvDate(Date)) baseDateMonth = ConvDate(baseDateMonth) set rsstat = objConn.Execute("SELECT ID FROM " & tablUPfx & "User;") If not rsstat.EOF then rsdata = rsstat.getrows allUser = UBound(rsdata,2) + 1 Else allUser = 0 End If rsstat.close set rsstat = objConn.Execute("SELECT ID FROM " & tablUPfx & "User WHERE cdate > " & sdd & baseDateToday & sdd & " ;") If not rsstat.EOF then rsdata = rsstat.getrows todayUser = UBound(rsdata,2) + 1 Else todayUser = 0 End If rsstat.close set rsstat = objConn.Execute("SELECT ID FROM " & tablUPfx & "User WHERE cdate > " & sdd & baseDateWeek & sdd & " ;") If not rsstat.EOF then rsdata = rsstat.getrows weekUser = UBound(rsdata,2) + 1 Else weekUser = 0 End If rsstat.close set rsstat = objConn.Execute("SELECT ID FROM " & tablUPfx & "User WHERE cdate > " & sdd & baseDateMonth & sdd & " ;") If not rsstat.EOF then rsdata = rsstat.getrows monthUser = UBound(rsdata,2) + 1 Else monthUser = 0 End If rsstat.close TodayIs = ConvDateShort(Date) For I = 0 to minusDateu-1 baseDate = ConvDate(DateAdd("d", -I, Date)) prevDate = ConvDate(DateAdd("d", -I-1, Date)) nextDate = ConvDate(DateAdd("d", -I+1, Date)) strSQL = "SELECT cdate FROM " & tablUPfx & "User WHERE cdate > " & sdd & baseDate & sdd & " AND cdate < " & sdd & nextDate & sdd & ";" Set rsUstat = objConn.Execute(strSQL) If not rsUstat.EOF then rsdata = rsUstat.getrows nextCount = UBound(rsdata,2) + 1 Else nextCount = 0 End If sDateDay = DatePart("d", baseDate) sDateMonth = DatePart("m", baseDate) If Request("rev") = 1 then strUserDatePart = sDateDay & "/" & sDateMonth Else: strUserDatePart = sDateMonth & "/" & sDateDay End If uStatDateArray(I) = WeekdayName(Weekday(baseDate),True) & "
" & strUserDatePart uStatCountArray(I) = nextCount rsUstat.close Next maxCountVal = getMaxCount(uStatCountArray, minusDateu) If maxCountVal = 0 then maxCountVal = 1 For I = minusDateu-1 to 0 step -1 If I mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'" strUserCount = strUserCount & "" & uStatCountArray(I) & "" strUserDate = strUserDate & "" & uStatDateArray(I) & "" nextUserBarVal = (uStatCountArray(I) * 200) \ maxCountVal strUserBar = strUserBar & "

" Next erase uStatDateArray erase uStatCountArray set rsstat = objConn.Execute("SELECT ID FROM " & tablPfx & "Ads;") If not rsstat.EOF then rsdata = rsstat.getrows allAds = UBound(rsdata,2) + 1 Else allAds = 0 End If rsstat.close set rsstat = objConn.Execute("SELECT ID FROM " & tablPfx & "Ads WHERE status=1;") If not rsstat.EOF then rsdata = rsstat.getrows allAdsActive = UBound(rsdata,2) + 1 Else allAdsActive = 0 End If rsstat.close set rsstat = objConn.Execute("SELECT ID FROM " & tablPfx & "Ads WHERE pdate > " & sdd & baseDateToday & sdd & " ;") If not rsstat.EOF then rsdata = rsstat.getrows todayAds = UBound(rsdata,2) + 1 Else todayAds = 0 End If rsstat.close set rsstat = objConn.Execute("SELECT ID FROM " & tablPfx & "Ads WHERE pdate > " & sdd & baseDateWeek & sdd & " ;") If not rsstat.EOF then rsdata = rsstat.getrows weekAds = UBound(rsdata,2) + 1 Else weekAds = 0 End If rsstat.close set rsstat = objConn.Execute("SELECT ID FROM " & tablPfx & "Ads WHERE pdate > " & sdd & baseDateMonth & sdd & " ;") If not rsstat.EOF then rsdata = rsstat.getrows monthAds = UBound(rsdata,2) + 1 Else monthAds = 0 End If rsstat.close For I = 0 to minusDatea-1 baseDate = ConvDate(DateAdd("d", -I, Date)) prevDate = ConvDate(DateAdd("d", -I-1, Date)) nextDate = ConvDate(DateAdd("d", -I+1, Date)) strSQL = "SELECT pdate FROM " & tablPfx & "Ads WHERE pdate > " & sdd & baseDate & sdd & " AND pdate < " & sdd & nextDate & sdd & ";" Set rsUstat = objConn.Execute(strSQL) If not rsUstat.EOF then rsdata = rsUstat.getrows nextCount = UBound(rsdata,2) + 1 Else nextCount = 0 End If sDateDay = DatePart("d", baseDate) sDateMonth = DatePart("m", baseDate) If Request("rev") = 1 then strUserDatePart = sDateDay & "/" & sDateMonth Else: strUserDatePart = sDateMonth & "/" & sDateDay End If aStatDateArray(I) = WeekdayName(Weekday(baseDate),True) & "
" & strUserDatePart aStatCountArray(I) = nextCount rsUstat.close Next maxCountVal = getMaxCount(aStatCountArray, minusDatea) If maxCountVal = 0 then maxCountVal = 1 For I = minusDatea-1 to 0 step -1 If I mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'" strAdsCount = strAdsCount & "" & aStatCountArray(I) & "" strAdsDate = strAdsDate & "" & aStatDateArray(I) & "" nextAdsBarVal = (aStatCountArray(I) * 200) \ maxCountVal strAdsBar = strAdsBar & "

" Next erase aStatDateArray erase aStatCountArray Function getMaxCount(iArray, minusDate) For I = 0 to minusDate-1 If iArray(I) > nextMaxVal then nextMaxval = iArray(I) End If Next If Len(CStr(nextMaxval)) = 0 then nextMaxval = 1 getMaxCount = nextMaxval End Function %>

Accounts and Ads Statistics

User Accounts Statistics

General Statistics
Created Today:	<%= todayUser %>
in the past 7 days:	<%= weekUser %>
in the past 30 days:	<%= monthUser %>
Total:	<%= allUser %>

dd/mm | mm/dd

Display past days statistics

<%= strUserCount %> <%= strUserBar %> <%= strUserDate %>

Accounts <%= minusDateu %> days statistics

Ads Statistics

General Statistics
Created Today:	<%= todayAds %>
in the past 7 days:	<%= weekAds %>
in the past 30 days:	<%= monthAds %>
Total:	<%= allAdsActive %>
Total+Expired:	<%= allAds %>

dd/mm | mm/dd

Display past days statistics

<%= strAdsCount %> <%= strAdsBar %> <%= strAdsDate %>

Ads <%= minusDatea %> days statistics