<%Option Explicit%> <% Dim strSql, rsKidsItems, arrColours arrColours = GetColours() strSql = "SELECT * FROM KIDS_ITEM ORDER BY DATE_TIME DESC" If Not CreateConnection() Then Response.write(GetDatabaseErrorMessage()) End If Set rsKidsItems = GetRecordset(strSQL) %> Newhampton Arts Centre


“It was brilliant”
(Stage fighting workshop.
Girl aged 8)

“This is a good workshop and should come here every half term” (Bollywood Drama Boy Age 10)
 


Kids Zone

The Newhampton Arts Centre has lots
going on for children and young people.
From weekly youth theatre and dance
classes to holiday workshops and
shows chosen for their youth appeal.

Children with disabilities and special needs are welcomed to all our activities. Contact us to discuss any support you might need.

We want to hear from you. Tell us about something you have seen or done at the NAC or what you would like to do here. Email your ideas to admin@newhamptonarts.co.uk to win free show tickets.

<% Dim strSqlImages, rsImages Do while not rsKidsItems.EOF %> <% rsKidsItems.MoveNext() Loop %>

 

<%= rsKidsItems.Fields("KIDS_ITEM_TITLE")%>

    <% Dim intCount, strText, strLink ' Write out the links in a list For intCount = 1 to 3 strText = trim(rsKidsItems.Fields("LINK_" & intCount & "_TEXT") & "") strLink = trim(rsKidsItems.Fields("LINK_" & intCount & "_LINK") & "") If strText <> "" and strLink <> "" Then Response.Write("
  • " & strText & "
    • ") Elseif strText <> "" Then Response.Write("
  • " & strText & "
    • ") End If Next %>
<% If trim(rsKidsItems.Fields("KIDS_ITEM_BODY") & "") <> "" Then Response.Write("

" & Replace(rsKidsItems.Fields("KIDS_ITEM_BODY"), chr(13), "
") & "

") End If %>
<% strSqlImages = "SELECT LINKED_IMAGE_NAME FROM LINKED_IMAGE WHERE " &_ "LINKED_IMAGE_PARENT_ID = " & rsKidsItems.Fields("KIDS_ITEM_ID") set rsImages = GetRecordset(strSqlImages) Do while not rsImages.EOF If trim(rsImages.Fields("LINKED_IMAGE_NAME") & "") <> "" Then %> <% End If rsImages.MoveNext() Loop %>
"/>
General Enquiries Tel/Fax: 01902 572090 or email: admin@newhamptonarts.co.uk

<% If rsImages.State = adStateOpen then rsImages.Close End If If rsKidsItems.State = adStateOpen then rsKidsItems.Close End If ReleaseConnection %>