<%
strSQL = "SELECT JBS_BannerStat.sClick, JBS_BannerStat.sImp, JBS_BannerStat.sDate, "
strSQL = strSQL & "JBS_Banners.bTargetUrl, JBS_Banners.bName, JBS_Banners.bTextLinkAd, JBS_Banners.bIsImageAd, JBS_Banners.bImageAdUrl "
strSQL = strSQL & "FROM JBS_BannerStat "
strSQL = strSQL & "INNER JOIN JBS_Banners "
strSQL = strSQL & "ON JBS_BannerStat.sBannerID = JBS_Banners.BannerID "
strSQL = strSQL & "WHERE JBS_BannerStat.sBannerID = " & Request("BannerID") & " "
strSQL = strSQL & "ORDER BY JBS_BannerStat.sDate DESC"
Set objRS = Conn.Execute(strSQL)
If NOT objRS.EOF Then
arrRecs = objRS.GetRows()
For c = 0 To Ubound(arrRecs,2)
current = (arrRecs(0,c) + arrRecs(1,c))
if current > Max then Max = current
Next
%>
| :: <% = Application(getLang() & "_strJBS_03280") %> :: |
| <%=arrRecs(4,i)%> |
<%
if arrRecs(6,i) = "True" then
Response.Write "![]() "
else
Response.Write Replace(arrRecs(5,i),"[JBS_URL]", ChkLink(arrRecs(3,i)))
end if
%>
|
|
<% if Application("JBSX_sSettings_TrackBannerForDays") <> "0" then
Response.Write "Stat based on the last " & Application("JBSX_sSettings_TrackBannerForDays") & " days"
end if %>
|
<% End If %>
| <% = Application(getLang() & "_strJBS_00320") %> |
<% = Application(getLang() & "_strJBS_00340") %> |
<% = Application(getLang() & "_strJBS_00360") %> |
<% = Application(getLang() & "_strJBS_00380") %> |
<% = Application(getLang() & "_strJBS_00370") %> |
<%
If IsArray(arrRecs) Then
For i = 0 To UBound(arrRecs,2)
Clicks = Clng(arrRecs(0,i))
Impr = Clng(arrRecs(1,i))
If Clicks <> 0 then
Ratio = (Clicks / Impr) * 100
Ratio = Round(Ratio, 2) & "%"
Else
Ratio = "n/a"
End If
Current = arrRecs(0,i) + arrRecs(1,i)
tdWidth = Int(Current * (250 / Max )) + 10
WidthClicksBar = Int(arrRecs(0,i) * (250 / Max )) + 1
WidthImpBar = Int(arrRecs(1,i) * (250 / Max )) + 1
%>
| <%=arrRecs(2,i)%> |
<%=Clicks%> |
<%=Impr%> |
   |
<%=Ratio%> |
<%
Next
Else
%>
| <% = Application(getLang() & "_strJBS_03120") %>! |
<%
End If
objRS.Close : Set objRS = Nothing
%>
|
|