<%@LANGUAGE="VBSCRIPT"%> <% Dim RecordsetQuote Dim RecordsetQuote_numRows Set RecordsetQuote = Server.CreateObject("ADODB.Recordset") RecordsetQuote.ActiveConnection = MM_NTCDatabase_STRING RecordsetQuote.Source = "SELECT tblfeatureditems.quoteID, quotequote, quotename, quotegrade, quotetitle, quoteschool, quotecity, tblquotes.stateID, statename FROM tblquotes, tblfeatureditems, tblstates WHERE tblfeatureditems.quoteID =tblquotes.quoteID and tblquotes.stateID = tblstates.stateID" RecordsetQuote.CursorType = 0 RecordsetQuote.CursorLocation = 2 RecordsetQuote.LockType = 1 RecordsetQuote.Open() RecordsetQuote_numRows = 0 %> <% Dim RecordsetNowPlaying Dim RecordsetNowPlaying_numRows Set RecordsetNowPlaying = Server.CreateObject("ADODB.Recordset") RecordsetNowPlaying.ActiveConnection = MM_NTCDatabase_STRING RecordsetNowPlaying.Source = "SELECT tblfeatureditems.showID, showlogoindexpagepath, showindexpagedescription, showindexpageparagraph, categoryID, videoID, YouTubeID, YouTubeThumb, showname, showcharpic1 FROM tblshows, tblfeatureditems WHERE tblfeatureditems.showID = tblshows.showID" RecordsetNowPlaying.CursorType = 0 RecordsetNowPlaying.CursorLocation = 2 RecordsetNowPlaying.LockType = 1 RecordsetNowPlaying.Open() RecordsetNowPlaying_numRows = 0 %> <% Dim RecordSetNewsEvents Dim RecordSetNewsEvents_numRows Set RecordSetNewsEvents = Server.CreateObject("ADODB.Recordset") RecordSetNewsEvents.ActiveConnection = MM_NTCDatabase_STRING RecordSetNewsEvents.Source = "SELECT pressblurbforindexpage, pressphotopath, tblfeatureditems.pressID FROM tblpress, tblfeatureditems WHERE tblpress.pressID=tblfeatureditems.pressID" RecordSetNewsEvents.CursorType = 0 RecordSetNewsEvents.CursorLocation = 2 RecordSetNewsEvents.LockType = 1 RecordSetNewsEvents.Open() RecordSetNewsEvents_numRows = 0 %> <% Dim RecordsetWelcomeStaff Dim RecordsetWelcomeStaff_numRows Set RecordsetWelcomeStaff = Server.CreateObject("ADODB.Recordset") RecordsetWelcomeStaff.ActiveConnection = MM_NTCDatabase_STRING RecordsetWelcomeStaff.Source = "SELECT staffIndexPicture, staffIndexText, stafftitle, tblstaff.staffID, staffname FROM tblstaff, tblfeatureditems WHERE tblstaff.staffID = tblfeatureditems.staffindexID" RecordsetWelcomeStaff.CursorType = 0 RecordsetWelcomeStaff.CursorLocation = 2 RecordsetWelcomeStaff.LockType = 1 RecordsetWelcomeStaff.Open() RecordsetWelcomeStaff_numRows = 0 %> <% Dim YouTubeVideos Dim YouTubeVideos_numRows Set YouTubeVideos = Server.CreateObject("ADODB.Recordset") YouTubeVideos.ActiveConnection = MM_NTCDatabase_STRING YouTubeVideos.Source = "SELECT * FROM tblYouTubeVideos" YouTubeVideos.CursorType = 0 YouTubeVideos.CursorLocation = 2 YouTubeVideos.LockType = 1 YouTubeVideos.Open() YouTubeVideos_numRows = 0 %> <% Dim RecordsetAvPrograms Dim RecordsetAvPrograms_cmd Dim RecordsetAvPrograms_numRows Set RecordsetAvPrograms_cmd = Server.CreateObject ("ADODB.Command") RecordsetAvPrograms_cmd.ActiveConnection = MM_NTCDatabase_STRING RecordsetAvPrograms_cmd.CommandText = "SELECT * FROM tblshows WHERE showincurrentseason LIKE '%av%' ORDER BY showname ASC" RecordsetAvPrograms_cmd.Prepared = true Set RecordsetAvPrograms = RecordsetAvPrograms_cmd.Execute RecordsetAvPrograms_numRows = 0 %> <% Dim RecordsetAvStates Dim RecordsetAvStates_cmd Dim RecordsetAvStates_numRows Set RecordsetAvStates_cmd = Server.CreateObject ("ADODB.Command") RecordsetAvStates_cmd.ActiveConnection = MM_NTCDatabase_STRING RecordsetAvStates_cmd.CommandText = "SELECT * FROM tblstates WHERE stateCurrentlyOffered LIKE '%y%'" RecordsetAvStates_cmd.Prepared = true Set RecordsetAvStates = RecordsetAvStates_cmd.Execute RecordsetAvStates_numRows = 0 %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_NTCDatabase_STRING Recordset1.Source = "SELECT * FROM tblshows WHERE showincurrentseason <> '' ORDER BY showname" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_NTCDatabase_STRING Recordset2.Source = "SELECT * FROM tblcategories ORDER BY categoryname" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = -1 Repeat5__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat5__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 RecordsetAvStates_numRows = RecordsetAvStates_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 RecordsetAvStates_numRows = RecordsetAvStates_numRows + Repeat3__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 YouTubeVideos_numRows = YouTubeVideos_numRows + Repeat1__numRows %> The National Theatre for Children - Teach. Entertain. Inspire.
 
 
programs     testimonials     staff     partner login     troupe login     contact us
Categories
All Programs

Programs

<% While ((Repeat4__numRows <> 0) AND (NOT Recordset2.EOF)) %>
<% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 Recordset2.MoveNext() Wend %>
<% While ((Repeat5__numRows <> 0) AND (NOT Recordset1.EOF)) %>
&categoryID=<%=(Recordset1.Fields.Item("categoryID").Value)%>&videoID=<%=(Recordset1.Fields.Item("videoID").Value)%>&program=<%=(Recordset1.Fields.Item("showname").Value)%>"><%=(Recordset1.Fields.Item("showname").Value)%> <%=(Recordset1.Fields.Item("subcategory").Value)%>
<% Repeat5__index=Repeat5__index+1 Repeat5__numRows=Repeat5__numRows-1 Recordset1.MoveNext() Wend %>
<% RecordsetQuote.Close() Set RecordsetQuote = Nothing %> <% RecordsetNowPlaying.Close() Set RecordsetNowPlaying = Nothing %> <% RecordSetNewsEvents.Close() Set RecordSetNewsEvents = Nothing %> <% RecordsetWelcomeStaff.Close() Set RecordsetWelcomeStaff = Nothing %> <% YouTubeVideos.Close() Set YouTubeVideos = Nothing %> <% RecordsetAvPrograms.Close() Set RecordsetAvPrograms = Nothing %> <% RecordsetAvStates.Close() Set RecordsetAvStates = Nothing %>