<% If getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsEditZone")) = "True" Then %>
<%
Else
if objRS("zStatus") = "True" then response.write "" & Application(getLang() & "_strJBS_00680") & "" end if
if objRS("zStatus") = "False" then response.write "" & Application(getLang() & "_strJBS_00690") & "" end if
End If
%>
<%
objRS.Close : Set objRS = Nothing
Dim TotalBanners, TotalImp, TotalClicks, tRatio
strSQL = "SELECT Count(*) as TotalBanners, SUM(bImpCount) as TotalImp, SUM(bClickCount) as TotalClicks FROM JBS_Banners WHERE bStatus = 'Active' AND bZoneID = " & Request("ZoneID")
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
%>
<%
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 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")
%>
- ">
<% Else %>
:: 
:: 
::