<% Response.Buffer = True %> Westminster College of the Arts - Rider University - <% Response.Write(GetHeadline()) %>
Return to Westminster Choir of the Arts Homepage Directions | Campus Safety | Calendars | Directory | Libraries | Web Mail
 
Prospective StudentsCurrent StudentsAlumniCommunity PartnersGive to WestminsterFaculty & Staff
<% dim CurrentPageID, SelectedItem, Nesting CurrentPageID = 2217 SelectedItem = "Continuing Education" BreadCrumb = GetNavigationPath() 'Response.write(breadcrumb & "
") PageLevel = GetLevel(breadcrumb) 'Response.write("Level:" & PageLevel) 'Response.write("BC:" & breadcrumb) HaveHead = False OnSecondLevel = False 'Response.write(Pagelevel) %>
<% if SelectedItem = "Prospective Students" Or SelectedItem = "Alumni Connections" Or SelectedItem = "Support Westminster" Or SelectedItem = "Community Partners" then Select Case SelectedItem case "Prospective Students" Response.write("") case "Alumni Connections" Response.write("") case "Community Partners" Response.write("") case "Support Westminster" Response.write("") End Select Response.write("
    ") %> <% ' DidRender = False DidRender = True 'Nesting = "/1112/" if Int(CurrentPageID) <> Int(1112) Then Response.Write("
  • ") %> <% Response.Write("Summer Seminars") %> <% Response.Write("
    • ") else %>
  • Summer Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Seminars" subsecLink = "/886_1112.htm" end if NodeID = 1112 Response.write("") if InStr(1, BreadCrumb, "/" & 1013 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2215) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2212) Then thes3nv="Course Listing and Descriptions" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2216) Then thes3nv="Registration & Tuition Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2068/" if Int(CurrentPageID) <> Int(2068) Then Response.Write("
  • ") %> <% Response.Write("Summer Camps") %> <% Response.Write("
    • ") else %>
  • Summer Camps
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/886_2068.htm" end if NodeID = 2068 Response.write("") if InStr(1, BreadCrumb, "/" & 2067 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17242) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/1111/" if Int(CurrentPageID) <> Int(1111) Then Response.Write("
  • ") %> <% Response.Write("Saturday Seminars") %> <% Response.Write("
    • ") else %>
  • Saturday Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Saturday Seminars" subsecLink = "/886_1111.htm" end if NodeID = 1111 Response.write("") if InStr(1, BreadCrumb, "/" & 1012 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17193) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2456/" if Int(CurrentPageID) <> Int(2456) Then Response.Write("
  • ") %> <% Response.Write("CoOperative Program") %> <% Response.Write("
    • ") else %>
  • CoOperative Program
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "CoOperative Program" subsecLink = "/886_2456.htm" end if NodeID = 2456 Response.write("") if InStr(1, BreadCrumb, "/" & 14861 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1113/" if Int(CurrentPageID) <> Int(1113) Then Response.Write("
  • ") %> <% Response.Write("Piano Pedagogy Certificate") %> <% Response.Write("
    • ") else %>
  • Piano Pedagogy Certificate
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Piano Pedagogy Certificate" subsecLink = "/886_1113.htm" end if NodeID = 1113 Response.write("") if InStr(1, BreadCrumb, "/" & 1014 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14856/" if Int(CurrentPageID) <> Int(14856) Then Response.Write("
  • ") %> <% Response.Write("Florence Voice Seminar") %> <% Response.Write("
    • ") else %>
  • Florence Voice Seminar
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Florence Voice Seminar" subsecLink = "/886_14856.htm" end if NodeID = 14856 Response.write("") if InStr(1, BreadCrumb, "/" & 14855 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/8974/" if Int(CurrentPageID) <> Int(8974) Then Response.Write("
  • ") %> <% Response.Write("Westminster Chamber Choir") %> <% Response.Write("
    • ") else %>
  • Westminster Chamber Choir
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Chamber Choir" subsecLink = "/886_8974.htm" end if NodeID = 8974 Response.write("") if InStr(1, BreadCrumb, "/" & 14858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/17314/" if Int(CurrentPageID) <> Int(17314) Then Response.Write("
  • ") %> <% Response.Write("Westminster Choral Festival") %> <% Response.Write("
    • ") else %>
  • Westminster Choral Festival
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Choral Festival" subsecLink = "/886_17314.htm" end if NodeID = 17314 Response.write("") if InStr(1, BreadCrumb, "/" & 17313 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1114/" if Int(CurrentPageID) <> Int(1114) Then Response.Write("
  • ") %> <% Response.Write("Meet the Staff") %> <% Response.Write("
    • ") else %>
  • Meet the Staff
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Meet the Staff" subsecLink = "/886_1114.htm" end if NodeID = 1114 Response.write("") if InStr(1, BreadCrumb, "/" & 1015 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write("
") end if if SelectedItem <> "About Westminster" then %> About Westminster <% else Response.write("") Response.write("
    ") %> <% ' DidRender = False DidRender = True 'Nesting = "/1112/" if Int(CurrentPageID) <> Int(1112) Then Response.Write("
  • ") %> <% Response.Write("Summer Seminars") %> <% Response.Write("
    • ") else %>
  • Summer Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Seminars" subsecLink = "/886_1112.htm" end if NodeID = 1112 Response.write("") if InStr(1, BreadCrumb, "/" & 1013 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2215) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2212) Then thes3nv="Course Listing and Descriptions" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2216) Then thes3nv="Registration & Tuition Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2068/" if Int(CurrentPageID) <> Int(2068) Then Response.Write("
  • ") %> <% Response.Write("Summer Camps") %> <% Response.Write("
    • ") else %>
  • Summer Camps
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/886_2068.htm" end if NodeID = 2068 Response.write("") if InStr(1, BreadCrumb, "/" & 2067 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17242) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/1111/" if Int(CurrentPageID) <> Int(1111) Then Response.Write("
  • ") %> <% Response.Write("Saturday Seminars") %> <% Response.Write("
    • ") else %>
  • Saturday Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Saturday Seminars" subsecLink = "/886_1111.htm" end if NodeID = 1111 Response.write("") if InStr(1, BreadCrumb, "/" & 1012 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17193) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2456/" if Int(CurrentPageID) <> Int(2456) Then Response.Write("
  • ") %> <% Response.Write("CoOperative Program") %> <% Response.Write("
    • ") else %>
  • CoOperative Program
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "CoOperative Program" subsecLink = "/886_2456.htm" end if NodeID = 2456 Response.write("") if InStr(1, BreadCrumb, "/" & 14861 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1113/" if Int(CurrentPageID) <> Int(1113) Then Response.Write("
  • ") %> <% Response.Write("Piano Pedagogy Certificate") %> <% Response.Write("
    • ") else %>
  • Piano Pedagogy Certificate
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Piano Pedagogy Certificate" subsecLink = "/886_1113.htm" end if NodeID = 1113 Response.write("") if InStr(1, BreadCrumb, "/" & 1014 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14856/" if Int(CurrentPageID) <> Int(14856) Then Response.Write("
  • ") %> <% Response.Write("Florence Voice Seminar") %> <% Response.Write("
    • ") else %>
  • Florence Voice Seminar
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Florence Voice Seminar" subsecLink = "/886_14856.htm" end if NodeID = 14856 Response.write("") if InStr(1, BreadCrumb, "/" & 14855 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/8974/" if Int(CurrentPageID) <> Int(8974) Then Response.Write("
  • ") %> <% Response.Write("Westminster Chamber Choir") %> <% Response.Write("
    • ") else %>
  • Westminster Chamber Choir
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Chamber Choir" subsecLink = "/886_8974.htm" end if NodeID = 8974 Response.write("") if InStr(1, BreadCrumb, "/" & 14858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/17314/" if Int(CurrentPageID) <> Int(17314) Then Response.Write("
  • ") %> <% Response.Write("Westminster Choral Festival") %> <% Response.Write("
    • ") else %>
  • Westminster Choral Festival
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Choral Festival" subsecLink = "/886_17314.htm" end if NodeID = 17314 Response.write("") if InStr(1, BreadCrumb, "/" & 17313 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1114/" if Int(CurrentPageID) <> Int(1114) Then Response.Write("
  • ") %> <% Response.Write("Meet the Staff") %> <% Response.Write("
    • ") else %>
  • Meet the Staff
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Meet the Staff" subsecLink = "/886_1114.htm" end if NodeID = 1114 Response.write("") if InStr(1, BreadCrumb, "/" & 1015 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write("
") end if if SelectedItem <> "School of Fine Performing Arts" then Response.write("") else Response.write("") Response.write("
    ") %> <% ' DidRender = False DidRender = True 'Nesting = "/1112/" if Int(CurrentPageID) <> Int(1112) Then Response.Write("
  • ") %> <% Response.Write("Summer Seminars") %> <% Response.Write("
    • ") else %>
  • Summer Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Seminars" subsecLink = "/886_1112.htm" end if NodeID = 1112 Response.write("") if InStr(1, BreadCrumb, "/" & 1013 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2215) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2212) Then thes3nv="Course Listing and Descriptions" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2216) Then thes3nv="Registration & Tuition Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2068/" if Int(CurrentPageID) <> Int(2068) Then Response.Write("
  • ") %> <% Response.Write("Summer Camps") %> <% Response.Write("
    • ") else %>
  • Summer Camps
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/886_2068.htm" end if NodeID = 2068 Response.write("") if InStr(1, BreadCrumb, "/" & 2067 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17242) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/1111/" if Int(CurrentPageID) <> Int(1111) Then Response.Write("
  • ") %> <% Response.Write("Saturday Seminars") %> <% Response.Write("
    • ") else %>
  • Saturday Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Saturday Seminars" subsecLink = "/886_1111.htm" end if NodeID = 1111 Response.write("") if InStr(1, BreadCrumb, "/" & 1012 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17193) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2456/" if Int(CurrentPageID) <> Int(2456) Then Response.Write("
  • ") %> <% Response.Write("CoOperative Program") %> <% Response.Write("
    • ") else %>
  • CoOperative Program
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "CoOperative Program" subsecLink = "/886_2456.htm" end if NodeID = 2456 Response.write("") if InStr(1, BreadCrumb, "/" & 14861 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1113/" if Int(CurrentPageID) <> Int(1113) Then Response.Write("
  • ") %> <% Response.Write("Piano Pedagogy Certificate") %> <% Response.Write("
    • ") else %>
  • Piano Pedagogy Certificate
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Piano Pedagogy Certificate" subsecLink = "/886_1113.htm" end if NodeID = 1113 Response.write("") if InStr(1, BreadCrumb, "/" & 1014 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14856/" if Int(CurrentPageID) <> Int(14856) Then Response.Write("
  • ") %> <% Response.Write("Florence Voice Seminar") %> <% Response.Write("
    • ") else %>
  • Florence Voice Seminar
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Florence Voice Seminar" subsecLink = "/886_14856.htm" end if NodeID = 14856 Response.write("") if InStr(1, BreadCrumb, "/" & 14855 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/8974/" if Int(CurrentPageID) <> Int(8974) Then Response.Write("
  • ") %> <% Response.Write("Westminster Chamber Choir") %> <% Response.Write("
    • ") else %>
  • Westminster Chamber Choir
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Chamber Choir" subsecLink = "/886_8974.htm" end if NodeID = 8974 Response.write("") if InStr(1, BreadCrumb, "/" & 14858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/17314/" if Int(CurrentPageID) <> Int(17314) Then Response.Write("
  • ") %> <% Response.Write("Westminster Choral Festival") %> <% Response.Write("
    • ") else %>
  • Westminster Choral Festival
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Choral Festival" subsecLink = "/886_17314.htm" end if NodeID = 17314 Response.write("") if InStr(1, BreadCrumb, "/" & 17313 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1114/" if Int(CurrentPageID) <> Int(1114) Then Response.Write("
  • ") %> <% Response.Write("Meet the Staff") %> <% Response.Write("
    • ") else %>
  • Meet the Staff
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Meet the Staff" subsecLink = "/886_1114.htm" end if NodeID = 1114 Response.write("") if InStr(1, BreadCrumb, "/" & 1015 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write("
") end if if SelectedItem <> "Academics" then Response.write("") else Response.write("") Response.write("
    ") %> <% ' DidRender = False DidRender = True 'Nesting = "/1112/" if Int(CurrentPageID) <> Int(1112) Then Response.Write("
  • ") %> <% Response.Write("Summer Seminars") %> <% Response.Write("
    • ") else %>
  • Summer Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Seminars" subsecLink = "/886_1112.htm" end if NodeID = 1112 Response.write("") if InStr(1, BreadCrumb, "/" & 1013 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2215) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2212) Then thes3nv="Course Listing and Descriptions" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2216) Then thes3nv="Registration & Tuition Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2068/" if Int(CurrentPageID) <> Int(2068) Then Response.Write("
  • ") %> <% Response.Write("Summer Camps") %> <% Response.Write("
    • ") else %>
  • Summer Camps
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/886_2068.htm" end if NodeID = 2068 Response.write("") if InStr(1, BreadCrumb, "/" & 2067 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17242) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/1111/" if Int(CurrentPageID) <> Int(1111) Then Response.Write("
  • ") %> <% Response.Write("Saturday Seminars") %> <% Response.Write("
    • ") else %>
  • Saturday Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Saturday Seminars" subsecLink = "/886_1111.htm" end if NodeID = 1111 Response.write("") if InStr(1, BreadCrumb, "/" & 1012 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17193) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2456/" if Int(CurrentPageID) <> Int(2456) Then Response.Write("
  • ") %> <% Response.Write("CoOperative Program") %> <% Response.Write("
    • ") else %>
  • CoOperative Program
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "CoOperative Program" subsecLink = "/886_2456.htm" end if NodeID = 2456 Response.write("") if InStr(1, BreadCrumb, "/" & 14861 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1113/" if Int(CurrentPageID) <> Int(1113) Then Response.Write("
  • ") %> <% Response.Write("Piano Pedagogy Certificate") %> <% Response.Write("
    • ") else %>
  • Piano Pedagogy Certificate
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Piano Pedagogy Certificate" subsecLink = "/886_1113.htm" end if NodeID = 1113 Response.write("") if InStr(1, BreadCrumb, "/" & 1014 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14856/" if Int(CurrentPageID) <> Int(14856) Then Response.Write("
  • ") %> <% Response.Write("Florence Voice Seminar") %> <% Response.Write("
    • ") else %>
  • Florence Voice Seminar
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Florence Voice Seminar" subsecLink = "/886_14856.htm" end if NodeID = 14856 Response.write("") if InStr(1, BreadCrumb, "/" & 14855 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/8974/" if Int(CurrentPageID) <> Int(8974) Then Response.Write("
  • ") %> <% Response.Write("Westminster Chamber Choir") %> <% Response.Write("
    • ") else %>
  • Westminster Chamber Choir
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Chamber Choir" subsecLink = "/886_8974.htm" end if NodeID = 8974 Response.write("") if InStr(1, BreadCrumb, "/" & 14858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/17314/" if Int(CurrentPageID) <> Int(17314) Then Response.Write("
  • ") %> <% Response.Write("Westminster Choral Festival") %> <% Response.Write("
    • ") else %>
  • Westminster Choral Festival
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Choral Festival" subsecLink = "/886_17314.htm" end if NodeID = 17314 Response.write("") if InStr(1, BreadCrumb, "/" & 17313 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1114/" if Int(CurrentPageID) <> Int(1114) Then Response.Write("
  • ") %> <% Response.Write("Meet the Staff") %> <% Response.Write("
    • ") else %>
  • Meet the Staff
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Meet the Staff" subsecLink = "/886_1114.htm" end if NodeID = 1114 Response.write("") if InStr(1, BreadCrumb, "/" & 1015 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write("
") end if if SelectedItem <> "Student Life" then Response.write("") else Response.write("") Response.write("
    ") %> <% ' DidRender = False DidRender = True 'Nesting = "/1112/" if Int(CurrentPageID) <> Int(1112) Then Response.Write("
  • ") %> <% Response.Write("Summer Seminars") %> <% Response.Write("
    • ") else %>
  • Summer Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Seminars" subsecLink = "/886_1112.htm" end if NodeID = 1112 Response.write("") if InStr(1, BreadCrumb, "/" & 1013 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2215) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2212) Then thes3nv="Course Listing and Descriptions" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2216) Then thes3nv="Registration & Tuition Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2068/" if Int(CurrentPageID) <> Int(2068) Then Response.Write("
  • ") %> <% Response.Write("Summer Camps") %> <% Response.Write("
    • ") else %>
  • Summer Camps
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/886_2068.htm" end if NodeID = 2068 Response.write("") if InStr(1, BreadCrumb, "/" & 2067 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17242) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/1111/" if Int(CurrentPageID) <> Int(1111) Then Response.Write("
  • ") %> <% Response.Write("Saturday Seminars") %> <% Response.Write("
    • ") else %>
  • Saturday Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Saturday Seminars" subsecLink = "/886_1111.htm" end if NodeID = 1111 Response.write("") if InStr(1, BreadCrumb, "/" & 1012 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17193) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2456/" if Int(CurrentPageID) <> Int(2456) Then Response.Write("
  • ") %> <% Response.Write("CoOperative Program") %> <% Response.Write("
    • ") else %>
  • CoOperative Program
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "CoOperative Program" subsecLink = "/886_2456.htm" end if NodeID = 2456 Response.write("") if InStr(1, BreadCrumb, "/" & 14861 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1113/" if Int(CurrentPageID) <> Int(1113) Then Response.Write("
  • ") %> <% Response.Write("Piano Pedagogy Certificate") %> <% Response.Write("
    • ") else %>
  • Piano Pedagogy Certificate
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Piano Pedagogy Certificate" subsecLink = "/886_1113.htm" end if NodeID = 1113 Response.write("") if InStr(1, BreadCrumb, "/" & 1014 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14856/" if Int(CurrentPageID) <> Int(14856) Then Response.Write("
  • ") %> <% Response.Write("Florence Voice Seminar") %> <% Response.Write("
    • ") else %>
  • Florence Voice Seminar
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Florence Voice Seminar" subsecLink = "/886_14856.htm" end if NodeID = 14856 Response.write("") if InStr(1, BreadCrumb, "/" & 14855 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/8974/" if Int(CurrentPageID) <> Int(8974) Then Response.Write("
  • ") %> <% Response.Write("Westminster Chamber Choir") %> <% Response.Write("
    • ") else %>
  • Westminster Chamber Choir
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Chamber Choir" subsecLink = "/886_8974.htm" end if NodeID = 8974 Response.write("") if InStr(1, BreadCrumb, "/" & 14858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/17314/" if Int(CurrentPageID) <> Int(17314) Then Response.Write("
  • ") %> <% Response.Write("Westminster Choral Festival") %> <% Response.Write("
    • ") else %>
  • Westminster Choral Festival
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Choral Festival" subsecLink = "/886_17314.htm" end if NodeID = 17314 Response.write("") if InStr(1, BreadCrumb, "/" & 17313 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1114/" if Int(CurrentPageID) <> Int(1114) Then Response.Write("
  • ") %> <% Response.Write("Meet the Staff") %> <% Response.Write("
    • ") else %>
  • Meet the Staff
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Meet the Staff" subsecLink = "/886_1114.htm" end if NodeID = 1114 Response.write("") if InStr(1, BreadCrumb, "/" & 1015 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write("
") end if if SelectedItem <> "Westminsters Faculty" then Response.write("") else Response.write("") Response.write("
    ") %> <% ' DidRender = False DidRender = True 'Nesting = "/1112/" if Int(CurrentPageID) <> Int(1112) Then Response.Write("
  • ") %> <% Response.Write("Summer Seminars") %> <% Response.Write("
    • ") else %>
  • Summer Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Seminars" subsecLink = "/886_1112.htm" end if NodeID = 1112 Response.write("") if InStr(1, BreadCrumb, "/" & 1013 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2215) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2212) Then thes3nv="Course Listing and Descriptions" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2216) Then thes3nv="Registration & Tuition Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2068/" if Int(CurrentPageID) <> Int(2068) Then Response.Write("
  • ") %> <% Response.Write("Summer Camps") %> <% Response.Write("
    • ") else %>
  • Summer Camps
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/886_2068.htm" end if NodeID = 2068 Response.write("") if InStr(1, BreadCrumb, "/" & 2067 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17242) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/1111/" if Int(CurrentPageID) <> Int(1111) Then Response.Write("
  • ") %> <% Response.Write("Saturday Seminars") %> <% Response.Write("
    • ") else %>
  • Saturday Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Saturday Seminars" subsecLink = "/886_1111.htm" end if NodeID = 1111 Response.write("") if InStr(1, BreadCrumb, "/" & 1012 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17193) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2456/" if Int(CurrentPageID) <> Int(2456) Then Response.Write("
  • ") %> <% Response.Write("CoOperative Program") %> <% Response.Write("
    • ") else %>
  • CoOperative Program
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "CoOperative Program" subsecLink = "/886_2456.htm" end if NodeID = 2456 Response.write("") if InStr(1, BreadCrumb, "/" & 14861 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1113/" if Int(CurrentPageID) <> Int(1113) Then Response.Write("
  • ") %> <% Response.Write("Piano Pedagogy Certificate") %> <% Response.Write("
    • ") else %>
  • Piano Pedagogy Certificate
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Piano Pedagogy Certificate" subsecLink = "/886_1113.htm" end if NodeID = 1113 Response.write("") if InStr(1, BreadCrumb, "/" & 1014 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14856/" if Int(CurrentPageID) <> Int(14856) Then Response.Write("
  • ") %> <% Response.Write("Florence Voice Seminar") %> <% Response.Write("
    • ") else %>
  • Florence Voice Seminar
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Florence Voice Seminar" subsecLink = "/886_14856.htm" end if NodeID = 14856 Response.write("") if InStr(1, BreadCrumb, "/" & 14855 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/8974/" if Int(CurrentPageID) <> Int(8974) Then Response.Write("
  • ") %> <% Response.Write("Westminster Chamber Choir") %> <% Response.Write("
    • ") else %>
  • Westminster Chamber Choir
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Chamber Choir" subsecLink = "/886_8974.htm" end if NodeID = 8974 Response.write("") if InStr(1, BreadCrumb, "/" & 14858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/17314/" if Int(CurrentPageID) <> Int(17314) Then Response.Write("
  • ") %> <% Response.Write("Westminster Choral Festival") %> <% Response.Write("
    • ") else %>
  • Westminster Choral Festival
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Choral Festival" subsecLink = "/886_17314.htm" end if NodeID = 17314 Response.write("") if InStr(1, BreadCrumb, "/" & 17313 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1114/" if Int(CurrentPageID) <> Int(1114) Then Response.Write("
  • ") %> <% Response.Write("Meet the Staff") %> <% Response.Write("
    • ") else %>
  • Meet the Staff
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Meet the Staff" subsecLink = "/886_1114.htm" end if NodeID = 1114 Response.write("") if InStr(1, BreadCrumb, "/" & 1015 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write("
") end if if SelectedItem <> "Admissions" then Response.write("") else Response.write("") Response.write("
    ") %> <% ' DidRender = False DidRender = True 'Nesting = "/1112/" if Int(CurrentPageID) <> Int(1112) Then Response.Write("
  • ") %> <% Response.Write("Summer Seminars") %> <% Response.Write("
    • ") else %>
  • Summer Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Seminars" subsecLink = "/886_1112.htm" end if NodeID = 1112 Response.write("") if InStr(1, BreadCrumb, "/" & 1013 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2215) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2212) Then thes3nv="Course Listing and Descriptions" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2216) Then thes3nv="Registration & Tuition Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2068/" if Int(CurrentPageID) <> Int(2068) Then Response.Write("
  • ") %> <% Response.Write("Summer Camps") %> <% Response.Write("
    • ") else %>
  • Summer Camps
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/886_2068.htm" end if NodeID = 2068 Response.write("") if InStr(1, BreadCrumb, "/" & 2067 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17242) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/1111/" if Int(CurrentPageID) <> Int(1111) Then Response.Write("
  • ") %> <% Response.Write("Saturday Seminars") %> <% Response.Write("
    • ") else %>
  • Saturday Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Saturday Seminars" subsecLink = "/886_1111.htm" end if NodeID = 1111 Response.write("") if InStr(1, BreadCrumb, "/" & 1012 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17193) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2456/" if Int(CurrentPageID) <> Int(2456) Then Response.Write("
  • ") %> <% Response.Write("CoOperative Program") %> <% Response.Write("
    • ") else %>
  • CoOperative Program
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "CoOperative Program" subsecLink = "/886_2456.htm" end if NodeID = 2456 Response.write("") if InStr(1, BreadCrumb, "/" & 14861 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1113/" if Int(CurrentPageID) <> Int(1113) Then Response.Write("
  • ") %> <% Response.Write("Piano Pedagogy Certificate") %> <% Response.Write("
    • ") else %>
  • Piano Pedagogy Certificate
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Piano Pedagogy Certificate" subsecLink = "/886_1113.htm" end if NodeID = 1113 Response.write("") if InStr(1, BreadCrumb, "/" & 1014 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14856/" if Int(CurrentPageID) <> Int(14856) Then Response.Write("
  • ") %> <% Response.Write("Florence Voice Seminar") %> <% Response.Write("
    • ") else %>
  • Florence Voice Seminar
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Florence Voice Seminar" subsecLink = "/886_14856.htm" end if NodeID = 14856 Response.write("") if InStr(1, BreadCrumb, "/" & 14855 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/8974/" if Int(CurrentPageID) <> Int(8974) Then Response.Write("
  • ") %> <% Response.Write("Westminster Chamber Choir") %> <% Response.Write("
    • ") else %>
  • Westminster Chamber Choir
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Chamber Choir" subsecLink = "/886_8974.htm" end if NodeID = 8974 Response.write("") if InStr(1, BreadCrumb, "/" & 14858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/17314/" if Int(CurrentPageID) <> Int(17314) Then Response.Write("
  • ") %> <% Response.Write("Westminster Choral Festival") %> <% Response.Write("
    • ") else %>
  • Westminster Choral Festival
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Choral Festival" subsecLink = "/886_17314.htm" end if NodeID = 17314 Response.write("") if InStr(1, BreadCrumb, "/" & 17313 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1114/" if Int(CurrentPageID) <> Int(1114) Then Response.Write("
  • ") %> <% Response.Write("Meet the Staff") %> <% Response.Write("
    • ") else %>
  • Meet the Staff
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Meet the Staff" subsecLink = "/886_1114.htm" end if NodeID = 1114 Response.write("") if InStr(1, BreadCrumb, "/" & 1015 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write("
") end if if SelectedItem <> "Continuing Education" then Response.write("") else Response.write("") Response.write("
    ") %> <% ' DidRender = False DidRender = True 'Nesting = "/1112/" if Int(CurrentPageID) <> Int(1112) Then Response.Write("
  • ") %> <% Response.Write("Summer Seminars") %> <% Response.Write("
    • ") else %>
  • Summer Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Seminars" subsecLink = "/886_1112.htm" end if NodeID = 1112 Response.write("") if InStr(1, BreadCrumb, "/" & 1013 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2215) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2212) Then thes3nv="Course Listing and Descriptions" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2216) Then thes3nv="Registration & Tuition Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2068/" if Int(CurrentPageID) <> Int(2068) Then Response.Write("
  • ") %> <% Response.Write("Summer Camps") %> <% Response.Write("
    • ") else %>
  • Summer Camps
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/886_2068.htm" end if NodeID = 2068 Response.write("") if InStr(1, BreadCrumb, "/" & 2067 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17242) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/1111/" if Int(CurrentPageID) <> Int(1111) Then Response.Write("
  • ") %> <% Response.Write("Saturday Seminars") %> <% Response.Write("
    • ") else %>
  • Saturday Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Saturday Seminars" subsecLink = "/886_1111.htm" end if NodeID = 1111 Response.write("") if InStr(1, BreadCrumb, "/" & 1012 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17193) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2456/" if Int(CurrentPageID) <> Int(2456) Then Response.Write("
  • ") %> <% Response.Write("CoOperative Program") %> <% Response.Write("
    • ") else %>
  • CoOperative Program
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "CoOperative Program" subsecLink = "/886_2456.htm" end if NodeID = 2456 Response.write("") if InStr(1, BreadCrumb, "/" & 14861 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1113/" if Int(CurrentPageID) <> Int(1113) Then Response.Write("
  • ") %> <% Response.Write("Piano Pedagogy Certificate") %> <% Response.Write("
    • ") else %>
  • Piano Pedagogy Certificate
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Piano Pedagogy Certificate" subsecLink = "/886_1113.htm" end if NodeID = 1113 Response.write("") if InStr(1, BreadCrumb, "/" & 1014 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14856/" if Int(CurrentPageID) <> Int(14856) Then Response.Write("
  • ") %> <% Response.Write("Florence Voice Seminar") %> <% Response.Write("
    • ") else %>
  • Florence Voice Seminar
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Florence Voice Seminar" subsecLink = "/886_14856.htm" end if NodeID = 14856 Response.write("") if InStr(1, BreadCrumb, "/" & 14855 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/8974/" if Int(CurrentPageID) <> Int(8974) Then Response.Write("
  • ") %> <% Response.Write("Westminster Chamber Choir") %> <% Response.Write("
    • ") else %>
  • Westminster Chamber Choir
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Chamber Choir" subsecLink = "/886_8974.htm" end if NodeID = 8974 Response.write("") if InStr(1, BreadCrumb, "/" & 14858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/17314/" if Int(CurrentPageID) <> Int(17314) Then Response.Write("
  • ") %> <% Response.Write("Westminster Choral Festival") %> <% Response.Write("
    • ") else %>
  • Westminster Choral Festival
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Choral Festival" subsecLink = "/886_17314.htm" end if NodeID = 17314 Response.write("") if InStr(1, BreadCrumb, "/" & 17313 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1114/" if Int(CurrentPageID) <> Int(1114) Then Response.Write("
  • ") %> <% Response.Write("Meet the Staff") %> <% Response.Write("
    • ") else %>
  • Meet the Staff
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Meet the Staff" subsecLink = "/886_1114.htm" end if NodeID = 1114 Response.write("") if InStr(1, BreadCrumb, "/" & 1015 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write("
") end if if SelectedItem <> "Westminster Conservatory" then Response.write("") else Response.write("") Response.write("
    ") %> <% ' DidRender = False DidRender = True 'Nesting = "/1112/" if Int(CurrentPageID) <> Int(1112) Then Response.Write("
  • ") %> <% Response.Write("Summer Seminars") %> <% Response.Write("
    • ") else %>
  • Summer Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Seminars" subsecLink = "/886_1112.htm" end if NodeID = 1112 Response.write("") if InStr(1, BreadCrumb, "/" & 1013 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2215) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2212) Then thes3nv="Course Listing and Descriptions" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2216) Then thes3nv="Registration & Tuition Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2068/" if Int(CurrentPageID) <> Int(2068) Then Response.Write("
  • ") %> <% Response.Write("Summer Camps") %> <% Response.Write("
    • ") else %>
  • Summer Camps
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/886_2068.htm" end if NodeID = 2068 Response.write("") if InStr(1, BreadCrumb, "/" & 2067 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17242) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/1111/" if Int(CurrentPageID) <> Int(1111) Then Response.Write("
  • ") %> <% Response.Write("Saturday Seminars") %> <% Response.Write("
    • ") else %>
  • Saturday Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Saturday Seminars" subsecLink = "/886_1111.htm" end if NodeID = 1111 Response.write("") if InStr(1, BreadCrumb, "/" & 1012 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17193) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2456/" if Int(CurrentPageID) <> Int(2456) Then Response.Write("
  • ") %> <% Response.Write("CoOperative Program") %> <% Response.Write("
    • ") else %>
  • CoOperative Program
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "CoOperative Program" subsecLink = "/886_2456.htm" end if NodeID = 2456 Response.write("") if InStr(1, BreadCrumb, "/" & 14861 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1113/" if Int(CurrentPageID) <> Int(1113) Then Response.Write("
  • ") %> <% Response.Write("Piano Pedagogy Certificate") %> <% Response.Write("
    • ") else %>
  • Piano Pedagogy Certificate
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Piano Pedagogy Certificate" subsecLink = "/886_1113.htm" end if NodeID = 1113 Response.write("") if InStr(1, BreadCrumb, "/" & 1014 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14856/" if Int(CurrentPageID) <> Int(14856) Then Response.Write("
  • ") %> <% Response.Write("Florence Voice Seminar") %> <% Response.Write("
    • ") else %>
  • Florence Voice Seminar
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Florence Voice Seminar" subsecLink = "/886_14856.htm" end if NodeID = 14856 Response.write("") if InStr(1, BreadCrumb, "/" & 14855 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/8974/" if Int(CurrentPageID) <> Int(8974) Then Response.Write("
  • ") %> <% Response.Write("Westminster Chamber Choir") %> <% Response.Write("
    • ") else %>
  • Westminster Chamber Choir
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Chamber Choir" subsecLink = "/886_8974.htm" end if NodeID = 8974 Response.write("") if InStr(1, BreadCrumb, "/" & 14858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/17314/" if Int(CurrentPageID) <> Int(17314) Then Response.Write("
  • ") %> <% Response.Write("Westminster Choral Festival") %> <% Response.Write("
    • ") else %>
  • Westminster Choral Festival
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Choral Festival" subsecLink = "/886_17314.htm" end if NodeID = 17314 Response.write("") if InStr(1, BreadCrumb, "/" & 17313 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1114/" if Int(CurrentPageID) <> Int(1114) Then Response.Write("
  • ") %> <% Response.Write("Meet the Staff") %> <% Response.Write("
    • ") else %>
  • Meet the Staff
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Meet the Staff" subsecLink = "/886_1114.htm" end if NodeID = 1114 Response.write("") if InStr(1, BreadCrumb, "/" & 1015 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write("
") end if if SelectedItem <> "News Events" then Response.write("") else Response.write("") Response.write("
    ") %> <% ' DidRender = False DidRender = True 'Nesting = "/1112/" if Int(CurrentPageID) <> Int(1112) Then Response.Write("
  • ") %> <% Response.Write("Summer Seminars") %> <% Response.Write("
    • ") else %>
  • Summer Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Seminars" subsecLink = "/886_1112.htm" end if NodeID = 1112 Response.write("") if InStr(1, BreadCrumb, "/" & 1013 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2215) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2212) Then thes3nv="Course Listing and Descriptions" Response.write("
    • ") else Response.write("
    • ") end if if Int(CurrentPageID) = Int(2216) Then thes3nv="Registration & Tuition Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2068/" if Int(CurrentPageID) <> Int(2068) Then Response.Write("
  • ") %> <% Response.Write("Summer Camps") %> <% Response.Write("
    • ") else %>
  • Summer Camps
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/886_2068.htm" end if NodeID = 2068 Response.write("") if InStr(1, BreadCrumb, "/" & 2067 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17242) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/1111/" if Int(CurrentPageID) <> Int(1111) Then Response.Write("
  • ") %> <% Response.Write("Saturday Seminars") %> <% Response.Write("
    • ") else %>
  • Saturday Seminars
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Saturday Seminars" subsecLink = "/886_1111.htm" end if NodeID = 1111 Response.write("") if InStr(1, BreadCrumb, "/" & 1012 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(17193) Then thes3nv="General Information" Response.write("
    • ") else Response.write("
    • ") end if end if' DidRender = False DidRender = True 'Nesting = "/2456/" if Int(CurrentPageID) <> Int(2456) Then Response.Write("
  • ") %> <% Response.Write("CoOperative Program") %> <% Response.Write("
    • ") else %>
  • CoOperative Program
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "CoOperative Program" subsecLink = "/886_2456.htm" end if NodeID = 2456 Response.write("") if InStr(1, BreadCrumb, "/" & 14861 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1113/" if Int(CurrentPageID) <> Int(1113) Then Response.Write("
  • ") %> <% Response.Write("Piano Pedagogy Certificate") %> <% Response.Write("
    • ") else %>
  • Piano Pedagogy Certificate
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Piano Pedagogy Certificate" subsecLink = "/886_1113.htm" end if NodeID = 1113 Response.write("") if InStr(1, BreadCrumb, "/" & 1014 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14856/" if Int(CurrentPageID) <> Int(14856) Then Response.Write("
  • ") %> <% Response.Write("Florence Voice Seminar") %> <% Response.Write("
    • ") else %>
  • Florence Voice Seminar
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Florence Voice Seminar" subsecLink = "/886_14856.htm" end if NodeID = 14856 Response.write("") if InStr(1, BreadCrumb, "/" & 14855 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/8974/" if Int(CurrentPageID) <> Int(8974) Then Response.Write("
  • ") %> <% Response.Write("Westminster Chamber Choir") %> <% Response.Write("
    • ") else %>
  • Westminster Chamber Choir
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Chamber Choir" subsecLink = "/886_8974.htm" end if NodeID = 8974 Response.write("") if InStr(1, BreadCrumb, "/" & 14858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/17314/" if Int(CurrentPageID) <> Int(17314) Then Response.Write("
  • ") %> <% Response.Write("Westminster Choral Festival") %> <% Response.Write("
    • ") else %>
  • Westminster Choral Festival
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Westminster Choral Festival" subsecLink = "/886_17314.htm" end if NodeID = 17314 Response.write("") if InStr(1, BreadCrumb, "/" & 17313 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1114/" if Int(CurrentPageID) <> Int(1114) Then Response.Write("
  • ") %> <% Response.Write("Meet the Staff") %> <% Response.Write("
    • ") else %>
  • Meet the Staff
    • <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Meet the Staff" subsecLink = "/886_1114.htm" end if NodeID = 1114 Response.write("") if InStr(1, BreadCrumb, "/" & 1015 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write("
") end if %>
<% function GetNavigationPath() NavPath = "" CurrentID = "2217" CurrentGUID = "722DAECB340C4C568AEFC0CCB489B2E9" dim loops loops = 0 LOGIN_GUID = "" if LOGIN_GUID = "" Then XMLFile = sendXML("") Set xmlDoc = server.CreateObject("Microsoft.XMLDOM") xmlDoc.loadXML(xmlFile) ' get the current page Set RDxmlNodeList = xmlDoc.getElementsByTagName("LOGIN") LOGIN_GUID = RDxmlNodeList.item(0).getAttribute("guid") XMLString = "" & _ " " & _ " " & _ " " & _ "" XMLFile = sendXML(XMLString) Set xmlDoc = server.CreateObject("Microsoft.XMLDOM") xmlDoc.loadXML(xmlFile) Set RDxmlNodeList = xmlDoc.getElementsByTagName("SERVER") SESSION_KEY = RDxmlNodeList.item(0).getAttribute("key") End if Do while true XMLString = "" xmlFile = sendXML(XMLString) 'Generate a DOM object to parse the response SQL statement Set xmlDoc = server.CreateObject("Microsoft.XMLDOM") 'Import content of response RQL to the DOM object xmlDoc.loadXML(xmlFile) 'response.write(xmlFile) ' get the current page Set RDxmlNodeList = xmlDoc.getElementsByTagName("PAGE") CurrentID = RDxmlNodeList.item(0).getAttribute("id") 'get the main link Set RDxmlNodeList = RDxmlNodeList.item(0).getElementsByTagName("MAINLINK") 'Response.write "7:" if instr(1, NavPath, "/" & CurrentID & "/") > 0 then exit do NavPath = NavPath & "/" & CurrentID & "/" if RDxmlNodeList.item(0) is nothing then 'response.write("looped" & x) 'Response.write "8:" exit do else 'Get Next Page GUID XMLString = "" xmlFile = sendXML(XMLString) 'Generate a DOM object to parse the response RQL statement Set xmlDoc2 = server.CreateObject("Microsoft.XMLDOM") xmlDoc2.LoadXml(xmlFile) CurrentGUID = xmlDoc2.selectSingleNode("//LINK").getAttribute("pageguid") Set xmlDoc2 = nothing 'Response.write ":" & CurrentID & ":" end if Response.Write "" Response.Flush Response.Buffer = true loops = loops + 1 loop ' Remove DOM object from memory set xmlDoc = nothing 'Response.write "10:" GetNavigationPath = NavPath end function function sendXML (XMLString) set objData = server.CreateObject("RDCMSASP.RdPageData") objData.XMLServerClassname="RDCMSServer.XmlServer" sendXML = objData.ServerExecuteXML(XMLString, sErrors) end function function GetLevel(Breadcrumb) arr = split(breadcrumb, "//") GetLevel = UBound(arr) end function %>