<% Call incFile(getTemplate(), "Header") strSQL = "SELECT * FROM JBS_Advertiser WHERE AdvertiserID = " & Session("JBSX_AdvertiserID") Set objRS = Conn.Execute(strSQL) %>


!" OnClick="window.location='logout.asp';">
:: <% = Application(getLang() & "_strJBS_01950") %> :: <% = Application(getLang() & " title="<% = Application(getLang() & "_strJBS_00880") %>" border="0" src="../img/icon_excel.gif"> "><% = Application(getLang() & "_strJBS_00880") %>   <% = Application(getLang() & " title="<% = Application(getLang() & "_strJBS_00890") %>" border="0" src="../img/icon_word.gif"> "><% = Application(getLang() & "_strJBS_00890") %>   <% = Application(getLang() & " title="<% = Application(getLang() & "_strJBS_00900") %>" border="0" src="../img/icon_print.gif"> "><% = Application(getLang() & "_strJBS_00900") %>  
<% = Application(getLang() & "_strJBS_01960") %>:  <%=objRS("aCompanyName")%> <% = Application(getLang() & "_strJBS_00670") %>:   <% if objRS("aStatus") = "Active" then response.write "" & Application(getLang() & "_strJBS_00680") & "" end if if objRS("aStatus") = "Hold" then response.write "" & Application(getLang() & "_strJBS_00690") & "" end if if objRS("aStatus") = "Pending" then response.write "" & Application(getLang() & "_strJBS_00710") & "" end if %>
<% = Application(getLang() & "_strJBS_01990") %>:  <% if objRS("aContactName") <> "" then Response.Write objRS("aContactName") else Response.Write " - " end if %> <% = Application(getLang() & "_strJBS_00100") %>:  <% if objRS("aEmail") <> "" then Response.Write "" & objRS("aEmail") & "" else Response.Write " - " end if %>
<% = Application(getLang() & "_strJBS_02000") %>:  <% if objRS("aPhone") <> "" then Response.Write objRS("aPhone") else Response.Write " - " end if %> <% = Application(getLang() & "_strJBS_02010") %>:  <% if objRS("aFax") <> "" then Response.Write objRS("aFax") else Response.Write " - " end if %>
<% = Application(getLang() & "_strJBS_01980") %>  <% if objRS("aWebsiteURL") <> "" then Response.Write "" & objRS("aWebsiteURL") & "" else Response.Write " - " end if %> <% = Application(getLang() & "_strJBS_01970") %>:  <% if objRS("aOccupation") <> "" then Response.Write objRS("aOccupation") else Response.Write " - " end if %>
<% = Application(getLang() & "_strJBS_02020") %>:  <% if objRS("aAddress") <> "" then Response.Write objRS("aAddress") else Response.Write " - " end if %> <% = Application(getLang() & "_strJBS_01680") %>:  <% if objRS("aAdditionalInfo") <> "" then Response.Write objRS("aAdditionalInfo") else Response.Write " - " end if %>


<% objRS.Close : Set objRS = Nothing Dim TotalBanners, TotalImp, TotalClicks, tRatio TotalBanners = Clng(0) strSQL = "SELECT Count(*) as TotalBanners, SUM(bImpCount) as TotalImp, SUM(bClickCount) as TotalClicks FROM JBS_Banners WHERE bStatus = 'Active' AND bAdvertiserID = " & Session("JBSX_AdvertiserID") Set objRS = Conn.Execute(strSQL) If Not objRS.EOF Then TotalBanners = objRS("TotalBanners") TotalImp = objRS("TotalImp") TotalClicks = objRS("TotalClicks") if TotalClicks <> 0 Then tRatio = (TotalClicks / TotalImp) * 100 tRatio = Round(tRatio, 2) & "%" else tRatio = "n/a" end if End If objRS.Close : Set objRS = Nothing %>
:: <% = Application(getLang() & "_strJBS_01600") %> ::  
<% If TotalBanners > Clng(0) Then %> <% Else %> <% End If %>
<% = Application(getLang() & "_strJBS_00440") %>
 <% = Application(getLang() & "_strJBS_00360") %> <% = Application(getLang() & "_strJBS_00340") %> <% = Application(getLang() & "_strJBS_00370") %>
<%=TotalBanners%> (<% = Application(getLang() & "_strJBS_00680") %>) <%=TotalImp%> <%=TotalClicks%> <%=tRatio%>
<% = Application(getLang() & "_strJBS_01240") %>!


<% if Request("aAction") = "ViewBanner" Then %>  <% =Application(getLang() & "_strJBS_00440")%>" OnClick="window.location='advertiser.asp?AdvertiserID=<%=Request("AdvertiserID")%>&aAction=';"> <% else %>  <% =Application(getLang() & "_strJBS_00440")%>" OnClick="window.location='advertiser.asp?AdvertiserID=<%=Request("AdvertiserID")%>&aAction=ViewBanner';"> <% end if %>
<% IF Request("aAction") = "ViewBanner" THEN strSQL = "SELECT" strSQL = strSQL & " JBS_Banners.BannerID, JBS_Banners.bTargetUrl, JBS_Banners.bName, JBS_Banners.bStartDate, JBS_Banners.bEndDate, JBS_Banners.bStatus, JBS_Banners.bWeight," strSQL = strSQL & " JBS_Banners.bTargetWindow, JBS_Banners.bTextLinkAd, JBS_Banners.bIsImageAd, JBS_Banners.bImageAdUrl, JBS_Banners.bImageAdAlt," strSQL = strSQL & " JBS_Banners.bImageAdWidth, JBS_Banners.bImageAdHeight, JBS_Banners.bImageAdBorder, JBS_Banners.bAlignment, JBS_Banners.bPaymentType," strSQL = strSQL & " JBS_Banners.bUnitCost, JBS_Banners.bQuantityPurchased, JBS_Banners.bImpCount, JBS_Banners.bClickCount, JBS_Banners.bAdditionalText," strSQL = strSQL & " JBS_Banners.bAddedByUserID, JBS_Banners.bAddedByUserDate, JBS_Banners.bLastEditedByUserID, JBS_Banners.bLastEditedByUserDate," strSQL = strSQL & " JBS_Advertiser.AdvertiserID, JBS_Advertiser.aCompanyName," strSQL = strSQL & " JBS_Zones.ZoneID, JBS_Zones.zName," strSQL = strSQL & " JBS_Users.uFullName" strSQL = strSQL & " FROM (((JBS_Banners" strSQL = strSQL & " INNER JOIN JBS_Zones ON JBS_Banners.bZoneID = JBS_Zones.ZoneID)" strSQL = strSQL & " INNER JOIN JBS_Advertiser ON JBS_Banners.bAdvertiserID = JBS_Advertiser.AdvertiserID)" strSQL = strSQL & " LEFT JOIN JBS_Users ON JBS_Banners.bAddedByUserID = JBS_Users.UserID)" strSQL = strSQL & " WHERE JBS_Banners.bAdvertiserID = " & Session("JBSX_AdvertiserID") strSQL = strSQL & " ORDER BY JBS_Banners.bName DESC" 'Response.Write strSQL Set objRS = Conn.Execute(strSQL) If objRS.EOF then objRS.close : Set objRS = Nothing %>

<% = Application(getLang() & "_strJBS_01250") %>!
<% Else %>
<% Do Until objRS.EOF %> <% intAcquiredClicks = 0 intAcquiredImp = 0 If objRS("bPaymentType") = 1 Then intAcquiredClicks = objRS("bQuantityPurchased") ElseIf objRS("bPaymentType") = 2 Then intAcquiredImp = objRS("bQuantityPurchased") End If If objRS("bClickCount") <> 0 Then bRatio = (objRS("bClickCount") / objRS("bImpCount")) * 100 bRatio = Round(bRatio, 0) & "%" Else bRatio = "n/a" End If %>
<% = Application(getLang() & "_strJBS_00440") %> <% = Application(getLang() & "_strJBS_00450") %> <% = Application(getLang() & "_strJBS_00670") %> S $ <% = Application(getLang() & "_strJBS_00350") %>
<% = Application(getLang() & "_strJBS_01580") %>/<% = Application(getLang() & "_strJBS_01590") %>		 <% = Application(getLang() & "_strJBS_00340") %>
<% = Application(getLang() & "_strJBS_01580") %>/<% = Application(getLang() & "_strJBS_01590") %>		 <% = Application(getLang() & "_strJBS_00370") %> <% = Application(getLang() & "_strJBS_01760") %> <% = Application(getLang() & "_strJBS_01770") %> <% = Application(getLang() & "_strJBS_01780") %>
');"> - View image - <%=objRS("bName")%> <%=objRS("zName")%> <% if objRS("bStatus") = "Active" then response.write "" & Application(getLang() & "_strJBS_00680") & "" end if if objRS("bStatus") = "Hold" then response.write "" & Application(getLang() & "_strJBS_00690") & "" end if if objRS("bStatus") = "Expired" then response.write "" & Application(getLang() & "_strJBS_00700") & "" end if %> <% If Application("JBSX_sSettings_TrackBannerIsEnable") = "True" Then %> ','','width=600,height=600,status=no,toolbar=no,scrollbars=yes,resizable=no,navbar=no');"> - <% = Application(getLang() & - " border="0" src="../img/icon_stat.gif"> <% Else %> - <% = Application(getLang() & - " border="0" src="../img/icon_stat_alpha.gif"> <% End If%> ::  
<%=strFinancialReport(objRS("bName"),Clng(objRS("bPaymentType")),objRS("bUnitCost"),objRS("bQuantityPurchased"),objRS("bImpCount"),objRS("bClickCount"),objRS("bStartDate"),objRS("bEndDate"),objRS("bStatus"))%>');" onMouseOut="layerContent();" style="cursor: crosshair">		<% if intAcquiredImp <> 0 then response.write "" & intAcquiredImp & " / " end if %><%=objRS("bImpCount")%> <% if intAcquiredClicks <> 0 then response.write "" & intAcquiredClicks & " / " end if %><%=objRS("bClickCount")%> <%=bRatio%> <%=objRS("bStartDate")%> <%=objRS("bEndDate")%> <%=objRS("bWeight")%>
" style="display:none;">
 <% = Application(getLang() & "_strJBS_01900") %>:  <% if objRS("bIsImageAd") = True then Response.Write objRS("bImageAdWidth") else Response.Write " - " end if %>
 <% = Application(getLang() & "_strJBS_01910") %>:  <% if objRS("bIsImageAd") = True then Response.Write objRS("bImageAdHeight") else Response.Write " - " end if %>
 <% = Application(getLang() & "_strJBS_01920") %>:  <% if objRS("bIsImageAd") = True then Response.Write objRS("bImageAdBorder") else Response.Write " - " end if %>
 <% = Application(getLang() & "_strJBS_01790") %>:  <%=objRS("bTargetWindow")%>
<% If objRS("bIsImageAd") = "True" then Response.Write "" Else Response.Write Replace(objRS("bTextLinkAd"),"[JBS_URL]", ChkLink(objRS("bTargetUrl"))) End If %>
<% objRS.MoveNext Loop objRS.close : Set objRS = Nothing %>
<% End If END IF Call incFile(getTemplate(), "Bottom") %>