<% Call incFile(getTemplate(), "Header") strSQL = "SELECT * FROM JBS_Advertiser WHERE AdvertiserID = " & Request("AdvertiserID") Set objRS = Conn.Execute(strSQL) Dim aAddedByUserID : aAddedByUserID = objRS("aAddedByUserID") Dim aAddedByUserDate : aAddedByUserDate = objRS("aAddedByUserDate") Dim aLastEditedByUserID : aLastEditedByUserID = objRS("aLastEditedByUserID") Dim aLastEditedByUserDate : aLastEditedByUserDate = objRS("aLastEditedByUserDate") if Session("JBSX_Update") = "True" then %> <% Session("JBSX_Update") = "" End if Call writePageNavigation("" & Application(getLang() & "_strJBS_00070") & "", "" & Application(getLang() & "_strJBS_00400") & "", objRS("aCompanyName"), "") %>

:: <% = Application(getLang() & "_strJBS_01950") %> ::

" title="<% = Application(getLang() & "_strJBS_00880") %>" border="0" src="../img/icon_excel.gif"> "><% = Application(getLang() & "_strJBS_00880") %>

" title="<% = Application(getLang() & "_strJBS_00890") %>" border="0" src="../img/icon_word.gif"> "><% = Application(getLang() & "_strJBS_00890") %>

" title="<% = Application(getLang() & "_strJBS_00900") %>" border="0" src="../img/icon_print.gif"> "><% = Application(getLang() & "_strJBS_00900") %>

<% If getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsEditAdvertiser")) = "True" Then %> &Page=advertiser"> - <% = Application(getLang() &

- "> <% Else %> - <% = Application(getLang() &

- " border="0" src="../img/icon_edit_alfa.gif"> <% End If If getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsDeleteAdvertiser")) = "True" Then %> " onclick="return confirm('<% = Application(getLang() & "_strJBS_01340") %>!');"> - <% = Application(getLang() &

- " border="0" src="../img/icon_trash.gif"> <% Else %> - <% = Application(getLang() &

- " border="0" src="../img/icon_trash_alfa.gif"> <% End If %>

<% = Application(getLang() & "_strJBS_01960") %>:	<%=objRS("aCompanyName")%>	<% = Application(getLang() & "_strJBS_00670") %>:	<% If getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsEditAdvertiser")) = "True" Then %> <% Else 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 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 = " & Request("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") %> ::

:: <% = Application(getLang() & "_strJBS_01700") %> ::

<% 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") %>!

<% = Application(getLang() & "_strJBS_00590") %>:	<%=getAdminHistory(aAddedByUserID,aAddedByUserDate)%>
<% = Application(getLang() & "_strJBS_01710") %>:	<%=getAdminHistory(aLastEditedByUserID,aLastEditedByUserDate)%>

<% 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 %>

" OnClick="window.location='../files/addBanner.asp?bAdvertiserID=<% =Request("AdvertiserID") %>';">

<% 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 = " & Request("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_01280") %>!

<% 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") %>

<% = 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") %>

<% = Application(getLang() & "_strJBS_01610") %>

');">

- " border="0" src="../img/icon_eye_closed.gif">

<%=objRS("bName")%>

"><%=objRS("zName")%>

<% IF ((objRS("bStatus") = "Active") Or objRS("bStatus") = "Hold") Then if getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsEditBanner")) = "True" Then %> <% Else 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 End If ELSE 'Response.Write "" & objRS("bStatus") & "" 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%>

::
<%=objRS("bAdditionalText")%>
');" onMouseOut="layerContent();" style="cursor: crosshair">

::
<% = Application(getLang() & "_strJBS_00600") %>: <%=objRS("uFullName")%> - <%=objRS("bAddedByUserDate")%>
');" onMouseOut="layerContent();" style="cursor: crosshair">

::
<%=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")%>

<% If getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsEditBanner")) = "True" Then %> "> - <% = Application(getLang() &

- " border="0" src="../img/icon_edit.gif"> <% Else %> - <% = Application(getLang() &

- " border="0" src="../img/icon_edit_alfa.gif"> <% End If If getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsDeleteBanner")) = "True" Then %> &Page=advertiser&aAction=<%=Request("aAction")%>&AdvertiserID=<%=Request("AdvertiserID")%>" onclick="return confirm('<% = Application(getLang() & "_strJBS_01300") %>?');"> - <% = Application(getLang() &

- " border="0" src="../img/icon_delete_file.gif"> <% Else %> - <% = Application(getLang() &

- " border="0" src="../img/icon_delete_alfa.gif"> <% End If %>

" 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") %>