<% Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment;filename=advertiser_report.xls" %>

<% = Application(getLang() & "_strJBS_00870") %>: <%=Now()%>

<% strSQL = "SELECT * FROM JBS_Advertiser WHERE AdvertiserID = " & Request("AdvertiserID") Set objRS = Conn.Execute(strSQL) %>

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

<% = 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 %> <% = 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 strSQL = "SELECT bName, bStartDate, bEndDate, bStatus, bPaymentType, bUnitCost, bQuantityPurchased, bImpCount, bClickCount" strSQL = strSQL & " FROM JBS_Banners WHERE bAdvertiserID = " & Request("AdvertiserID") & " ORDER BY bName DESC" Set objRS = Conn.Execute(strSQL) %>

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

<% If objRS.EOF then objRS.close : Set objRS = Nothing %>

<% = Application(getLang() & "_strJBS_01280") %>!

<% Else %>

<% Do Until objRS.EOF %> <% objRS.MoveNext Loop objRS.close : Set objRS = Nothing End If %> <%=strFinancialReport(objRS("bName"),Clng(objRS("bPaymentType")),objRS("bUnitCost"),objRS("bQuantityPurchased"),objRS("bImpCount"),objRS("bClickCount"),objRS("bStartDate"),objRS("bEndDate"),objRS("bStatus"))%>

<% Conn.Close : Set Conn = Nothing %>