<%
Dim i, j, arr, aID
Dim TotalBanners, TotalImp, TotalClicks, zRatio
Dim sumTotalBanners, sumTotalClicks, sumTotalImp
Dim getSumTotalRatio, sumTotalRatio
arr = objRS.getrows()
objRS.Close : Set objRS = Nothing
aID = Clng(0)
zCount = Clng(0)
sumTotalBanners = Clng(0)
sumTotalImp = Clng(0)
sumTotalClicks = Clng(0)
for i = 0 to ubound(arr,2)
If aID <> arr(0,i) then
aID = Clng(arr(0,i))
zCount = zCount + 1
TotalBanners = Clng(0)
TotalImp = Clng(0)
TotalClicks = Clng(0)
for j = i to ubound(arr,2)
if aID <> clng(arr(0,j)) then exit for
If Not IsNull(arr(5,j)) Then
if arr(7,j) = "Active" then
TotalBanners = TotalBanners + 1
TotalImp = TotalImp + arr(5,j)
TotalClicks = TotalClicks + arr(6,j)
end if
End If
next
if TotalClicks <> Clng(0) Then
zRatio = (TotalClicks / TotalImp) * 100
zRatio = Round(zRatio, 2) & "%"
else
zRatio = "n/a"
end if
sumTotalBanners = sumTotalBanners + TotalBanners
sumTotalImp = sumTotalImp + TotalImp
sumTotalClicks = sumTotalClicks + TotalClicks
%>
::
<%If arr(3,i) <> "" then response.write BreakLine(arr(3,i)) else Response.write " - " end if %>" style="cursor: crosshair">
<% If getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsEditAdvertiser")) = "True" Then %>
<%
Else
if arr(2,i) = "Active" then response.write "" & Application(getLang() & "_strJBS_00680") & "" end if
if arr(2,i) = "Hold" then response.write "" & Application(getLang() & "_strJBS_00690") & "" end if
End If
%>
::
<%If arr(3,i) <> "" then response.write BreakLine(arr(3,i)) else Response.write " - " end if %>" style="cursor: crosshair">