<%@ Language=VBScript %>

REVENUE BY PROGRAM

From Date(mm/dd/yy) : >   To Date(mm/dd/yy) : >   Program :    
Group by                     :    

<% if Request.Form("from_dt")="" then Response.End 'warn user if report will take long time 'dim x if datediff("m",Request.form("from_dt"),Request.Form("to_dt")) > 2 and Request.form("prog")="" then 'x=MsgBox("Report will take some time....Please be patient!",65,"Fraud Report") end if %>

<%if Request.Form("groupby") > 0 and year(Request.form("from_dt")) < year(Request.form("to_dt")) then Response.Write ""%> <% dim cn,rs if Request.form("groupby") <> "" then groupby=Request.form("groupby") else groupby=0 end if set cn=server.CreateObject("Adodb.connection") set rs=server.CreateObject("Adodb.Recordset") cn.Open Application("Connection1_ConnectionString") 'cn.Open "Provider=SQLOLEDB.1;Password=et2brutus;Persist Security Info=True;User ID=VestaASP;Initial Catalog=AttDev;Data Source=DEV_SQL_03;" cn.CommandTimeout=600 sqlstr="exec rp_Revenueperprogramperday '"+Request.Form("from_dt")+"','"+Request.Form("to_dt")+"','"+Request.Form("prog")+"',"+cstr(groupby) 'Response.Write sqlstr 'Response.end rs.open sqlstr,cn do while not rs.eof %> <% if Request.Form("groupby") > 0 and year(Request.form("from_dt")) < year(Request.form("to_dt")) then Response.Write "" end if Response.Write " <%rs.MoveNext loop rs.close cn.close set rs=nothing set cn=nothing %>
Year Program Revenue
" Response.Write rs(0) Response.Write "" if Request.Form("groupby")=1 then Response.Write rs(2) else Response.Write rs(1) end if%> <% 'if Request.Form("groupby")=2 then Response.Write rs(3) 'else 'Response.Write rs(1) 'end if%> <% 'if Request.Form("groupby")=2 then Response.Write formatcurrency(rs(4)) 'else 'Response.Write formatcurrency(rs(2)) 'end if%>