Directions | Campus Safety | Calendars | Directory | Libraries | Web Mail Quick Links Academics College of Business AdministrationSchool of Liberal Arts & SciencesSchool of EducationWestminster College of the ArtsCollege of Continuing Studies Campus Services BookstoresCampus Safety / Emergency ProceduresCareer ServicesCommencementEvent Request FormFinancial AidOne Stop ServicesRegistrar & Academic CalendarsResidence LifeStudent Recreation CenterStudy AbroadTechnologyTuition and Fees Web Applications WebmailBlackboardMyInfo - Register for ClassesEasypassRider JobsRosettaStoneTutortrac107.7 WRRC The Bronc - Listen Live

<% dim CurrentPageID, SelectedItem, Nesting CurrentPageID = 3938 SelectedItem = "Westminster Conservatory" 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 = "/3931/" if Int(CurrentPageID) <> Int(3931) Then Response.Write(" ") %> <% Response.Write("Private Instruction & Class Information") %> <% Response.Write(" ") else %> Private Instruction & Class Information <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Private Instruction & Class Information" subsecLink = "/887_3931.htm" end if NodeID = 3931 Response.write("") if InStr(1, BreadCrumb, "/" & 3930 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3949) Then thes3nv="Private Instruction" Response.write(" Private Instruction ") else Response.write(" Private Instruction ") end if if Int(CurrentPageID) = Int(3948) Then thes3nv="Registration Information" Response.write(" Registration Information ") else Response.write(" Registration Information ") end if if Int(CurrentPageID) = Int(3947) Then thes3nv="Keyboard Instruction" Response.write(" Keyboard Instruction ") else Response.write(" Keyboard Instruction ") end if if Int(CurrentPageID) = Int(3946) Then thes3nv="Strings Instruction" Response.write(" Strings Instruction ") else Response.write(" Strings Instruction ") end if if Int(CurrentPageID) = Int(3945) Then thes3nv="Woodwinds, Brass & Percussion Instruction" Response.write(" Woodwinds, Brass & Percussion Instruction ") else Response.write(" Woodwinds, Brass & Percussion Instruction ") end if if Int(CurrentPageID) = Int(3944) Then thes3nv="Voice Instruction" Response.write(" Voice Instruction ") else Response.write(" Voice Instruction ") end if if Int(CurrentPageID) = Int(3943) Then thes3nv="Music Theater" Response.write(" Music Theater ") else Response.write(" Music Theater ") end if if Int(CurrentPageID) = Int(3942) Then thes3nv="Music Theory and Musicianship" Response.write(" Music Theory and Musicianship ") else Response.write(" Music Theory and Musicianship ") end if if Int(CurrentPageID) = Int(3941) Then thes3nv="Early Childhood Program" Response.write(" Early Childhood Program ") else Response.write(" Early Childhood Program ") end if if Int(CurrentPageID) = Int(3940) Then thes3nv="Music Therapy" Response.write(" Music Therapy ") else Response.write(" Music Therapy ") end if if Int(CurrentPageID) = Int(3939) Then thes3nv="Performing Ensembles" Response.write(" Performing Ensembles ") else Response.write(" Performing Ensembles ") end if if Int(CurrentPageID) = Int(3937) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(3936) Then thes3nv="Conservatory Policies" Response.write(" Conservatory Policies ") else Response.write(" Conservatory Policies ") end if if Int(CurrentPageID) = Int(3935) Then thes3nv="General Information" Response.write(" General Information ") else Response.write(" General Information ") end if end if' DidRender = False DidRender = True 'Nesting = "/14878/" if Int(CurrentPageID) <> Int(14878) Then Response.Write(" ") %> <% Response.Write("Honors Music Program") %> <% Response.Write(" ") else %> Honors Music Program <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Honors Music Program" subsecLink = "/887_14878.htm" end if NodeID = 14878 Response.write("") if InStr(1, BreadCrumb, "/" & 14874 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14879/" if Int(CurrentPageID) <> Int(14879) Then Response.Write(" ") %> <% Response.Write("Summer Lessons") %> <% Response.Write(" ") else %> Summer Lessons <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Lessons" subsecLink = "/887_14879.htm" end if NodeID = 14879 Response.write("") if InStr(1, BreadCrumb, "/" & 14875 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1116/" if Int(CurrentPageID) <> Int(1116) Then Response.Write(" ") %> <% Response.Write("Summer Camps") %> <% Response.Write(" ") else %> Summer Camps <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/887_1116.htm" end if NodeID = 1116 Response.write("") if InStr(1, BreadCrumb, "/" & 1018 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14883/" if Int(CurrentPageID) <> Int(14883) Then Response.Write(" ") %> <% Response.Write("Opera Outings") %> <% Response.Write(" ") else %> Opera Outings <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Opera Outings" subsecLink = "/887_14883.htm" end if NodeID = 14883 Response.write("") if InStr(1, BreadCrumb, "/" & 14876 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14885/" if Int(CurrentPageID) <> Int(14885) Then Response.Write(" ") %> <% Response.Write("Conservatory Events") %> <% Response.Write(" ") else %> Conservatory Events <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Conservatory Events" subsecLink = "/887_14885.htm" end if NodeID = 14885 Response.write("") if InStr(1, BreadCrumb, "/" & 14877 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/2436/" if Int(CurrentPageID) <> Int(2436) Then Response.Write(" ") %> <% Response.Write("Locations & Directions") %> <% Response.Write(" ") else %> Locations & Directions <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Locations & Directions" subsecLink = "/887_2436.htm" end if NodeID = 2436 Response.write("") if InStr(1, BreadCrumb, "/" & 2435 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3933/" if Int(CurrentPageID) <> Int(3933) Then Response.Write(" ") %> <% Response.Write("Our Faculty") %> <% Response.Write(" ") else %> Our Faculty <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Our Faculty" subsecLink = "/887_3933.htm" end if NodeID = 3933 Response.write("") if InStr(1, BreadCrumb, "/" & 3932 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/17202/" if Int(CurrentPageID) <> Int(17202) Then Response.Write(" ") %> <% Response.Write("Forms") %> <% Response.Write(" ") else %> Forms <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Forms" subsecLink = "/887_17202.htm" end if NodeID = 17202 Response.write("") if InStr(1, BreadCrumb, "/" & 17201 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1117/" if Int(CurrentPageID) <> Int(1117) 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 = "/887_1117.htm" end if NodeID = 1117 Response.write("") if InStr(1, BreadCrumb, "/" & 1017 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write(" ") end if if SelectedItem <> "About Westminster" then %> <% else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/3931/" if Int(CurrentPageID) <> Int(3931) Then Response.Write(" ") %> <% Response.Write("Private Instruction & Class Information") %> <% Response.Write(" ") else %> Private Instruction & Class Information <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Private Instruction & Class Information" subsecLink = "/887_3931.htm" end if NodeID = 3931 Response.write("") if InStr(1, BreadCrumb, "/" & 3930 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3949) Then thes3nv="Private Instruction" Response.write(" Private Instruction ") else Response.write(" Private Instruction ") end if if Int(CurrentPageID) = Int(3948) Then thes3nv="Registration Information" Response.write(" Registration Information ") else Response.write(" Registration Information ") end if if Int(CurrentPageID) = Int(3947) Then thes3nv="Keyboard Instruction" Response.write(" Keyboard Instruction ") else Response.write(" Keyboard Instruction ") end if if Int(CurrentPageID) = Int(3946) Then thes3nv="Strings Instruction" Response.write(" Strings Instruction ") else Response.write(" Strings Instruction ") end if if Int(CurrentPageID) = Int(3945) Then thes3nv="Woodwinds, Brass & Percussion Instruction" Response.write(" Woodwinds, Brass & Percussion Instruction ") else Response.write(" Woodwinds, Brass & Percussion Instruction ") end if if Int(CurrentPageID) = Int(3944) Then thes3nv="Voice Instruction" Response.write(" Voice Instruction ") else Response.write(" Voice Instruction ") end if if Int(CurrentPageID) = Int(3943) Then thes3nv="Music Theater" Response.write(" Music Theater ") else Response.write(" Music Theater ") end if if Int(CurrentPageID) = Int(3942) Then thes3nv="Music Theory and Musicianship" Response.write(" Music Theory and Musicianship ") else Response.write(" Music Theory and Musicianship ") end if if Int(CurrentPageID) = Int(3941) Then thes3nv="Early Childhood Program" Response.write(" Early Childhood Program ") else Response.write(" Early Childhood Program ") end if if Int(CurrentPageID) = Int(3940) Then thes3nv="Music Therapy" Response.write(" Music Therapy ") else Response.write(" Music Therapy ") end if if Int(CurrentPageID) = Int(3939) Then thes3nv="Performing Ensembles" Response.write(" Performing Ensembles ") else Response.write(" Performing Ensembles ") end if if Int(CurrentPageID) = Int(3937) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(3936) Then thes3nv="Conservatory Policies" Response.write(" Conservatory Policies ") else Response.write(" Conservatory Policies ") end if if Int(CurrentPageID) = Int(3935) Then thes3nv="General Information" Response.write(" General Information ") else Response.write(" General Information ") end if end if' DidRender = False DidRender = True 'Nesting = "/14878/" if Int(CurrentPageID) <> Int(14878) Then Response.Write(" ") %> <% Response.Write("Honors Music Program") %> <% Response.Write(" ") else %> Honors Music Program <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Honors Music Program" subsecLink = "/887_14878.htm" end if NodeID = 14878 Response.write("") if InStr(1, BreadCrumb, "/" & 14874 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14879/" if Int(CurrentPageID) <> Int(14879) Then Response.Write(" ") %> <% Response.Write("Summer Lessons") %> <% Response.Write(" ") else %> Summer Lessons <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Lessons" subsecLink = "/887_14879.htm" end if NodeID = 14879 Response.write("") if InStr(1, BreadCrumb, "/" & 14875 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1116/" if Int(CurrentPageID) <> Int(1116) Then Response.Write(" ") %> <% Response.Write("Summer Camps") %> <% Response.Write(" ") else %> Summer Camps <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/887_1116.htm" end if NodeID = 1116 Response.write("") if InStr(1, BreadCrumb, "/" & 1018 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14883/" if Int(CurrentPageID) <> Int(14883) Then Response.Write(" ") %> <% Response.Write("Opera Outings") %> <% Response.Write(" ") else %> Opera Outings <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Opera Outings" subsecLink = "/887_14883.htm" end if NodeID = 14883 Response.write("") if InStr(1, BreadCrumb, "/" & 14876 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14885/" if Int(CurrentPageID) <> Int(14885) Then Response.Write(" ") %> <% Response.Write("Conservatory Events") %> <% Response.Write(" ") else %> Conservatory Events <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Conservatory Events" subsecLink = "/887_14885.htm" end if NodeID = 14885 Response.write("") if InStr(1, BreadCrumb, "/" & 14877 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/2436/" if Int(CurrentPageID) <> Int(2436) Then Response.Write(" ") %> <% Response.Write("Locations & Directions") %> <% Response.Write(" ") else %> Locations & Directions <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Locations & Directions" subsecLink = "/887_2436.htm" end if NodeID = 2436 Response.write("") if InStr(1, BreadCrumb, "/" & 2435 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3933/" if Int(CurrentPageID) <> Int(3933) Then Response.Write(" ") %> <% Response.Write("Our Faculty") %> <% Response.Write(" ") else %> Our Faculty <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Our Faculty" subsecLink = "/887_3933.htm" end if NodeID = 3933 Response.write("") if InStr(1, BreadCrumb, "/" & 3932 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/17202/" if Int(CurrentPageID) <> Int(17202) Then Response.Write(" ") %> <% Response.Write("Forms") %> <% Response.Write(" ") else %> Forms <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Forms" subsecLink = "/887_17202.htm" end if NodeID = 17202 Response.write("") if InStr(1, BreadCrumb, "/" & 17201 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1117/" if Int(CurrentPageID) <> Int(1117) 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 = "/887_1117.htm" end if NodeID = 1117 Response.write("") if InStr(1, BreadCrumb, "/" & 1017 & "/") > 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 = "/3931/" if Int(CurrentPageID) <> Int(3931) Then Response.Write(" ") %> <% Response.Write("Private Instruction & Class Information") %> <% Response.Write(" ") else %> Private Instruction & Class Information <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Private Instruction & Class Information" subsecLink = "/887_3931.htm" end if NodeID = 3931 Response.write("") if InStr(1, BreadCrumb, "/" & 3930 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3949) Then thes3nv="Private Instruction" Response.write(" Private Instruction ") else Response.write(" Private Instruction ") end if if Int(CurrentPageID) = Int(3948) Then thes3nv="Registration Information" Response.write(" Registration Information ") else Response.write(" Registration Information ") end if if Int(CurrentPageID) = Int(3947) Then thes3nv="Keyboard Instruction" Response.write(" Keyboard Instruction ") else Response.write(" Keyboard Instruction ") end if if Int(CurrentPageID) = Int(3946) Then thes3nv="Strings Instruction" Response.write(" Strings Instruction ") else Response.write(" Strings Instruction ") end if if Int(CurrentPageID) = Int(3945) Then thes3nv="Woodwinds, Brass & Percussion Instruction" Response.write(" Woodwinds, Brass & Percussion Instruction ") else Response.write(" Woodwinds, Brass & Percussion Instruction ") end if if Int(CurrentPageID) = Int(3944) Then thes3nv="Voice Instruction" Response.write(" Voice Instruction ") else Response.write(" Voice Instruction ") end if if Int(CurrentPageID) = Int(3943) Then thes3nv="Music Theater" Response.write(" Music Theater ") else Response.write(" Music Theater ") end if if Int(CurrentPageID) = Int(3942) Then thes3nv="Music Theory and Musicianship" Response.write(" Music Theory and Musicianship ") else Response.write(" Music Theory and Musicianship ") end if if Int(CurrentPageID) = Int(3941) Then thes3nv="Early Childhood Program" Response.write(" Early Childhood Program ") else Response.write(" Early Childhood Program ") end if if Int(CurrentPageID) = Int(3940) Then thes3nv="Music Therapy" Response.write(" Music Therapy ") else Response.write(" Music Therapy ") end if if Int(CurrentPageID) = Int(3939) Then thes3nv="Performing Ensembles" Response.write(" Performing Ensembles ") else Response.write(" Performing Ensembles ") end if if Int(CurrentPageID) = Int(3937) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(3936) Then thes3nv="Conservatory Policies" Response.write(" Conservatory Policies ") else Response.write(" Conservatory Policies ") end if if Int(CurrentPageID) = Int(3935) Then thes3nv="General Information" Response.write(" General Information ") else Response.write(" General Information ") end if end if' DidRender = False DidRender = True 'Nesting = "/14878/" if Int(CurrentPageID) <> Int(14878) Then Response.Write(" ") %> <% Response.Write("Honors Music Program") %> <% Response.Write(" ") else %> Honors Music Program <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Honors Music Program" subsecLink = "/887_14878.htm" end if NodeID = 14878 Response.write("") if InStr(1, BreadCrumb, "/" & 14874 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14879/" if Int(CurrentPageID) <> Int(14879) Then Response.Write(" ") %> <% Response.Write("Summer Lessons") %> <% Response.Write(" ") else %> Summer Lessons <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Lessons" subsecLink = "/887_14879.htm" end if NodeID = 14879 Response.write("") if InStr(1, BreadCrumb, "/" & 14875 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1116/" if Int(CurrentPageID) <> Int(1116) Then Response.Write(" ") %> <% Response.Write("Summer Camps") %> <% Response.Write(" ") else %> Summer Camps <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/887_1116.htm" end if NodeID = 1116 Response.write("") if InStr(1, BreadCrumb, "/" & 1018 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14883/" if Int(CurrentPageID) <> Int(14883) Then Response.Write(" ") %> <% Response.Write("Opera Outings") %> <% Response.Write(" ") else %> Opera Outings <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Opera Outings" subsecLink = "/887_14883.htm" end if NodeID = 14883 Response.write("") if InStr(1, BreadCrumb, "/" & 14876 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14885/" if Int(CurrentPageID) <> Int(14885) Then Response.Write(" ") %> <% Response.Write("Conservatory Events") %> <% Response.Write(" ") else %> Conservatory Events <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Conservatory Events" subsecLink = "/887_14885.htm" end if NodeID = 14885 Response.write("") if InStr(1, BreadCrumb, "/" & 14877 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/2436/" if Int(CurrentPageID) <> Int(2436) Then Response.Write(" ") %> <% Response.Write("Locations & Directions") %> <% Response.Write(" ") else %> Locations & Directions <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Locations & Directions" subsecLink = "/887_2436.htm" end if NodeID = 2436 Response.write("") if InStr(1, BreadCrumb, "/" & 2435 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3933/" if Int(CurrentPageID) <> Int(3933) Then Response.Write(" ") %> <% Response.Write("Our Faculty") %> <% Response.Write(" ") else %> Our Faculty <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Our Faculty" subsecLink = "/887_3933.htm" end if NodeID = 3933 Response.write("") if InStr(1, BreadCrumb, "/" & 3932 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/17202/" if Int(CurrentPageID) <> Int(17202) Then Response.Write(" ") %> <% Response.Write("Forms") %> <% Response.Write(" ") else %> Forms <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Forms" subsecLink = "/887_17202.htm" end if NodeID = 17202 Response.write("") if InStr(1, BreadCrumb, "/" & 17201 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1117/" if Int(CurrentPageID) <> Int(1117) 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 = "/887_1117.htm" end if NodeID = 1117 Response.write("") if InStr(1, BreadCrumb, "/" & 1017 & "/") > 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 = "/3931/" if Int(CurrentPageID) <> Int(3931) Then Response.Write(" ") %> <% Response.Write("Private Instruction & Class Information") %> <% Response.Write(" ") else %> Private Instruction & Class Information <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Private Instruction & Class Information" subsecLink = "/887_3931.htm" end if NodeID = 3931 Response.write("") if InStr(1, BreadCrumb, "/" & 3930 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3949) Then thes3nv="Private Instruction" Response.write(" Private Instruction ") else Response.write(" Private Instruction ") end if if Int(CurrentPageID) = Int(3948) Then thes3nv="Registration Information" Response.write(" Registration Information ") else Response.write(" Registration Information ") end if if Int(CurrentPageID) = Int(3947) Then thes3nv="Keyboard Instruction" Response.write(" Keyboard Instruction ") else Response.write(" Keyboard Instruction ") end if if Int(CurrentPageID) = Int(3946) Then thes3nv="Strings Instruction" Response.write(" Strings Instruction ") else Response.write(" Strings Instruction ") end if if Int(CurrentPageID) = Int(3945) Then thes3nv="Woodwinds, Brass & Percussion Instruction" Response.write(" Woodwinds, Brass & Percussion Instruction ") else Response.write(" Woodwinds, Brass & Percussion Instruction ") end if if Int(CurrentPageID) = Int(3944) Then thes3nv="Voice Instruction" Response.write(" Voice Instruction ") else Response.write(" Voice Instruction ") end if if Int(CurrentPageID) = Int(3943) Then thes3nv="Music Theater" Response.write(" Music Theater ") else Response.write(" Music Theater ") end if if Int(CurrentPageID) = Int(3942) Then thes3nv="Music Theory and Musicianship" Response.write(" Music Theory and Musicianship ") else Response.write(" Music Theory and Musicianship ") end if if Int(CurrentPageID) = Int(3941) Then thes3nv="Early Childhood Program" Response.write(" Early Childhood Program ") else Response.write(" Early Childhood Program ") end if if Int(CurrentPageID) = Int(3940) Then thes3nv="Music Therapy" Response.write(" Music Therapy ") else Response.write(" Music Therapy ") end if if Int(CurrentPageID) = Int(3939) Then thes3nv="Performing Ensembles" Response.write(" Performing Ensembles ") else Response.write(" Performing Ensembles ") end if if Int(CurrentPageID) = Int(3937) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(3936) Then thes3nv="Conservatory Policies" Response.write(" Conservatory Policies ") else Response.write(" Conservatory Policies ") end if if Int(CurrentPageID) = Int(3935) Then thes3nv="General Information" Response.write(" General Information ") else Response.write(" General Information ") end if end if' DidRender = False DidRender = True 'Nesting = "/14878/" if Int(CurrentPageID) <> Int(14878) Then Response.Write(" ") %> <% Response.Write("Honors Music Program") %> <% Response.Write(" ") else %> Honors Music Program <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Honors Music Program" subsecLink = "/887_14878.htm" end if NodeID = 14878 Response.write("") if InStr(1, BreadCrumb, "/" & 14874 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14879/" if Int(CurrentPageID) <> Int(14879) Then Response.Write(" ") %> <% Response.Write("Summer Lessons") %> <% Response.Write(" ") else %> Summer Lessons <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Lessons" subsecLink = "/887_14879.htm" end if NodeID = 14879 Response.write("") if InStr(1, BreadCrumb, "/" & 14875 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1116/" if Int(CurrentPageID) <> Int(1116) Then Response.Write(" ") %> <% Response.Write("Summer Camps") %> <% Response.Write(" ") else %> Summer Camps <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/887_1116.htm" end if NodeID = 1116 Response.write("") if InStr(1, BreadCrumb, "/" & 1018 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14883/" if Int(CurrentPageID) <> Int(14883) Then Response.Write(" ") %> <% Response.Write("Opera Outings") %> <% Response.Write(" ") else %> Opera Outings <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Opera Outings" subsecLink = "/887_14883.htm" end if NodeID = 14883 Response.write("") if InStr(1, BreadCrumb, "/" & 14876 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14885/" if Int(CurrentPageID) <> Int(14885) Then Response.Write(" ") %> <% Response.Write("Conservatory Events") %> <% Response.Write(" ") else %> Conservatory Events <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Conservatory Events" subsecLink = "/887_14885.htm" end if NodeID = 14885 Response.write("") if InStr(1, BreadCrumb, "/" & 14877 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/2436/" if Int(CurrentPageID) <> Int(2436) Then Response.Write(" ") %> <% Response.Write("Locations & Directions") %> <% Response.Write(" ") else %> Locations & Directions <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Locations & Directions" subsecLink = "/887_2436.htm" end if NodeID = 2436 Response.write("") if InStr(1, BreadCrumb, "/" & 2435 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3933/" if Int(CurrentPageID) <> Int(3933) Then Response.Write(" ") %> <% Response.Write("Our Faculty") %> <% Response.Write(" ") else %> Our Faculty <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Our Faculty" subsecLink = "/887_3933.htm" end if NodeID = 3933 Response.write("") if InStr(1, BreadCrumb, "/" & 3932 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/17202/" if Int(CurrentPageID) <> Int(17202) Then Response.Write(" ") %> <% Response.Write("Forms") %> <% Response.Write(" ") else %> Forms <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Forms" subsecLink = "/887_17202.htm" end if NodeID = 17202 Response.write("") if InStr(1, BreadCrumb, "/" & 17201 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1117/" if Int(CurrentPageID) <> Int(1117) 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 = "/887_1117.htm" end if NodeID = 1117 Response.write("") if InStr(1, BreadCrumb, "/" & 1017 & "/") > 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 = "/3931/" if Int(CurrentPageID) <> Int(3931) Then Response.Write(" ") %> <% Response.Write("Private Instruction & Class Information") %> <% Response.Write(" ") else %> Private Instruction & Class Information <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Private Instruction & Class Information" subsecLink = "/887_3931.htm" end if NodeID = 3931 Response.write("") if InStr(1, BreadCrumb, "/" & 3930 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3949) Then thes3nv="Private Instruction" Response.write(" Private Instruction ") else Response.write(" Private Instruction ") end if if Int(CurrentPageID) = Int(3948) Then thes3nv="Registration Information" Response.write(" Registration Information ") else Response.write(" Registration Information ") end if if Int(CurrentPageID) = Int(3947) Then thes3nv="Keyboard Instruction" Response.write(" Keyboard Instruction ") else Response.write(" Keyboard Instruction ") end if if Int(CurrentPageID) = Int(3946) Then thes3nv="Strings Instruction" Response.write(" Strings Instruction ") else Response.write(" Strings Instruction ") end if if Int(CurrentPageID) = Int(3945) Then thes3nv="Woodwinds, Brass & Percussion Instruction" Response.write(" Woodwinds, Brass & Percussion Instruction ") else Response.write(" Woodwinds, Brass & Percussion Instruction ") end if if Int(CurrentPageID) = Int(3944) Then thes3nv="Voice Instruction" Response.write(" Voice Instruction ") else Response.write(" Voice Instruction ") end if if Int(CurrentPageID) = Int(3943) Then thes3nv="Music Theater" Response.write(" Music Theater ") else Response.write(" Music Theater ") end if if Int(CurrentPageID) = Int(3942) Then thes3nv="Music Theory and Musicianship" Response.write(" Music Theory and Musicianship ") else Response.write(" Music Theory and Musicianship ") end if if Int(CurrentPageID) = Int(3941) Then thes3nv="Early Childhood Program" Response.write(" Early Childhood Program ") else Response.write(" Early Childhood Program ") end if if Int(CurrentPageID) = Int(3940) Then thes3nv="Music Therapy" Response.write(" Music Therapy ") else Response.write(" Music Therapy ") end if if Int(CurrentPageID) = Int(3939) Then thes3nv="Performing Ensembles" Response.write(" Performing Ensembles ") else Response.write(" Performing Ensembles ") end if if Int(CurrentPageID) = Int(3937) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(3936) Then thes3nv="Conservatory Policies" Response.write(" Conservatory Policies ") else Response.write(" Conservatory Policies ") end if if Int(CurrentPageID) = Int(3935) Then thes3nv="General Information" Response.write(" General Information ") else Response.write(" General Information ") end if end if' DidRender = False DidRender = True 'Nesting = "/14878/" if Int(CurrentPageID) <> Int(14878) Then Response.Write(" ") %> <% Response.Write("Honors Music Program") %> <% Response.Write(" ") else %> Honors Music Program <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Honors Music Program" subsecLink = "/887_14878.htm" end if NodeID = 14878 Response.write("") if InStr(1, BreadCrumb, "/" & 14874 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14879/" if Int(CurrentPageID) <> Int(14879) Then Response.Write(" ") %> <% Response.Write("Summer Lessons") %> <% Response.Write(" ") else %> Summer Lessons <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Lessons" subsecLink = "/887_14879.htm" end if NodeID = 14879 Response.write("") if InStr(1, BreadCrumb, "/" & 14875 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1116/" if Int(CurrentPageID) <> Int(1116) Then Response.Write(" ") %> <% Response.Write("Summer Camps") %> <% Response.Write(" ") else %> Summer Camps <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/887_1116.htm" end if NodeID = 1116 Response.write("") if InStr(1, BreadCrumb, "/" & 1018 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14883/" if Int(CurrentPageID) <> Int(14883) Then Response.Write(" ") %> <% Response.Write("Opera Outings") %> <% Response.Write(" ") else %> Opera Outings <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Opera Outings" subsecLink = "/887_14883.htm" end if NodeID = 14883 Response.write("") if InStr(1, BreadCrumb, "/" & 14876 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14885/" if Int(CurrentPageID) <> Int(14885) Then Response.Write(" ") %> <% Response.Write("Conservatory Events") %> <% Response.Write(" ") else %> Conservatory Events <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Conservatory Events" subsecLink = "/887_14885.htm" end if NodeID = 14885 Response.write("") if InStr(1, BreadCrumb, "/" & 14877 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/2436/" if Int(CurrentPageID) <> Int(2436) Then Response.Write(" ") %> <% Response.Write("Locations & Directions") %> <% Response.Write(" ") else %> Locations & Directions <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Locations & Directions" subsecLink = "/887_2436.htm" end if NodeID = 2436 Response.write("") if InStr(1, BreadCrumb, "/" & 2435 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3933/" if Int(CurrentPageID) <> Int(3933) Then Response.Write(" ") %> <% Response.Write("Our Faculty") %> <% Response.Write(" ") else %> Our Faculty <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Our Faculty" subsecLink = "/887_3933.htm" end if NodeID = 3933 Response.write("") if InStr(1, BreadCrumb, "/" & 3932 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/17202/" if Int(CurrentPageID) <> Int(17202) Then Response.Write(" ") %> <% Response.Write("Forms") %> <% Response.Write(" ") else %> Forms <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Forms" subsecLink = "/887_17202.htm" end if NodeID = 17202 Response.write("") if InStr(1, BreadCrumb, "/" & 17201 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1117/" if Int(CurrentPageID) <> Int(1117) 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 = "/887_1117.htm" end if NodeID = 1117 Response.write("") if InStr(1, BreadCrumb, "/" & 1017 & "/") > 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 = "/3931/" if Int(CurrentPageID) <> Int(3931) Then Response.Write(" ") %> <% Response.Write("Private Instruction & Class Information") %> <% Response.Write(" ") else %> Private Instruction & Class Information <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Private Instruction & Class Information" subsecLink = "/887_3931.htm" end if NodeID = 3931 Response.write("") if InStr(1, BreadCrumb, "/" & 3930 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3949) Then thes3nv="Private Instruction" Response.write(" Private Instruction ") else Response.write(" Private Instruction ") end if if Int(CurrentPageID) = Int(3948) Then thes3nv="Registration Information" Response.write(" Registration Information ") else Response.write(" Registration Information ") end if if Int(CurrentPageID) = Int(3947) Then thes3nv="Keyboard Instruction" Response.write(" Keyboard Instruction ") else Response.write(" Keyboard Instruction ") end if if Int(CurrentPageID) = Int(3946) Then thes3nv="Strings Instruction" Response.write(" Strings Instruction ") else Response.write(" Strings Instruction ") end if if Int(CurrentPageID) = Int(3945) Then thes3nv="Woodwinds, Brass & Percussion Instruction" Response.write(" Woodwinds, Brass & Percussion Instruction ") else Response.write(" Woodwinds, Brass & Percussion Instruction ") end if if Int(CurrentPageID) = Int(3944) Then thes3nv="Voice Instruction" Response.write(" Voice Instruction ") else Response.write(" Voice Instruction ") end if if Int(CurrentPageID) = Int(3943) Then thes3nv="Music Theater" Response.write(" Music Theater ") else Response.write(" Music Theater ") end if if Int(CurrentPageID) = Int(3942) Then thes3nv="Music Theory and Musicianship" Response.write(" Music Theory and Musicianship ") else Response.write(" Music Theory and Musicianship ") end if if Int(CurrentPageID) = Int(3941) Then thes3nv="Early Childhood Program" Response.write(" Early Childhood Program ") else Response.write(" Early Childhood Program ") end if if Int(CurrentPageID) = Int(3940) Then thes3nv="Music Therapy" Response.write(" Music Therapy ") else Response.write(" Music Therapy ") end if if Int(CurrentPageID) = Int(3939) Then thes3nv="Performing Ensembles" Response.write(" Performing Ensembles ") else Response.write(" Performing Ensembles ") end if if Int(CurrentPageID) = Int(3937) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(3936) Then thes3nv="Conservatory Policies" Response.write(" Conservatory Policies ") else Response.write(" Conservatory Policies ") end if if Int(CurrentPageID) = Int(3935) Then thes3nv="General Information" Response.write(" General Information ") else Response.write(" General Information ") end if end if' DidRender = False DidRender = True 'Nesting = "/14878/" if Int(CurrentPageID) <> Int(14878) Then Response.Write(" ") %> <% Response.Write("Honors Music Program") %> <% Response.Write(" ") else %> Honors Music Program <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Honors Music Program" subsecLink = "/887_14878.htm" end if NodeID = 14878 Response.write("") if InStr(1, BreadCrumb, "/" & 14874 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14879/" if Int(CurrentPageID) <> Int(14879) Then Response.Write(" ") %> <% Response.Write("Summer Lessons") %> <% Response.Write(" ") else %> Summer Lessons <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Lessons" subsecLink = "/887_14879.htm" end if NodeID = 14879 Response.write("") if InStr(1, BreadCrumb, "/" & 14875 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1116/" if Int(CurrentPageID) <> Int(1116) Then Response.Write(" ") %> <% Response.Write("Summer Camps") %> <% Response.Write(" ") else %> Summer Camps <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/887_1116.htm" end if NodeID = 1116 Response.write("") if InStr(1, BreadCrumb, "/" & 1018 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14883/" if Int(CurrentPageID) <> Int(14883) Then Response.Write(" ") %> <% Response.Write("Opera Outings") %> <% Response.Write(" ") else %> Opera Outings <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Opera Outings" subsecLink = "/887_14883.htm" end if NodeID = 14883 Response.write("") if InStr(1, BreadCrumb, "/" & 14876 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14885/" if Int(CurrentPageID) <> Int(14885) Then Response.Write(" ") %> <% Response.Write("Conservatory Events") %> <% Response.Write(" ") else %> Conservatory Events <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Conservatory Events" subsecLink = "/887_14885.htm" end if NodeID = 14885 Response.write("") if InStr(1, BreadCrumb, "/" & 14877 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/2436/" if Int(CurrentPageID) <> Int(2436) Then Response.Write(" ") %> <% Response.Write("Locations & Directions") %> <% Response.Write(" ") else %> Locations & Directions <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Locations & Directions" subsecLink = "/887_2436.htm" end if NodeID = 2436 Response.write("") if InStr(1, BreadCrumb, "/" & 2435 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3933/" if Int(CurrentPageID) <> Int(3933) Then Response.Write(" ") %> <% Response.Write("Our Faculty") %> <% Response.Write(" ") else %> Our Faculty <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Our Faculty" subsecLink = "/887_3933.htm" end if NodeID = 3933 Response.write("") if InStr(1, BreadCrumb, "/" & 3932 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/17202/" if Int(CurrentPageID) <> Int(17202) Then Response.Write(" ") %> <% Response.Write("Forms") %> <% Response.Write(" ") else %> Forms <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Forms" subsecLink = "/887_17202.htm" end if NodeID = 17202 Response.write("") if InStr(1, BreadCrumb, "/" & 17201 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1117/" if Int(CurrentPageID) <> Int(1117) 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 = "/887_1117.htm" end if NodeID = 1117 Response.write("") if InStr(1, BreadCrumb, "/" & 1017 & "/") > 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 = "/3931/" if Int(CurrentPageID) <> Int(3931) Then Response.Write(" ") %> <% Response.Write("Private Instruction & Class Information") %> <% Response.Write(" ") else %> Private Instruction & Class Information <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Private Instruction & Class Information" subsecLink = "/887_3931.htm" end if NodeID = 3931 Response.write("") if InStr(1, BreadCrumb, "/" & 3930 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3949) Then thes3nv="Private Instruction" Response.write(" Private Instruction ") else Response.write(" Private Instruction ") end if if Int(CurrentPageID) = Int(3948) Then thes3nv="Registration Information" Response.write(" Registration Information ") else Response.write(" Registration Information ") end if if Int(CurrentPageID) = Int(3947) Then thes3nv="Keyboard Instruction" Response.write(" Keyboard Instruction ") else Response.write(" Keyboard Instruction ") end if if Int(CurrentPageID) = Int(3946) Then thes3nv="Strings Instruction" Response.write(" Strings Instruction ") else Response.write(" Strings Instruction ") end if if Int(CurrentPageID) = Int(3945) Then thes3nv="Woodwinds, Brass & Percussion Instruction" Response.write(" Woodwinds, Brass & Percussion Instruction ") else Response.write(" Woodwinds, Brass & Percussion Instruction ") end if if Int(CurrentPageID) = Int(3944) Then thes3nv="Voice Instruction" Response.write(" Voice Instruction ") else Response.write(" Voice Instruction ") end if if Int(CurrentPageID) = Int(3943) Then thes3nv="Music Theater" Response.write(" Music Theater ") else Response.write(" Music Theater ") end if if Int(CurrentPageID) = Int(3942) Then thes3nv="Music Theory and Musicianship" Response.write(" Music Theory and Musicianship ") else Response.write(" Music Theory and Musicianship ") end if if Int(CurrentPageID) = Int(3941) Then thes3nv="Early Childhood Program" Response.write(" Early Childhood Program ") else Response.write(" Early Childhood Program ") end if if Int(CurrentPageID) = Int(3940) Then thes3nv="Music Therapy" Response.write(" Music Therapy ") else Response.write(" Music Therapy ") end if if Int(CurrentPageID) = Int(3939) Then thes3nv="Performing Ensembles" Response.write(" Performing Ensembles ") else Response.write(" Performing Ensembles ") end if if Int(CurrentPageID) = Int(3937) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(3936) Then thes3nv="Conservatory Policies" Response.write(" Conservatory Policies ") else Response.write(" Conservatory Policies ") end if if Int(CurrentPageID) = Int(3935) Then thes3nv="General Information" Response.write(" General Information ") else Response.write(" General Information ") end if end if' DidRender = False DidRender = True 'Nesting = "/14878/" if Int(CurrentPageID) <> Int(14878) Then Response.Write(" ") %> <% Response.Write("Honors Music Program") %> <% Response.Write(" ") else %> Honors Music Program <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Honors Music Program" subsecLink = "/887_14878.htm" end if NodeID = 14878 Response.write("") if InStr(1, BreadCrumb, "/" & 14874 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14879/" if Int(CurrentPageID) <> Int(14879) Then Response.Write(" ") %> <% Response.Write("Summer Lessons") %> <% Response.Write(" ") else %> Summer Lessons <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Lessons" subsecLink = "/887_14879.htm" end if NodeID = 14879 Response.write("") if InStr(1, BreadCrumb, "/" & 14875 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1116/" if Int(CurrentPageID) <> Int(1116) Then Response.Write(" ") %> <% Response.Write("Summer Camps") %> <% Response.Write(" ") else %> Summer Camps <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/887_1116.htm" end if NodeID = 1116 Response.write("") if InStr(1, BreadCrumb, "/" & 1018 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14883/" if Int(CurrentPageID) <> Int(14883) Then Response.Write(" ") %> <% Response.Write("Opera Outings") %> <% Response.Write(" ") else %> Opera Outings <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Opera Outings" subsecLink = "/887_14883.htm" end if NodeID = 14883 Response.write("") if InStr(1, BreadCrumb, "/" & 14876 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14885/" if Int(CurrentPageID) <> Int(14885) Then Response.Write(" ") %> <% Response.Write("Conservatory Events") %> <% Response.Write(" ") else %> Conservatory Events <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Conservatory Events" subsecLink = "/887_14885.htm" end if NodeID = 14885 Response.write("") if InStr(1, BreadCrumb, "/" & 14877 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/2436/" if Int(CurrentPageID) <> Int(2436) Then Response.Write(" ") %> <% Response.Write("Locations & Directions") %> <% Response.Write(" ") else %> Locations & Directions <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Locations & Directions" subsecLink = "/887_2436.htm" end if NodeID = 2436 Response.write("") if InStr(1, BreadCrumb, "/" & 2435 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3933/" if Int(CurrentPageID) <> Int(3933) Then Response.Write(" ") %> <% Response.Write("Our Faculty") %> <% Response.Write(" ") else %> Our Faculty <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Our Faculty" subsecLink = "/887_3933.htm" end if NodeID = 3933 Response.write("") if InStr(1, BreadCrumb, "/" & 3932 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/17202/" if Int(CurrentPageID) <> Int(17202) Then Response.Write(" ") %> <% Response.Write("Forms") %> <% Response.Write(" ") else %> Forms <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Forms" subsecLink = "/887_17202.htm" end if NodeID = 17202 Response.write("") if InStr(1, BreadCrumb, "/" & 17201 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1117/" if Int(CurrentPageID) <> Int(1117) 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 = "/887_1117.htm" end if NodeID = 1117 Response.write("") if InStr(1, BreadCrumb, "/" & 1017 & "/") > 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 = "/3931/" if Int(CurrentPageID) <> Int(3931) Then Response.Write(" ") %> <% Response.Write("Private Instruction & Class Information") %> <% Response.Write(" ") else %> Private Instruction & Class Information <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Private Instruction & Class Information" subsecLink = "/887_3931.htm" end if NodeID = 3931 Response.write("") if InStr(1, BreadCrumb, "/" & 3930 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3949) Then thes3nv="Private Instruction" Response.write(" Private Instruction ") else Response.write(" Private Instruction ") end if if Int(CurrentPageID) = Int(3948) Then thes3nv="Registration Information" Response.write(" Registration Information ") else Response.write(" Registration Information ") end if if Int(CurrentPageID) = Int(3947) Then thes3nv="Keyboard Instruction" Response.write(" Keyboard Instruction ") else Response.write(" Keyboard Instruction ") end if if Int(CurrentPageID) = Int(3946) Then thes3nv="Strings Instruction" Response.write(" Strings Instruction ") else Response.write(" Strings Instruction ") end if if Int(CurrentPageID) = Int(3945) Then thes3nv="Woodwinds, Brass & Percussion Instruction" Response.write(" Woodwinds, Brass & Percussion Instruction ") else Response.write(" Woodwinds, Brass & Percussion Instruction ") end if if Int(CurrentPageID) = Int(3944) Then thes3nv="Voice Instruction" Response.write(" Voice Instruction ") else Response.write(" Voice Instruction ") end if if Int(CurrentPageID) = Int(3943) Then thes3nv="Music Theater" Response.write(" Music Theater ") else Response.write(" Music Theater ") end if if Int(CurrentPageID) = Int(3942) Then thes3nv="Music Theory and Musicianship" Response.write(" Music Theory and Musicianship ") else Response.write(" Music Theory and Musicianship ") end if if Int(CurrentPageID) = Int(3941) Then thes3nv="Early Childhood Program" Response.write(" Early Childhood Program ") else Response.write(" Early Childhood Program ") end if if Int(CurrentPageID) = Int(3940) Then thes3nv="Music Therapy" Response.write(" Music Therapy ") else Response.write(" Music Therapy ") end if if Int(CurrentPageID) = Int(3939) Then thes3nv="Performing Ensembles" Response.write(" Performing Ensembles ") else Response.write(" Performing Ensembles ") end if if Int(CurrentPageID) = Int(3937) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(3936) Then thes3nv="Conservatory Policies" Response.write(" Conservatory Policies ") else Response.write(" Conservatory Policies ") end if if Int(CurrentPageID) = Int(3935) Then thes3nv="General Information" Response.write(" General Information ") else Response.write(" General Information ") end if end if' DidRender = False DidRender = True 'Nesting = "/14878/" if Int(CurrentPageID) <> Int(14878) Then Response.Write(" ") %> <% Response.Write("Honors Music Program") %> <% Response.Write(" ") else %> Honors Music Program <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Honors Music Program" subsecLink = "/887_14878.htm" end if NodeID = 14878 Response.write("") if InStr(1, BreadCrumb, "/" & 14874 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14879/" if Int(CurrentPageID) <> Int(14879) Then Response.Write(" ") %> <% Response.Write("Summer Lessons") %> <% Response.Write(" ") else %> Summer Lessons <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Lessons" subsecLink = "/887_14879.htm" end if NodeID = 14879 Response.write("") if InStr(1, BreadCrumb, "/" & 14875 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1116/" if Int(CurrentPageID) <> Int(1116) Then Response.Write(" ") %> <% Response.Write("Summer Camps") %> <% Response.Write(" ") else %> Summer Camps <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/887_1116.htm" end if NodeID = 1116 Response.write("") if InStr(1, BreadCrumb, "/" & 1018 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14883/" if Int(CurrentPageID) <> Int(14883) Then Response.Write(" ") %> <% Response.Write("Opera Outings") %> <% Response.Write(" ") else %> Opera Outings <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Opera Outings" subsecLink = "/887_14883.htm" end if NodeID = 14883 Response.write("") if InStr(1, BreadCrumb, "/" & 14876 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14885/" if Int(CurrentPageID) <> Int(14885) Then Response.Write(" ") %> <% Response.Write("Conservatory Events") %> <% Response.Write(" ") else %> Conservatory Events <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Conservatory Events" subsecLink = "/887_14885.htm" end if NodeID = 14885 Response.write("") if InStr(1, BreadCrumb, "/" & 14877 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/2436/" if Int(CurrentPageID) <> Int(2436) Then Response.Write(" ") %> <% Response.Write("Locations & Directions") %> <% Response.Write(" ") else %> Locations & Directions <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Locations & Directions" subsecLink = "/887_2436.htm" end if NodeID = 2436 Response.write("") if InStr(1, BreadCrumb, "/" & 2435 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3933/" if Int(CurrentPageID) <> Int(3933) Then Response.Write(" ") %> <% Response.Write("Our Faculty") %> <% Response.Write(" ") else %> Our Faculty <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Our Faculty" subsecLink = "/887_3933.htm" end if NodeID = 3933 Response.write("") if InStr(1, BreadCrumb, "/" & 3932 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/17202/" if Int(CurrentPageID) <> Int(17202) Then Response.Write(" ") %> <% Response.Write("Forms") %> <% Response.Write(" ") else %> Forms <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Forms" subsecLink = "/887_17202.htm" end if NodeID = 17202 Response.write("") if InStr(1, BreadCrumb, "/" & 17201 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1117/" if Int(CurrentPageID) <> Int(1117) 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 = "/887_1117.htm" end if NodeID = 1117 Response.write("") if InStr(1, BreadCrumb, "/" & 1017 & "/") > 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 = "/3931/" if Int(CurrentPageID) <> Int(3931) Then Response.Write(" ") %> <% Response.Write("Private Instruction & Class Information") %> <% Response.Write(" ") else %> Private Instruction & Class Information <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Private Instruction & Class Information" subsecLink = "/887_3931.htm" end if NodeID = 3931 Response.write("") if InStr(1, BreadCrumb, "/" & 3930 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3949) Then thes3nv="Private Instruction" Response.write(" Private Instruction ") else Response.write(" Private Instruction ") end if if Int(CurrentPageID) = Int(3948) Then thes3nv="Registration Information" Response.write(" Registration Information ") else Response.write(" Registration Information ") end if if Int(CurrentPageID) = Int(3947) Then thes3nv="Keyboard Instruction" Response.write(" Keyboard Instruction ") else Response.write(" Keyboard Instruction ") end if if Int(CurrentPageID) = Int(3946) Then thes3nv="Strings Instruction" Response.write(" Strings Instruction ") else Response.write(" Strings Instruction ") end if if Int(CurrentPageID) = Int(3945) Then thes3nv="Woodwinds, Brass & Percussion Instruction" Response.write(" Woodwinds, Brass & Percussion Instruction ") else Response.write(" Woodwinds, Brass & Percussion Instruction ") end if if Int(CurrentPageID) = Int(3944) Then thes3nv="Voice Instruction" Response.write(" Voice Instruction ") else Response.write(" Voice Instruction ") end if if Int(CurrentPageID) = Int(3943) Then thes3nv="Music Theater" Response.write(" Music Theater ") else Response.write(" Music Theater ") end if if Int(CurrentPageID) = Int(3942) Then thes3nv="Music Theory and Musicianship" Response.write(" Music Theory and Musicianship ") else Response.write(" Music Theory and Musicianship ") end if if Int(CurrentPageID) = Int(3941) Then thes3nv="Early Childhood Program" Response.write(" Early Childhood Program ") else Response.write(" Early Childhood Program ") end if if Int(CurrentPageID) = Int(3940) Then thes3nv="Music Therapy" Response.write(" Music Therapy ") else Response.write(" Music Therapy ") end if if Int(CurrentPageID) = Int(3939) Then thes3nv="Performing Ensembles" Response.write(" Performing Ensembles ") else Response.write(" Performing Ensembles ") end if if Int(CurrentPageID) = Int(3937) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(3936) Then thes3nv="Conservatory Policies" Response.write(" Conservatory Policies ") else Response.write(" Conservatory Policies ") end if if Int(CurrentPageID) = Int(3935) Then thes3nv="General Information" Response.write(" General Information ") else Response.write(" General Information ") end if end if' DidRender = False DidRender = True 'Nesting = "/14878/" if Int(CurrentPageID) <> Int(14878) Then Response.Write(" ") %> <% Response.Write("Honors Music Program") %> <% Response.Write(" ") else %> Honors Music Program <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Honors Music Program" subsecLink = "/887_14878.htm" end if NodeID = 14878 Response.write("") if InStr(1, BreadCrumb, "/" & 14874 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14879/" if Int(CurrentPageID) <> Int(14879) Then Response.Write(" ") %> <% Response.Write("Summer Lessons") %> <% Response.Write(" ") else %> Summer Lessons <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Lessons" subsecLink = "/887_14879.htm" end if NodeID = 14879 Response.write("") if InStr(1, BreadCrumb, "/" & 14875 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1116/" if Int(CurrentPageID) <> Int(1116) Then Response.Write(" ") %> <% Response.Write("Summer Camps") %> <% Response.Write(" ") else %> Summer Camps <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/887_1116.htm" end if NodeID = 1116 Response.write("") if InStr(1, BreadCrumb, "/" & 1018 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14883/" if Int(CurrentPageID) <> Int(14883) Then Response.Write(" ") %> <% Response.Write("Opera Outings") %> <% Response.Write(" ") else %> Opera Outings <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Opera Outings" subsecLink = "/887_14883.htm" end if NodeID = 14883 Response.write("") if InStr(1, BreadCrumb, "/" & 14876 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14885/" if Int(CurrentPageID) <> Int(14885) Then Response.Write(" ") %> <% Response.Write("Conservatory Events") %> <% Response.Write(" ") else %> Conservatory Events <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Conservatory Events" subsecLink = "/887_14885.htm" end if NodeID = 14885 Response.write("") if InStr(1, BreadCrumb, "/" & 14877 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/2436/" if Int(CurrentPageID) <> Int(2436) Then Response.Write(" ") %> <% Response.Write("Locations & Directions") %> <% Response.Write(" ") else %> Locations & Directions <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Locations & Directions" subsecLink = "/887_2436.htm" end if NodeID = 2436 Response.write("") if InStr(1, BreadCrumb, "/" & 2435 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3933/" if Int(CurrentPageID) <> Int(3933) Then Response.Write(" ") %> <% Response.Write("Our Faculty") %> <% Response.Write(" ") else %> Our Faculty <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Our Faculty" subsecLink = "/887_3933.htm" end if NodeID = 3933 Response.write("") if InStr(1, BreadCrumb, "/" & 3932 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/17202/" if Int(CurrentPageID) <> Int(17202) Then Response.Write(" ") %> <% Response.Write("Forms") %> <% Response.Write(" ") else %> Forms <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Forms" subsecLink = "/887_17202.htm" end if NodeID = 17202 Response.write("") if InStr(1, BreadCrumb, "/" & 17201 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1117/" if Int(CurrentPageID) <> Int(1117) 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 = "/887_1117.htm" end if NodeID = 1117 Response.write("") if InStr(1, BreadCrumb, "/" & 1017 & "/") > 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 = "/3931/" if Int(CurrentPageID) <> Int(3931) Then Response.Write(" ") %> <% Response.Write("Private Instruction & Class Information") %> <% Response.Write(" ") else %> Private Instruction & Class Information <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Private Instruction & Class Information" subsecLink = "/887_3931.htm" end if NodeID = 3931 Response.write("") if InStr(1, BreadCrumb, "/" & 3930 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3949) Then thes3nv="Private Instruction" Response.write(" Private Instruction ") else Response.write(" Private Instruction ") end if if Int(CurrentPageID) = Int(3948) Then thes3nv="Registration Information" Response.write(" Registration Information ") else Response.write(" Registration Information ") end if if Int(CurrentPageID) = Int(3947) Then thes3nv="Keyboard Instruction" Response.write(" Keyboard Instruction ") else Response.write(" Keyboard Instruction ") end if if Int(CurrentPageID) = Int(3946) Then thes3nv="Strings Instruction" Response.write(" Strings Instruction ") else Response.write(" Strings Instruction ") end if if Int(CurrentPageID) = Int(3945) Then thes3nv="Woodwinds, Brass & Percussion Instruction" Response.write(" Woodwinds, Brass & Percussion Instruction ") else Response.write(" Woodwinds, Brass & Percussion Instruction ") end if if Int(CurrentPageID) = Int(3944) Then thes3nv="Voice Instruction" Response.write(" Voice Instruction ") else Response.write(" Voice Instruction ") end if if Int(CurrentPageID) = Int(3943) Then thes3nv="Music Theater" Response.write(" Music Theater ") else Response.write(" Music Theater ") end if if Int(CurrentPageID) = Int(3942) Then thes3nv="Music Theory and Musicianship" Response.write(" Music Theory and Musicianship ") else Response.write(" Music Theory and Musicianship ") end if if Int(CurrentPageID) = Int(3941) Then thes3nv="Early Childhood Program" Response.write(" Early Childhood Program ") else Response.write(" Early Childhood Program ") end if if Int(CurrentPageID) = Int(3940) Then thes3nv="Music Therapy" Response.write(" Music Therapy ") else Response.write(" Music Therapy ") end if if Int(CurrentPageID) = Int(3939) Then thes3nv="Performing Ensembles" Response.write(" Performing Ensembles ") else Response.write(" Performing Ensembles ") end if if Int(CurrentPageID) = Int(3937) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(3936) Then thes3nv="Conservatory Policies" Response.write(" Conservatory Policies ") else Response.write(" Conservatory Policies ") end if if Int(CurrentPageID) = Int(3935) Then thes3nv="General Information" Response.write(" General Information ") else Response.write(" General Information ") end if end if' DidRender = False DidRender = True 'Nesting = "/14878/" if Int(CurrentPageID) <> Int(14878) Then Response.Write(" ") %> <% Response.Write("Honors Music Program") %> <% Response.Write(" ") else %> Honors Music Program <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Honors Music Program" subsecLink = "/887_14878.htm" end if NodeID = 14878 Response.write("") if InStr(1, BreadCrumb, "/" & 14874 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/14879/" if Int(CurrentPageID) <> Int(14879) Then Response.Write(" ") %> <% Response.Write("Summer Lessons") %> <% Response.Write(" ") else %> Summer Lessons <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Lessons" subsecLink = "/887_14879.htm" end if NodeID = 14879 Response.write("") if InStr(1, BreadCrumb, "/" & 14875 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/1116/" if Int(CurrentPageID) <> Int(1116) Then Response.Write(" ") %> <% Response.Write("Summer Camps") %> <% Response.Write(" ") else %> Summer Camps <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Summer Camps" subsecLink = "/887_1116.htm" end if NodeID = 1116 Response.write("") if InStr(1, BreadCrumb, "/" & 1018 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14883/" if Int(CurrentPageID) <> Int(14883) Then Response.Write(" ") %> <% Response.Write("Opera Outings") %> <% Response.Write(" ") else %> Opera Outings <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Opera Outings" subsecLink = "/887_14883.htm" end if NodeID = 14883 Response.write("") if InStr(1, BreadCrumb, "/" & 14876 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/14885/" if Int(CurrentPageID) <> Int(14885) Then Response.Write(" ") %> <% Response.Write("Conservatory Events") %> <% Response.Write(" ") else %> Conservatory Events <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Conservatory Events" subsecLink = "/887_14885.htm" end if NodeID = 14885 Response.write("") if InStr(1, BreadCrumb, "/" & 14877 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/2436/" if Int(CurrentPageID) <> Int(2436) Then Response.Write(" ") %> <% Response.Write("Locations & Directions") %> <% Response.Write(" ") else %> Locations & Directions <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Locations & Directions" subsecLink = "/887_2436.htm" end if NodeID = 2436 Response.write("") if InStr(1, BreadCrumb, "/" & 2435 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3933/" if Int(CurrentPageID) <> Int(3933) Then Response.Write(" ") %> <% Response.Write("Our Faculty") %> <% Response.Write(" ") else %> Our Faculty <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Our Faculty" subsecLink = "/887_3933.htm" end if NodeID = 3933 Response.write("") if InStr(1, BreadCrumb, "/" & 3932 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/17202/" if Int(CurrentPageID) <> Int(17202) Then Response.Write(" ") %> <% Response.Write("Forms") %> <% Response.Write(" ") else %> Forms <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Forms" subsecLink = "/887_17202.htm" end if NodeID = 17202 Response.write("") if InStr(1, BreadCrumb, "/" & 17201 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/1117/" if Int(CurrentPageID) <> Int(1117) 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 = "/887_1117.htm" end if NodeID = 1117 Response.write("") if InStr(1, BreadCrumb, "/" & 1017 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write(" ") end if %> <% function GetNavigationPath() NavPath = "" CurrentID = "3938" CurrentGUID = "34E745A3E3CA40FEB38B16ACC5FA8ADD" 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 %>