<% set con = server.CreateObject("ADODB.Connection") con.Open(Application("ConnString")) set rs = Server.CreateObject("ADODB.Recordset") 'ano_abertura = Year(Date()) ano_abertura = 2015 if ano_abertura = 2013 then sSQL = "select * from CD_12_focus.FundoFundos where Data between '06-01-2013' and '12-01-2013' order by Data" 'response.write sSQL Rs.Open sSQL, con rsArray = Rs.GetRows() rs.Close sSQL = "select sum(FundoFundos),sum(Ibovespa),sum(Performance) from FundoFundos where Data between '06-01-2013' and '12-01-2013'" 'response.write sSQL Rs.Open sSQL, con rsAcum = Rs.GetRows() rs.Close elseif ano_abertura = 2014 then sSQL = "select * from CD_12_focus.FundoFundos where Data between '01-01-2014' and '12-01-2014' order by Data" 'response.write sSQL Rs.Open sSQL, con rsArray = Rs.GetRows() rs.Close sSQL = "select sum(FundoFundos),sum(Ibovespa),sum(Performance) from FundoFundos where Data between '01-01-2014' and '12-01-2014'" 'response.write sSQL Rs.Open sSQL, con rsAcum = Rs.GetRows() rs.Close elseif ano_abertura = 2015 then sSQL = "select * from CD_12_focus.FundoFundos where Data between '01-01-2015' and '12-01-2015' order by Data" 'response.write sSQL Rs.Open sSQL, con rsArray = Rs.GetRows() rs.Close sSQL = "select ((select TOP 1 FDOFUNDO from BancoFundos where Data between '2015-01-01' and '2015-12-31' order by Data DESC)/(select TOP 1 FDOFUNDO from BancoFundos where Data between '2014-01-01' and '2014-12-31' order by Data DESC)-1)*100 AS FDOFUNDO,((select TOP 1 CDI from BancoFundos where Data between '2015-01-01' and '2015-12-31' order by Data DESC)/(select TOP 1 CDI from BancoFundos where Data between '2014-01-01' and '2014-12-31' order by Data DESC)-1)*100 AS CDI,(select (select ((select TOP 1 FDOFUNDO from BancoFundos where Data between '2015-01-01' and '2015-12-31' order by Data DESC)/(select TOP 1 FDOFUNDO from BancoFundos where Data between '2014-01-01' and '2014-12-31' order by Data DESC)-1)*100 AS FDOFUNDO)-(((select TOP 1 CDI from BancoFundos where Data between '2015-01-01' and '2015-12-31' order by Data DESC)/(select TOP 1 CDI from BancoFundos where Data between '2014-01-01' and '2014-12-31' order by Data DESC)-1)*100)) AS Performance" 'response.write sSQL Rs.Open sSQL, con rsAcum = Rs.GetRows() rs.Close elseif ano_abertura = 2016 then sSQL = "select * from CD_12_focus.FundoFundos where Data between '01-01-2016' and '12-01-2016' order by Data" 'response.write sSQL Rs.Open sSQL, con rsArray = Rs.GetRows() rs.Close sSQL = "select sum(FundoFundos),sum(Ibovespa),sum(Performance) from FundoFundos where Data between '01-01-2016' and '12-01-2016'" 'response.write sSQL Rs.Open sSQL, con rsAcum = Rs.GetRows() rs.Close else ano_abertura = 2017 sSQL = "select * from CD_12_focus.FundoFundos where Data between '01-01-2017' and '12-01-2017' order by Data" 'response.write sSQL Rs.Open sSQL, con rsArray = Rs.GetRows() rs.Close sSQL = "select ((select FDOFUNDO from BancoFundos where Data = DATEADD(MONTH, DATEDIFF(MONTH, -1, GETDATE())-1, -1))/(select TOP 1 FDOFUNDO from BancoFundos where Data between '2016-01-01' and '2016-12-31' order by Data DESC)-1)*100 AS FDOFUNDO,((select CDI from BancoFundos where Data = DATEADD(MONTH, DATEDIFF(MONTH, -1, GETDATE())-1, -1))/(select TOP 1 CDI from BancoFundos where Data between '2016-01-01' and '2016-12-31' order by Data DESC)-1)*100 AS CDI,(select (select ((select FDOFUNDO from BancoFundos where Data = DATEADD(MONTH, DATEDIFF(MONTH, -1, GETDATE())-1, -1))/(select TOP 1 FDOFUNDO from BancoFundos where Data between '2016-01-01' and '2016-12-31' order by Data DESC)-1)*100 AS FDOFUNDO)-(((select CDI from BancoFundos where Data = DATEADD(MONTH, DATEDIFF(MONTH, -1, GETDATE())-1, -1))/(select TOP 1 CDI from BancoFundos where Data between '2016-01-01' and '2016-12-31' order by Data DESC)-1)*100)) AS Performance" 'response.write sSQL Rs.Open sSQL, con rsAcum = Rs.GetRows() rs.Close end if set rs = Nothing set con = Nothing %>

Focus Fundo de Fundos

Rentabilidade Acumulada

<%For i = 0 to UBound(rsArray, 2)%> <%Next%>
Mês          Fundo CDI Benchmark
<%=rsArray(1,i)%> <%=rsArray(2,i)%>% <%=rsArray(3,i)%>% <%=rsArray(4,i)%>%
Acumulado <%=AcertaNumero_Traco(rsAcum(0,0),3,"%")%> <%=AcertaNumero_Traco(rsAcum(1,0),3,"%")%> <%=AcertaNumero_Traco(rsAcum(2,0),3,"%")%>