<%@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.Fields.Item("datDateExpire").Value) if datDateExpire > Now() then ynNoticeInDate = TRUE else ynNoticeInDate = 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" Dim aryHomeIcons(10) aryHomeIcons(1) = "home-icon-ball-block.gif" aryHomeIcons(2) = "home-icon-blocks.gif" aryHomeIcons(3) = "home-icon-ducky.gif" aryHomeIcons(4) = "home-icon-piglet.gif" aryHomeIcons(5) = "home-icon-shapes.gif" aryHomeIcons(6) = "home-icon-soft-ball.gif" aryHomeIcons(7) = "home-icon-soft-toys.gif" aryHomeIcons(8) = "home-icon-stacker.gif" aryHomeIcons(9) = "home-icon-stacker2.gif" aryHomeIcons(10) = "home-icon-teddy.gif" intRand1 = INT(RND*10)+1 strIcon1Image = "images/misc/" & aryHomeIcons(intRand1) intRand2 = INT(RND*10)+1 if intRand1 = intRand2 then intRand2 = intRand2 + 1 if intRand2 > 10 then intRand2 = 1 strIcon2Image = "images/misc/" & aryHomeIcons(intRand2) intRandSection1 = INT(RND*2)+1 intRandSection2 = INT(RND*2)+1 %> The Sandpit Nursery, 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)

Welcome to the Sandpit Nursery, Barnsley

To provide families with quality nursery and childcare – that’s the idea behind everything we do here at the Sandpit.

Choosing the right nursery for your child is both a difficult and an exciting time for all the family. Our website contains full information about the Sandpit Nursery, our beliefs, and how we care for and guide your child in the crucial first years. We hope that the information provided will encourage you to come and visit us where we will be delighted to show you and your child around.

<% ' ** SHOW RANDOM PAGE SECTIONS / LINKS TO OTHER PARTS OF SITE ** %> <% if intRandSection1 = 1 then ' show baby rooms link %>

Our Baby & Nursery Rooms

Find out how we make sure our Baby and Nursery rooms help to give your child the best possible start.   Read more

<% end if %> <% if intRandSection1 = 2 then ' show Policies and Procedures link %>

Our Policies and Procedures

Find out more about guaranteeing the safety, security and quality of care and learning of your child.   Read more

<% end if %> <% if intRandSection2 = 1 then ' show Parents Guide link %>

Our Parents Guide

Find answers to some of your more common queries, questions and concerns   Read more

<% end if %> <% if intRandSection2 = 2 then ' show nursery Staff link %>

Meet our Staff

Find out more about the staff who work at the Sandpit Nursery   Read more

<% end if %> <% ' ** END RANDOM PAGE SECTIONS / LINKS TO OTHER PARTS OF SITE ** %>

New for 2008 ! Saturday Creche

Every Saturday from 10am – 3pm   - more details available here »»

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

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