<% alert="" if request("t")<>"" then 'submitting a comment y=2018 t=replace(request("t"),"'","''") t=replace(t,chr(13),"
") p=session("id_people") c=request("c") e=request("e") sSQl="CALL adds.P_Ins_Comment ('"&t&"',"&c&","&p&","&y&","&e&")" 'x=rw(sSQL) openRS(sSQL) alert="!"&rsTemp(0)&"!" closeRS() end if sYear=2018 irow=0 sTitle="Spending by Department "&sYear sOby="department asc" if request("c")<>"" then sOby=" sum(amount) desc" sSQL = "CALL adds.getCategorySpendingbyID ('"&request("c")&"',"&sYear&")" 'rwb(sSQL) x=openRS(sSQL) if not rsTemp.eof then h="

" h=h&"" h=h&"" h=h&"

Our spending by '"&rsTemp("CategoryName")&"' for "&sYear&"

" h=h&"" h=h&"" irow=0 do until rsTemp.eof if irow mod 2=1 then strClass="light_blue_row" else strClass="white_row" irow=irow+1 sCat="" if not isnull(rstemp("categoryName")) then sCat=rstemp("categoryName") h=h&"" h=h&"" if irow=1 then c=" " end if rsTemp.movenext loop end if h=h&c h=h&alert h=h&"" sSQL = "CALL adds.getCommentsByCategoryID ('"&request("c")&"')" 'rwb(sSQL) x=openRS(sSQL) if not rsTemp.eof then do until rsTemp.eof h=h&"" rsTemp.movenext loop end if 'rw(h) h=h&"" h=h&"

Category and " h=h&" Current Scope	Details of this category
"&sCat&"" h=h&""&rstemp("Current_Scope")&"	Classification: "&rstemp("Functional_Classification")&" " h=h&"Amount Type: "&rstemp("amount_type")&" " h=h&"Restrictions: "&rstemp("Restriction_Type")&" " h=h&"Group Type: "&rstemp("group_type")&" " h=h&"Reason Name: "&rstemp("AppropriationName")&" " h=h&"Reason Category: "&rstemp("Appropriation_or_Category_Type")&" " h=h&"Owned By: "&rstemp("Portfolio_Name")&" " h=h&"Total Budget $"&formatNumber(rstemp("total_budget"),0)&",000
" c=c&" This is your chance to have your say on "&sCat&"'s spending of " c=c&"$"&formatNumber(rstemp("total_budget"),0)&",000. Comments "&rstemp("comments")&" Votes "&rstemp("votes")&"
" if session("image_path")="" then sImage="Login" else sImage="" end if h=h&" "&sImage&" " h=h&" " h=h&" " h=h&" " h=h&"
" h=h&" " dAdd=rstemp("date_added") if left(dAdd,6)="0 days" then dAdd=right(dAdd,len(dAdd)-7) else dAdd=left(dAdd,6) end if if left(dAdd,7)="0 hours" then dAdd=right(dAdd,len(dAdd)-8) else dAdd=left(dAdd,7) end if if left(dAdd,6)="0 hours" then dAdd=right(dAdd,len(dAdd)-7) h=h&" " h=h&" " h=h&" "&rstemp("name")&" " & dAdd &" ago " h=h&" "&rstemp("text")&" " if session("id_people")=rstemp("id_people") then h=h&" Edit " end if h=h&" " h=h&" " h=h&" " h=h&" " h=h&"up vote" if isnull(rstemp("Votes")) then iVote=0 else iVote=rstemp("Votes") end if h=h&""&iVote&"" h=h&"down vote" h=h&" " h=h&"

" rw(h) 'rwb(sSQL) end if %>