Money Manager² is a free money management software that helps you track and manage your business or personal finances. Half of families in USA are in debt but with our tool you don't have to be. You can easily see how much money you have, what are your expenses, income and etc... Try it for free now and see how simple it is - it takes less than 30 seconds to register!
Select Login Type as "New Registration" on the right and take control over your finances today. Did we mention it's 100% Free?
Money Manager² can be used by families and individuals to keep track of their finances as well as by small and large businesses. You can even monitor the progress of your stock investments and retirement plans. Simple and user-friendly interface will help you keep your money intact and your nights worry-free.
<%
'call db_connect("moneymanager")
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
objRS.Open "SELECT SUM(tamount) 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='1'", objConnect, 0, 1, 1
if NOT objRS.EOF and NOT isNULL(objRS("SUM(tamount)")) then
a1=objRS("SUM(tamount)")
if a1<0 then a1=0
else
a1=0
end if
objRS.Close
objRS.Open "SELECT SUM(tamount) 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'", objConnect, 0, 1, 1
if NOT objRS.EOF and NOT isNULL(objRS("SUM(tamount)")) then
a2=-objRS("SUM(tamount)")
if a2<0 then a2=0
else
a2=0
end if
objRS.Close
objRS.Open "SELECT SUM(tamount) 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='3' and tamount<0", objConnect, 0, 1, 1
if NOT objRS.EOF and NOT isNULL(objRS("SUM(tamount)")) then
a3=-objRS("SUM(tamount)")
if a3<0 then a3=0
else
a3=0
end if
objRS.Close
objRS.Open "SELECT SUM(tamount) 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='8'", objConnect, 0, 1, 1
if NOT objRS.EOF and NOT isNULL(objRS("SUM(tamount)")) then
a4=objRS("SUM(tamount)")
if a4<0 then a4=0
else
a4=0
end if
objRS.Close
'response.write " " & a1 & "::" & a2 & "::" & a3 & "::" & a4
mn=a1
if a2>mn then mn=a2
if a3>mn then mn=a3
if a4>mn then mn=a4
%>
+Member+Stats" width="300" height="225" alt="<%=mm & " " & year(dateadd("m", -1, now))%> Member Stats" />
