<% Response.Charset = "ISO-8859-1" SessaoSel = 5 Dim Sessao__MMColParam Sessao__MMColParam = "1" If (SessaoSel <> "") Then Sessao__MMColParam = SessaoSel End If %> <% Dim Sessao Dim Sessao_cmd Dim Sessao_numRows Set Sessao_cmd = Server.CreateObject ("ADODB.Command") Sessao_cmd.ActiveConnection = MM_Loja_STRING Sessao_cmd.CommandText = "SELECT Linhas FROM sessoes WHERE ID = ?" Sessao_cmd.Prepared = true Sessao_cmd.Parameters.Append Sessao_cmd.CreateParameter("param1", 5, 1, -1, Sessao__MMColParam) ' adDouble Set Sessao = Sessao_cmd.Execute Sessao_numRows = 0 %> <% Dim Total__MMColParam Total__MMColParam = "0" If (SessaoSel <> "") Then Total__MMColParam = SessaoSel End If %> <% Dim Total Dim Total_cmd Dim Total_numRows Set Total_cmd = Server.CreateObject ("ADODB.Command") Total_cmd.ActiveConnection = MM_Loja_STRING Total_cmd.CommandText = "SELECT COUNT(ID) AS TotalChamadas FROM chamadas WHERE (sessao = ?)" Total_cmd.Prepared = true Total_cmd.Parameters.Append Total_cmd.CreateParameter("param1", 5, 1, -1, Total__MMColParam) ' adDouble Set Total = Total_cmd.Execute Total_numRows = 0 %> <% Dim ChamadasMedia__MMColParam ChamadasMedia__MMColParam = "1" If (SessaoSel <> "") Then ChamadasMedia__MMColParam = SessaoSel End If %> <% Dim ChamadasMedia Dim ChamadasMedia_cmd Dim ChamadasMedia_numRows Set ChamadasMedia_cmd = Server.CreateObject ("ADODB.Command") ChamadasMedia_cmd.ActiveConnection = MM_Loja_STRING ChamadasMedia_cmd.CommandText = "SELECT chamadas.*, sessoes.largura, sessoes.altura FROM sessoes INNER JOIN chamadas ON sessoes.id = chamadas.sessao WHERE (chamadas.sessao = ?) AND chamadas.NoAr <= #"& Month(Date()) & "/" & Day(Date()) &"/"& Year(Date()) &"# ORDER BY chamadas.NoAr DESC" ChamadasMedia_cmd.Prepared = true ChamadasMedia_cmd.Parameters.Append ChamadasMedia_cmd.CreateParameter("param1", 5, 1, -1, ChamadasMedia__MMColParam) Set ChamadasMedia = ChamadasMedia_cmd.Execute ChamadasMedia_numRows = 0 %> <% If cInt(Total("TotalChamadas")) >= cInt(Sessao("Linhas")) Then NumExec = Sessao("Linhas") Else NumExec = Total("TotalChamadas") End If %> <% Dim RepeatMediaCenter__numRows Dim RepeatMediaCenter__index RepeatMediaCenter__numRows = NumExec RepeatMediaCenter__index = 0 ChamadasMedia_numRows = ChamadasMedia_numRows + RepeatMediaCenter__numRows %>
<% For i = 1 to Numexec %>
<%= i %>
<%Next%>
<% Contador = 1 While ((RepeatMediaCenter__numRows <> 0) AND (NOT ChamadasMedia.EOF)) %> <% RepeatMediaCenter__index=RepeatMediaCenter__index+1 RepeatMediaCenter__numRows=RepeatMediaCenter__numRows-1 ChamadasMedia.MoveNext() Contador = Contador + 1 Wend %>
<% Sessao.Close() Set Sessao = Nothing %> <% Total.Close() Set Total = Nothing %> <% ChamadasMedia.Close() Set ChamadasMedia = Nothing %>