<%@LANGUAGE="VBSCRIPT"%> <% Dim rsSiteNotice Dim rsSiteNotice_numRows Set rsSiteNotice = Server.CreateObject("ADODB.Recordset") rsSiteNotice.ActiveConnection = MM_dbConn_STRING rsSiteNotice.Source = "SELECT * FROM tbl_Site_Notice WHERE bitActive = TRUE ORDER BY cntNewsID_PK DESC , datDatePosted" rsSiteNotice.CursorType = 0 rsSiteNotice.CursorLocation = 2 rsSiteNotice.LockType = 1 rsSiteNotice.Open() rsSiteNotice_numRows = 0 %> <% if NOT(rsSiteNotice.EOF) then ' CHECK FOR NEWS ITEM / NOTICE ON MAIN PAGE AND IN DATE datDateExpire = rsSiteNotice("datDateExpire") if datDateExpire > Now() then ynNoticeInDate = TRUE else ynNoticeInDate = FALSE end if end if %> <% Dim rsOtherNewsDocuments Set rsOtherNewsDocuments = Server.CreateObject("ADODB.Recordset") rsOtherNewsDocuments.ActiveConnection = MM_dbConn_STRING rsOtherNewsDocuments.Source = "SELECT * FROM tbl_News_Items ORDER BY cntNewsID_PK DESC , datDatePosted" rsOtherNewsDocuments.CursorType = 0 rsOtherNewsDocuments.CursorLocation = 2 rsOtherNewsDocuments.LockType = 1 rsOtherNewsDocuments.Open() %> <% if NOT(rsOtherNewsDocuments.EOF) then ' CHECK FOR OTHER DOCUMENT / REPORT UPLOADED AND ACTIVE ? ynOtherDocument = rsOtherNewsDocuments("bitActive") if ynOtherDocument = TRUE then ynOtherDocument = TRUE else ynOtherDocument = FALSE end if end if %> <% ' get random photo images randomize intRand = INT(RND*14)+1 strHeaderImage = "images/banners/header-" & CStr(intRand) & ".jpg" intRand = INT(RND*14)+1 strBodyImage = "images/misc/home-" & CStr(intRand) & "-375.jpg" %> The Sandpit Nursery in Barnsley | providing quality Nursery childcare, Day Care, and out of School care for Barnsley
Select this link to Skip over Navigation to the main Page Content (access key is 2) Select this link for the Site Map (access key is 3)

Latest News from the Sandpit Nursery

Our monthly Newsletters are given out in traditional paper hard copy at the nursery. They are also available online for parents and carers to download below. Please note these are in Microsoft Word format.

Latest Newsletter : <% = MonthName(Month(Date)) %>  <% = Year(Date) %>

Sandpit Nursery Newsletter
Sandpit Nursery Newsletter
» Download the Newsletter »»

<% if ynOtherDocument = TRUE then strDetails = rsOtherNewsDocuments("strDetails") strDetails = Replace(strDetails, chr(13), "") %>

Other News / Notices / Reports

<% = rsOtherNewsDocuments("strTitle") %>

<% = strDetails %>

Click here to download »»

<% end if %>
<% if ynNoticeInDate = TRUE then ' CHECK FOR NEWS ITEM / NOTICE ON MAIN PAGE %>

Other News and Notices

<% Dim strFloatClass(2) strFloatClass(0)="ImgFloatLeft" strFloatClass(1)="ImgFloatRight" while NOT(rsSiteNotice.EOF) intCounter = intCounter + 1 intFloatNum = intCounter MOD 2 intID = rsSiteNotice("cntNewsID_PK") strItemTitle = rsSiteNotice("strTitle") strDetails = rsSiteNotice("strDetails") dtmDate = Day(rsSiteNotice("datDatePosted")) & " " & MonthName(Month(rsSiteNotice("datDatePosted"))) & " " & Year(rsSiteNotice("datDatePosted")) 'dtmDate = FormatDateTime(rsSiteNotice("datDatePosted"),vbLongDate) bitActive = rsSiteNotice("bitActive") %>
  •   <% =strItemTitle %>

<% =strDetails %>

<% =dtmDate %>


<% rsSiteNotice.MoveNext wend %> <% end if ' CHECK FOR NEWS ITEM / NOTICE ON MAIN PAGE %>
picture from the Sandpit Nursery
<% rsSiteNotice.Close() Set rsSiteNotice = Nothing %>