<% Response.ContentType = "application/msword" Response.AddHeader "Content-Disposition", "attachment;filename=zone_report.doc" %>

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

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

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

<% = Application(getLang() & "_strJBS_02030") %>:  <%=objRS("zName")%> <% = Application(getLang() & "_strJBS_02040") %>:  <%=objRS("zSize")%> <% = Application(getLang() & "_strJBS_00670") %>: <% if objRS("zStatus") = "True" then response.write Application(getLang() & "_strJBS_00680") else response.write Application(getLang() & "_strJBS_00690") end if %> <% = Application(getLang() & "_strJBS_01670") %>:  <%=objRS("zDescription")%> <% = Application(getLang() & "_strJBS_02090") %> / <% = Application(getLang() & "_strJBS_02100") %>  <%=objRS("zNoOfBanners")%> / <%=objRS("zNoOfBannerHoriPos")%> <% = Application(getLang() & "_strJBS_02060") %>:  <% Call JBS(<%=objRS("ZoneID")%>) %>

<% objRS.Close : Set objRS = Nothing strSQL = "SELECT bName, bStartDate, bEndDate, bStatus, bPaymentType, bUnitCost, bQuantityPurchased, bImpCount, bClickCount" strSQL = strSQL & " FROM JBS_Banners WHERE bZoneID = " & Request("ZoneID") & " 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_01290") %>!

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