<% Call incFile(getTemplate(), "Header") Dim StatusFieldPermission : StatusFieldPermission = "" IF getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsAddBanner")) = "False" THEN StatusFieldPermission = " style=""background-color: #F3F3F3;"" disabled" END IF Dim ErrorFlag : ErrorFlag = "False" Dim ErrorMessage : ErrorMessage = "" strSQL = "SELECT ZoneID FROM JBS_Zones" Set objRS = Conn.Execute(strSQL) IF objRS.EOF Or objRS.BOF Then ErrorFlag = "True" ErrorMessage = "NoZoneAdded" ELSE ErrorFlag = ErrorFlag ErrorMessage = ErrorMessage END IF objRS.Close : Set objRS = Nothing strSQL = "SELECT AdvertiserID FROM JBS_Advertiser" Set objRS = Conn.Execute(strSQL) IF objRS.EOF Or objRS.BOF Then ErrorFlag = "True" ErrorMessage = "NoAdvertiserAdded" ELSE ErrorFlag = ErrorFlag ErrorMessage = ErrorMessage END IF objRS.Close : Set objRS = Nothing IF ((ErrorFlag = "True") AND ErrorMessage = "NoZoneAdded") THEN Call writePageNavigation("" & Application(getLang() & "_strJBS_00070") & "", Application(getLang() & "_strJBS_00470"),"","") %>

	<% = Application(getLang() & "_strJBS_01270") %>! <% = Application(getLang() & "_strJBS_01720") %>.	?" name="B1" onClick="window.location='addZone.asp';">
		" OnClick="window.location='javascript:history.go(-1)';">

<% ELSEIF ((ErrorFlag = "True") AND ErrorMessage = "NoAdvertiserAdded") THEN Call writePageNavigation("" & Application(getLang() & "_strJBS_00060") & "", Application(getLang() & "_strJBS_00470"),"","") %>

	<% = Application(getLang() & "_strJBS_01260") %>! <% = Application(getLang() & "_strJBS_01730") %>.	?" name="B1" onClick="window.location='addAdvertiser.asp';">
		" OnClick="window.location='javascript:history.go(-1)';">

<% ELSEIF ((ErrorFlag = "False") AND ErrorMessage = "") THEN Call writePageNavigation("" & Application(getLang() & "_strJBS_00060") & "", Application(getLang() & "_strJBS_00470"),"","") If Session("JBSX_Update") = "False" Then Response.Write "" Session("JBSX_Update") = "" ElseIf Session("JBSX_Update") = "True" then %> <% Session("JBSX_Update") = "" End if Dim Status_TypeTextLinkAd, Status_TypeImageAd, StatusField_bTimeRange, StatusField_bUnitCost, StatusField_bQuantityPurchased IF getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsAddBanner")) = "True" THEN If Session("JBSX_mem_Form_Fld_BannerType") = "TypeTextLinkAd" then Status_TypeTextLinkAd = "" Else Status_TypeTextLinkAd = " style=""background-color: #F3F3F3;"" disabled" End If If Session("JBSX_mem_Form_Fld_BannerType") = "TypeImageAd" then Status_TypeImageAd = "" Else Status_TypeImageAd = " style=""background-color: #F3F3F3;"" disabled" End If if Session("JBSX_mem_Form_Fld_bPaymentType") = "3" then StatusField_bTimeRange = " style=""color: #0000FF; border: #FFFFFF;""" Else StatusField_bTimeRange = " style=""visibility: hidden;""" End If if (((Session("JBSX_mem_Form_Fld_bPaymentType") = "1") Or Session("JBSX_mem_Form_Fld_bPaymentType") = "2") Or Session("JBSX_mem_Form_Fld_bPaymentType") = "3") then StatusField_bUnitCost = "" Else StatusField_bUnitCost = " style=""background-color: #F3F3F3;"" disabled" End If if ((Session("JBSX_mem_Form_Fld_bPaymentType") = "1") Or Session("JBSX_mem_Form_Fld_bPaymentType") = "2") then StatusField_bQuantityPurchased = "" Else StatusField_bQuantityPurchased = " style=""background-color: #F3F3F3;"" disabled" End If ELSE Status_TypeTextLinkAd = " style=""background-color: #F3F3F3;"" disabled" Status_TypeImageAd = " style=""background-color: #F3F3F3;"" disabled" StatusField_bTimeRange = " style=""visibility: hidden;""" StatusField_bUnitCost = " style=""background-color: #F3F3F3;"" disabled" StatusField_bQuantityPurchased = " style=""background-color: #F3F3F3;"" disabled" END IF Dim mem_Form_Fld_bAdvertiserID if Len(Session("JBSX_mem_Form_Fld_bAdvertiserID")) <> 0 then mem_Form_Fld_bAdvertiserID = Session("JBSX_mem_Form_Fld_bAdvertiserID") else mem_Form_Fld_bAdvertiserID = Request("bAdvertiserID") end if Dim mem_Form_Fld_bZoneID if Len(Session("JBSX_mem_Form_Fld_bZoneID")) <> 0 then mem_Form_Fld_bZoneID = Session("JBSX_mem_Form_Fld_bZoneID") else mem_Form_Fld_bZoneID = Request("bZoneID") end if %>

:: <% = Application(getLang() & "_strJBS_01740") %> ::  <% = Application(getLang() & "_strJBS_01750") %>:   "<%=StatusFieldPermission%>><%=Session("JBSX_Form_Fld_bName")%>  <% = Application(getLang() & "_strJBS_00430") %>:   <%=WriteAdvertiserSelectList(mem_Form_Fld_bAdvertiserID, StatusFieldPermission)%> <%=Session("JBSX_Form_Fld_bAdvertiserID")%>  <% = Application(getLang() & "_strJBS_00450") %>:   <%=WriteZoneSelectList(mem_Form_Fld_bZoneID, StatusFieldPermission)%> <%=Session("JBSX_Form_Fld_bZoneID")%>  <% = Application(getLang() & "_strJBS_01760") %>:   <% 'Sets the select names Dim StartDay : StartDay = "StartDay" Dim StartMonth : StartMonth = "StartMonth" Dim StartYear : StartYear = "StartYear" Call WriteFormDate(Date(),Session("JBSX_mem_Form_Fld_StartDay"),Session("JBSX_mem_Form_Fld_StartMonth"),Session("JBSX_mem_Form_Fld_StartYear"),StartDay,StartMonth,StartYear,StatusFieldPermission) %>  <% = Application(getLang() & "_strJBS_01770") %>:   <% 'Sets the select names Dim EndDay : EndDay = "EndDay" Dim EndMonth : EndMonth = "EndMonth" Dim EndYear : EndYear = "EndYear" Call WriteFormDate(Date(),Session("JBSX_mem_Form_Fld_EndDay"),Session("JBSX_mem_Form_Fld_EndMonth"),Session("JBSX_mem_Form_Fld_EndYear"),EndDay,EndMonth,EndYear,StatusFieldPermission) %> <%=Session("JBSX_Form_Fld_EndDate")%>  <% = Application(getLang() & "_strJBS_00670") %>:   > ><% = Application(getLang() & "_strJBS_00680") %> ><% = Application(getLang() & "_strJBS_00690") %>  <% = Application(getLang() & "_strJBS_01780") %>   > > :: 10 :: > :: 9 :: > :: 8 :: > :: 7 :: > :: 6 :: > :: 5 :: > :: 4 :: > :: 3 :: > :: 2 :: > :: 1 ::  <% = Application(getLang() & "_strJBS_01790") %>:   > >_Blank (<% = Application(getLang() & "_strJBS_01800") %>) >_Parent (<% = Application(getLang() & "_strJBS_01810") %>) >_Self (<% = Application(getLang() & "_strJBS_01820") %>) >_Top (<% = Application(getLang() & "_strJBS_01830") %>)  <% = Application(getLang() & "_strJBS_01840") %>:   " size="65"<%=StatusFieldPermission%>><%=Session("JBSX_Form_Fld_bTargetUrl")%>  <% = Application(getLang() & "_strJBS_01850") %>:   <% = Application(getLang() & "_strJBS_00740") %>: <%=StatusFieldPermission%>>    <% = Application(getLang() & "_strJBS_00730") %>: <%=StatusFieldPermission%>><%=Session("JBSX_Form_Fld_BannerType")%>  :: <% = Application(getLang() & "_strJBS_03210") %> - <% = Application(getLang() & "_strJBS_00740") %> ::  <% = Application(getLang() & "_strJBS_00740") %>:   ><%=Session("JBSX_Form_Fld_bTextLinkAd")%>   <% = Application(getLang() & "_strJBS_01650") %>!   <% = Application(getLang() & "_strJBS_01860") %>.  <% = Application(getLang() & "_strJBS_01870") %>:  "<a target="_blank" href="[JBS_URL]">Visit Jiro´s.net</a>"   :: <% = Application(getLang() & "_strJBS_03210") %> -  <% = Application(getLang() & "_strJBS_00730") %> ::  <% = Application(getLang() & "_strJBS_01880") %>:   " size="65"<%=Status_TypeImageAd%>><%=Session("JBSX_Form_Fld_bImageAdUrl")%> >  <% = Application(getLang() & "_strJBS_01890") %> Alt:   " size="65"<%=Status_TypeImageAd%>>  <% = Application(getLang() & "_strJBS_01890") %>:  <% = Application(getLang() & "_strJBS_01900") %>: " size="8"<%=Status_TypeImageAd%>><%=Session("JBSX_Form_Fld_bImageAdWidth")%> <% = Application(getLang() & "_strJBS_01910") %>:" size="8"<%=Status_TypeImageAd%>><%=Session("JBSX_Form_Fld_bImageAdHeight")%> <% = Application(getLang() & "_strJBS_01920") %>: > > :: 0 :: > :: 1 :: > :: 2 :: > :: 3 :: > :: 4 :: > :: 5 :: :: <% = Application(getLang() & "_strJBS_01420") %> ::  <% = Application(getLang() & "_strJBS_01430") %>   > ><% = Application(getLang() & "_strJBS_01450") %> ><% = Application(getLang() & "_strJBS_01460") %> ><% = Application(getLang() & "_strJBS_01470") %> ><% = Application(getLang() & "_strJBS_01480") %>    " size="65"<%=StatusField_bTimeRange%>>  <% = Application(getLang() & "_strJBS_01440") %>:    <% Dim FieldValue1 : FieldValue1 = Session("JBSX_mem_Form_Fld_bUnitCost") If FieldValue1 = "" Then FieldValue1 = "0" End If %> > <%=Session("JBSX_Form_Fld_bUnitCost")%>  <% = Application(getLang() & "_strJBS_01490") %>:   <% Dim FieldValue2 : FieldValue2 = Session("JBSX_mem_Form_Fld_bQuantityPurchased") If FieldValue2 = "" Then FieldValue2 = "0" End If %> > :: <% = Application(getLang() & "_strJBS_01680") %> ::  <% = Application(getLang() & "_strJBS_01690") %>:  ><%=Session("JBSX_mem_Form_Fld_bAdditionalText")%>

" OnClick="window.location='javascript:history.go(-1)';">

<% IF getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsAddBanner")) = "True" THEN %> ">  " OnClick="javascript:location.reload();"> <% ELSE %> (<% = Application(getLang() & "_strJBS_00920") %>) <% END IF %>

<% ELSE Response.Write "Error!!" END IF Session("JBSX_Update") = "" Session("JBSX_Form_Fld_bAdvertiserID") = "" Session("JBSX_Form_Fld_bZoneID") = "" Session("JBSX_Form_Fld_EndDate") = "" Session("JBSX_Form_Fld_bName") = "" Session("JBSX_Form_Fld_bTargetUrl") = "" Session("JBSX_Form_Fld_BannerType") = "" Session("JBSX_Form_Fld_bTextLinkAd") = "" Session("JBSX_Form_Fld_bImageAdUrl") = "" Session("JBSX_Form_Fld_bImageAdWidth") = "" Session("JBSX_Form_Fld_bImageAdHeight") = "" Session("JBSX_Form_Fld_bUnitCost") = "" Session("JBSX_mem_Form_Fld_bName") = "" Session("JBSX_mem_Form_Fld_bZoneID") = "" Session("JBSX_mem_Form_Fld_bAdvertiserID") = "" Session("JBSX_mem_Form_Fld_bTargetUrl") = "" Session("JBSX_mem_Form_Fld_BannerType") = "" Session("JBSX_mem_Form_Fld_StartDay") = "" Session("JBSX_mem_Form_Fld_StartMonth") = "" Session("JBSX_mem_Form_Fld_StartYear") = "" Session("JBSX_mem_Form_Fld_EndDay") = "" Session("JBSX_mem_Form_Fld_EndMonth") = "" Session("JBSX_mem_Form_Fld_EndYear") = "" Session("JBSX_mem_Form_Fld_bStatus") = "" Session("JBSX_mem_Form_Fld_bWeight") = "" Session("JBSX_mem_Form_Fld_bTargetWindow") = "" Session("JBSX_mem_Form_Fld_bTextLinkAd") = "" Session("JBSX_mem_Form_Fld_bImageAdUrl") = "" Session("JBSX_mem_Form_Fld_bImageAdAlt") = "" Session("JBSX_mem_Form_Fld_bImageAdWidth") = "" Session("JBSX_mem_Form_Fld_bImageAdHeight") = "" Session("JBSX_mem_Form_Fld_bImageAdBorder") = "" Session("JBSX_mem_Form_Fld_bPaymentType") = "" Session("JBSX_mem_Form_Fld_bUnitCost") = "" Session("JBSX_mem_Form_Fld_bQuantityPurchased") = "" Session("JBSX_mem_Form_Fld_bAdditionalText") = "" Call incFile(getTemplate(), "Bottom") %>