<cfsetting requesttimeout=5000><Cfif parameterexists(url.add)>

<cfabort>
	<CFQUERY NAME="Insert" datasource="#ds#">
  INSERT INTO columntable
  (title,Columnnum,blurb,copy,DateSubmitted,mag,general,keywords,postedby,hottopic,seo_title)
  VALUES ('#form.title#',752,'#form.blurb#','',#CurrentDateTime#,5,1,'','System',0,'')
</CFQUERY>

<cfquery name="gettop" dataSource="#ds#">
	select id from columntable
	order by id DESC
	limit 0,1
</cfquery>
<Cfquery name="getcatname" dataSource="#ds#">
	select catname from ParentsListingsCatMain
	where id = #form.catid#
</cfquery>

<cfquery name=addphoto datasource="#ds#">
INSERT INTO directoryarticles(colid,region,categoryname,catid,headline)
VALUES	(#gettop.id#,'#form.region#','#getcatname.catname#',#catid#,'#form.title#')
</cfquery>


</Cfif>

<cfcontent type="text/html;charset=iso-8859-1">
<cfprocessingDirective pageencoding="iso-8859-1">
<cfset setEncoding("Form", "ISO-8859-15")>
<Cfif not parameterexists(url.runme)
	>

<cfinclude template="header.cfm">
</cfif>

<div id="content">
  <div id="content-header">
  </div>
  <div class="container-fluid" style="margin-left:200px;">




					<table border="0" cellpadding="8" cellspacing="0" width="100%">
					<tr>
					<td style="padding:4px;" valign="top">




<span class="header">Directory Articles Admin</span></strong><br>

<!---<cfset thismonth = dateformat(now(),'mmmm')>
<cfoutput>#thismonth# 1
</cfoutput>		yes!
--->

<Cfif parameterexists(getuser.email)>
<br><br>	<a href="/directoryarticles.cfm?runme=on&requesttimeout=5000">GO!</a>

| <a href="/directoryarticles-short.cfm?mailme=on&requesttimeout=5000">Send Too Short</a>
| <a href="/directoryarticles-long.cfm?mailme=on&requesttimeout=5000">Send Too Long</a>
<br><br>
<B>Show Just:</B> <a href="directoryarticles.cfm">All</a> | 

<cfquery name="getr" dataSource="#ds#">
	select distinct region from directoryarticles
	where region <> 'Fairfield'
	order by region
</cfquery>

<Cfoutput query="Getr">	
<a href="directoryarticles.cfm?region=#region#">#region#</a> <Cfif #currentrow# is not #recordcount#> | </Cfif> 
</Cfoutput>
</Cfif>
<br><br>
<Cfif parameterexists(url.save)>

	<cfquery name="upds" dataSource="#ds#">
		update directoryarticles
		set <!---catid = '#form.catid#', --->headline = '#form.headline#' <!---,blurb = '#form.blurb#'--->, bottomtext = '#form.bottomtext#',subtitle = '#form.subtitle#',catid = '#form.catid#',shorttitle = '#form.shorttitle#', digitaltext = '#form.digitaltext#',
		displaycatpage = '#form.displaycatpage#',
		ordernum = #form.ordernum#
		where id = #url.save#
</cfquery>
</Cfif>

<Cfif parameterexists(url.edit)>

<Cfquery name="Gets" dataSource="#ds#">
	select * from directoryarticles
where id = #url.edit#
limit 0,1
</cfquery>

<cfFORM action="directoryarticles.cfm?save=#url.edit#" method="post" name="MyForm" enctype="multipart/form-data">

<table>
  <tr><td style="padding:4px;">
	  <b><font SIZE="-1" FACE="verdana">Headline:</font></b>
  </td><td style="padding:4px;"><Cfoutput>
	  <input NAME="headline" SIZE="100" value="#Gets.Headline#">
  </td></tr></Cfoutput>
  
    <tr><td style="padding:4px;">
	  <b><font SIZE="-1" FACE="verdana">Subtitle:</font></b>
  </td><td style="padding:4px;"><Cfoutput>
	  <input NAME="Subtitle" SIZE="100" value="#Gets.Subtitle#">
	  
	  
  </td></tr>
    </Cfoutput>


     <tr><td style="padding:4px;">
	  <b><font SIZE="-1" FACE="verdana">Order Number:</font></b>
  </td><td style="padding:4px;"><Cfoutput>
	  <input NAME="ordernum" SIZE="100" value="#Gets.ordernum#">
	  
	  
  </td></tr>
    </Cfoutput>
    
         <tr><td style="padding:4px;">
	  <b><font SIZE="-1" FACE="verdana">Display on Category Page:</font></b>
  </td><td style="padding:4px;"><Cfoutput>
	  <input NAME="displaycatpage" SIZE="100" value="#Gets.displaycatpage#">
	  
	  
  </td></tr>
    </Cfoutput>
    

    
     <tr><td style="padding:4px;">
	  <b><font SIZE="-1" FACE="verdana">Short Title:</font></b>
  </td><td style="padding:4px;"><Cfoutput>
	  <input NAME="shorttitle" SIZE="100" value="#Gets.shorttitle#">
	  
	  
  </td></tr>
    </Cfoutput>
    
    
    <tr><td style="padding:4px;">
	  <b><font SIZE="-1" FACE="verdana">Cats:</font></b>
  </td><td style="padding:4px;"><Cfoutput>
	  <input NAME="catid" SIZE="100" value="#Gets.catid#">
	  
	  
  </td></tr>
  
  
  </Cfoutput>
  <!---
    <tr><td style="padding:4px;">
	  <b><font SIZE="-1" FACE="verdana">Blurb:</font></b>
  </td><td style="padding:4px;">
	 <Textarea name="blurb" style="width:100%;height:100px;"><Cfoutput>#gets.blurb#</Cfoutput></Textarea>

  </td></tr> --->
   <tr><td style="padding:4px;">
	  <b><font SIZE="-1" FACE="verdana">Digital Guide Text:</font></b>
  </td><td style="padding:4px;">
	 <Textarea name="digitaltext" style="width:100%;height:100px;"><Cfoutput>#gets.digitaltext#</Cfoutput></Textarea>

  </td></tr>
  
    <tr><td style="padding:4px;">
	  <b><font SIZE="-1" FACE="verdana">Bottom Text:</font></b>
  </td><td style="padding:4px;">

<script src="//cdn.ckeditor.com/4.6.2/standard/ckeditor.js"></script>
        <textarea name="bottomtext"><Cfoutput>#gets.bottomtext#</Cfoutput></textarea>
        <script>
            CKEDITOR.replace( 'bottomtext' );
        </script>


        <script>
            CKEDITOR.replace( 'digitaltext' );
        </script>

  </td></tr>



</table><input name="entry" type="submit" Value="Update ">


</cfFORM>

<cfabort>
<cfelse>


<Cfquery name="Gets" dataSource="#ds#">
	select * from directoryarticles
where region <> 'Fairfield'
<cfif parameterexists(url.region)>
	and region = '#url.region#'
</cfif>	
 order by livedate,region,ID
</cfquery>

<table cellpadding="2" cellspacing="0" border="1">

	<tr style="background-color: black;">
<td style="padding:4px;"></td>

<td style="padding:4px;"><font color="white" face="verdana" size="-1"><b>Count</Td>
<td style="padding:4px;"><font color="white" face="verdana" size="-1"><b>Region</Td>

<td style="padding:4px;"><font color="white" face="verdana" size="-1"><b>Category</Td>
<td style="padding:4px;"><font color="white" face="verdana" size="-1"><b>Headline</Td>
<!----<td style="padding:4px;"><font color="white" face="verdana" size="-1"><b>Blurb</Td>
<td style="padding:4px;"><font color="white" face="verdana" size="-1"><b>Blurb Words</Td>
--->
<td style="padding:4px;"><font color="white" face="verdana" size="-1"><b>Preview</Td>
<td style="padding:4px;"><font color="white" face="verdana" size="-1"><b>Preview w/ Edit</Td>

<td style="padding:4px;"><font color="white" face="verdana" size="-1"><b>Live</Td>
</tr>
<Cfoutput query="Gets">

<!---
<Cfquery name="Geter" dataSource="#ds#">
	select title,blurb from columntable where id = #colid#
</cfquery>
	<cfquery name="upds" dataSource="#ds#">
		update directoryarticles
		set headline = '#Geter.title#',blurb = '#geter.blurb#'
		where colid = #colid#
</cfquery>

--->




		<cfif region eq 'Manhattan'>
	<Cfset #mag# = 'BAP'>
	</Cfif>

<cfif region eq 'Manahttan'>
	<Cfset #mag# = 'BAP'>
	</Cfif>


<cfif region eq 'Westchester'>
	<Cfset #mag# = 'WP'>
	</Cfif>

	<cfif region eq 'Brooklyn'>
	<Cfset #mag# = 'BP'>
	</Cfif>

	<cfif region eq 'Queens'>
	<Cfset #mag# = 'QP'>
	</Cfif>

	<cfif region eq 'Rockland'>
	<Cfset #mag# = 'RP'>
	</Cfif>


	<cfif region eq 'Fairfield'>
	<Cfset #mag# = 'FP'>
	</Cfif>


<Cfset be = #dateformat(now(),'2018-mm-dd')#>



 <cfquery name="getstuff" datasource="#ds#">
 select issueguide.id, issueguide.pkid, 	issueguide.editedby,issueguidecat.issue,issueguidecat.mags,issueguide.offer,issueguide.expirationdate,issueguidecat.issueguideid,ParentsListings.id,ParentsListingsCatMain.shortname as category
 from issueguide inner join issueguidecat on issueguidecat.issueguideid = issueguide.id inner join ParentsListings on issueguide.pkid = ParentsListings.id inner join ParentsListingsCatMain on issueguide.catid = ParentsListingsCatMain.id
 where
1=1

and ( issueguidecat.issue = '#dateformat(now(),'mmmm yyyy')#'
or issueguide.expirationdate  > '#dateformat(now(),'yyyy-mm-dd')#'
or issueguidecat.issue = 'February 2017'

or issueguidecat.issuemy between '2017-01-01' and '#be#'

<!---
or issueguidecat.issue = '#dateformat(gets.livedate,'mmmm yyyy')#'
--->
)

<!--- and
--->
<!--- issueguidecat.issue = '#url.issue#'



(issueguidecat.issue = 'August 2015' or issueguidecat.issue = 'August 2015' )--->

<cfif gets.region contains 'Long'>
and (issueguidecat.mags like '%NP%' or issueguidecat.mags like '%SP%')

<Cfelse>
and issueguidecat.mags like '%#mag#%'


	</Cfif>

and issueguide.writeup <> ''


 and issueguide.catid in (#catid#)

group by pkid
<!--- added --->
 </cfquery>


<tr <Cfif getstuff.recordcount eq 0 >bgcolor="pink"</Cfif>>
	<td style="padding:4px;"><A href="directoryarticles.cfm?edit=#id#">#id#</A></td>
	<td style="padding:4px;">



		<center>
		#getstuff.recordcount#

	</td>


	<td style="padding:4px;"><b>#region#</b></td>
	<td style="padding:4px;"><b><small>

<cfquery name="getsites" datasource="#ds#">
select *
from ParentsListingsCatMain
where id in (#catid#)
order by catname
</cfquery>

	<cfloop from="1" to="#getsites.recordcount#" index="i">
#getsites.catname[i]# - #getsites.id[i]#<Cfif #i# is not getsites.recordcount>,</Cfif> 

	</cfloop>
		<!---<Cfif #catid# eq 0 and #categoryname# is not 'Top Events'>NO MATCH</Cfif></b>

		<p>
			<b><a href="http://www.cityguideny.com/admin/editcol3334.cfm?id=#colid#&mag=5&topr=999999">#colid#</a></b>
		---></td>
	<td style="padding:4px;">#headline#
		
		<!---
		
		<p><i>#subtitle#</i></b>---></td>
<!---	<td style="padding:4px;">#blurb#</b></td>
<td style="padding:4px;">
		
		<cfset wordstr = trim(blurb)> <cfset wordstr = replaceList(wordstr, "'.""?","")> <cfset words = reMatch("[[:word:]]+", wordstr)>
#arraylen(words)#

		
	<!--- <cfset CookieCheck =  REFindNoCase(' ', blurb, 1, true)>
#cookiecheck#
--->	</td>
--->
	<!---<td style="padding:4px;"><cfset needle = '25'> 
<cfset result = (len(haystack) - len(ReplaceNoCase(haystack,needle,'','ALL'))/len(needle)> 

		#result#
		</b></td>
--->


<cfif #DATEFORMAT(LIVEDATE,'mmmm')# eq 'October' or  #DATEFORMAT(LIVEDATE,'mmmm')# eq 'November' or #DATEFORMAT(LIVEDATE,'mmmm')# eq 'December' or #DATEFORMAT(LIVEDATE,'mmmm')# eq 'January'>
	<td style="padding:4px;"><A href="exportonlineguidearticle.cfm?id=#id#">preview</A></td>

	<Cfelse>
	<td style="padding:4px;"><A href="exportonlineguidearticle.cfm?id=#id#">preview</A></td>

	</Cfif>
	<td style="padding:4px;"><A href="exportonlineguidearticle.cfm?id=#id#&edit=on">edit</A></td>


<!---

<cfquery name="getsub" dataSource="#ds#">
	select shortblurb from columntable
	where id = #colid#
</cfquery>
<Cfquery name="up" dataSource="#ds#">
	update directoryarticles
	set subtitle = '#getsub.shortblurb#'
	where colid = #colid#
</cfquery>		--->

<cfquery name="Getseo" dataSource="#ds#">
	select seo_friendly from columntable
	where id = #colid# 
</cfquery>

	<td><A href="https://www.nymetroparents.com/article/#Getseo.seo_friendly#">https://www.nymetroparents.com/article/#Getseo.seo_friendly#</A></td>


<Cfif parameterexists(url.runme)
	>
		yes!
<cfobjectcache action="clear">


	<cfhttp url="https://admin.nymetroparents.com/exportonlineguidearticle.cfm?id=#id#"
    method="GET" resolveurl="YES" timeout="50000">
</cfhttp>

<CFSET CurrentDateTime = #CreateODBCDateTime(Now())#>
<cfset monthvar = '#dateformat(currentdatetime,'MMMM YYYY')#'>

<Cfset newheadline = '#rereplace(Headline,'MONTHNAME','#monthvar#')#'>
<Cfset newblurb = '#rereplace(blurb,'MONTHNAME','#monthvar#')#'>

<!--- title = '#newheadline#', blurb = '#newblurb#', , shortblurb = '#subtitle#' --->
<Cfquery name="upds" dataSource="#ds#">
	update low_priority columntable
	set copy = '#cfhttp.filecontent#', dateposted = '#dateformat(now(),'yyyy-mm-dd')#',lastedit = '#dateformat(now(),'yyyy-mm-dd')#',postedby = 'System', Editedby = 'System'
	where id = #colid#
</cfquery>
</Cfif>
</tr>
<cfobjectcache action="clear">

</Cfoutput>
</table>


</Cfif>
<!---
<Cfoutput query="Gets">

<cfquery name="Getcatnympprint" datasource="cityguide">
SELECT cat,catid
FROM CatActivityPlanner
where mag = 55
and cat = '#categoryname#'
</cfquery>

<cfif #Getcatnympprint.recordcount# gt 0>
<Cfquery name="udps" dataSource="#ds#">
	update activityplannerarticles
	set catid = #Getcatnympprint.catid#
	where id = #gets.id#</cfquery>
</cfif>


<Cfquery name="getheadline" dataSource="#ds#">
	select title,blurb
	from columntable
	where id = #colid#
</cfquery>
<Cfquery name="udps" dataSource="#ds#">
	update activityplannerarticles
	set headline = '#getheadline.title#',
	blurb = '#getheadline.blurb#'
	where id = #gets.id#</cfquery>


</Cfoutput>
--->

<FORM action="directoryarticles.cfm?add=on" method=post  id="edit" name="edit">
   <table cellspacing=5 cellpadding=5>
	  <tr>
	  <td style="padding:4px;">
	  <b><font SIZE="-1" FACE="verdana" >Title:</font></b>
	  </td>
	  <td style="padding:4px;">
	  <input NAME="title" SIZE="70">
	  <input TYPE ="hidden" NAME="Title_required" VALUE="You must enter a title!">
	  </td>
	  </tr>




   <!--- <tr>
<td style="padding:4px;" colspan=2 align="left" valign="top">
<font SIZE="-1" FACE="verdana" ><b>Blurb:</b></font><br>
        <textarea name="blurb" cols="65" rows="3"  wrap="VIRTUAL"></textarea>
      </td>
    </tr>
---->
    <tr><td style="padding:4px;" valign=top colspan=2><font face=verdana size=-1><strong>Region:</strong> </font>
<select name="region">
<option value="Manhattan">Manhattan</option>
<option value="Brooklyn">Brooklyn</option>
<option value="Queens">Queens</option>
<option value="Westchester">Westchester</option>
<option value="Rockland">Rockland</option>
<option value="Bronx">Bronx</option>
<option value="Staten Island">Staten Island</option>
<option value="Essex">Essex</option>
<option value="Nassau">Nassau</option>
<option value="Fairfield">Fairfield</option>
<option value="Suffolk">Suffolk</option>
<option value="Bergen">Bergen</option>


</select>
</td></tr>

<cfquery name="Getcats" datasource="#ds#">
select id,catname
from ParentsListingsCatMain
order by catname
</cfquery>

 <tr><td style="padding:4px;" valign=top colspan=2><font face=verdana size=-1><strong>Category:</strong> </font>
<select name="catid">

<Cfoutput query="Getcats">
<option value="#id#">#catname#</option>
 </Cfoutput>

</select>
</td></tr>

	 </table>

<input type="submit" Value="Submit">
</FORM>

</td></tr></table>


   </div>
<!--Footer-part-->
<br><br><br><br>

<cfinclude template="footer.cfm">