Site-Wide Stats
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
select case month(dateadd("m", -1, now))
case 1
mm="January"
case 2
mm="February"
case 3
mm="March"
case 4
mm="April"
case 5
mm="May"
case 6
mm="June"
case 7
mm="July"
case 8
mm="August"
case 9
mm="September"
case 10
mm="October"
case 11
mm="November"
case 12
mm="December"
end select
'SQLc="SELECT SUM(tamount), allocations.aname FROM transactions LEFT JOIN allocations ON transactions.atype_id=allocations.indexfield WHERE MONTH(tdate)=month(DATE_SUB(now(),INTERVAL 1 MONTH)) and year(tdate)=year(DATE_SUB(now(),INTERVAL 1 MONTH)) and atype='2' group by allocations.aname order by sum(tamount) desc limit 5"
'objRS.Open SQLc, objConnect, 0, 1, 1
%>
* Numbers are stripped from Income and Expenses names to protect privacy and anonymity of our users. The statistical graphs are provided for entertainment purposes only and may not reflect top national income and expense sources.
