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 = 1232 SelectedItem = "Athletics" 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 / Friends" Or SelectedItem = "Parents / Family" Or SelectedItem = "Community Partners" Or SelectedItem = "Current Students" Or SelectedItem = "Faculty / Staff" then Select Case SelectedItem case "Prospective Students" Response.write("") case "Alumni / Friends" Response.write("") case "Parents / Family" Response.write("") case "Community Partners" Response.write("") case "Current Students" Response.write("") case "Faculty / Staff" Response.write("") End Select Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/13635/" if Int(CurrentPageID) <> Int(13635) Then Response.Write(" ") %> <% Response.Write("GoBroncs.com") %> <% Response.Write(" ") else %> GoBroncs.com <% OnSecondLevel = True end if if not HaveHead then subsecHead = "GoBroncs.com" subsecLink = "http://www.gobroncs.com" end if NodeID = 13635 Response.write("") if InStr(1, BreadCrumb, "/" & 13635 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/93/" if Int(CurrentPageID) <> Int(93) Then Response.Write(" ") %> <% Response.Write("Directions & Facilities") %> <% Response.Write(" ") else %> Directions & Facilities <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Directions & Facilities" subsecLink = "/174_93.htm" end if NodeID = 93 Response.write("") if InStr(1, BreadCrumb, "/" & 221 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(5987) Then thes3nv="Coppola Pool (Maurer Center)" Response.write(" Coppola Pool (Maurer Center) ") else Response.write(" Coppola Pool (Maurer Center) ") end if if Int(CurrentPageID) = Int(492) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(489) Then thes3nv="Alumni Gym" Response.write(" Alumni Gym ") else Response.write(" Alumni Gym ") end if if Int(CurrentPageID) = Int(488) Then thes3nv="Athletic Fields" Response.write(" Athletic Fields ") else Response.write(" Athletic Fields ") end if if Int(CurrentPageID) = Int(487) Then thes3nv="Directions to Rider" Response.write(" Directions to Rider ") else Response.write(" Directions to Rider ") end if end if' DidRender = False DidRender = True 'Nesting = "/222/" if Int(CurrentPageID) <> Int(222) Then Response.Write(" ") %> <% Response.Write("Intramural & Club Sports") %> <% Response.Write(" ") else %> Intramural & Club Sports <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Intramural & Club Sports" subsecLink = "http://www.rider.edu/175_535.htm" end if NodeID = 222 Response.write("") if InStr(1, BreadCrumb, "/" & 222 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if Response.write(" ") end if if SelectedItem <> "About Rider" then %> <% else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/13635/" if Int(CurrentPageID) <> Int(13635) Then Response.Write(" ") %> <% Response.Write("GoBroncs.com") %> <% Response.Write(" ") else %> GoBroncs.com <% OnSecondLevel = True end if if not HaveHead then subsecHead = "GoBroncs.com" subsecLink = "http://www.gobroncs.com" end if NodeID = 13635 Response.write("") if InStr(1, BreadCrumb, "/" & 13635 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/93/" if Int(CurrentPageID) <> Int(93) Then Response.Write(" ") %> <% Response.Write("Directions & Facilities") %> <% Response.Write(" ") else %> Directions & Facilities <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Directions & Facilities" subsecLink = "/174_93.htm" end if NodeID = 93 Response.write("") if InStr(1, BreadCrumb, "/" & 221 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(5987) Then thes3nv="Coppola Pool (Maurer Center)" Response.write(" Coppola Pool (Maurer Center) ") else Response.write(" Coppola Pool (Maurer Center) ") end if if Int(CurrentPageID) = Int(492) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(489) Then thes3nv="Alumni Gym" Response.write(" Alumni Gym ") else Response.write(" Alumni Gym ") end if if Int(CurrentPageID) = Int(488) Then thes3nv="Athletic Fields" Response.write(" Athletic Fields ") else Response.write(" Athletic Fields ") end if if Int(CurrentPageID) = Int(487) Then thes3nv="Directions to Rider" Response.write(" Directions to Rider ") else Response.write(" Directions to Rider ") end if end if' DidRender = False DidRender = True 'Nesting = "/222/" if Int(CurrentPageID) <> Int(222) Then Response.Write(" ") %> <% Response.Write("Intramural & Club Sports") %> <% Response.Write(" ") else %> Intramural & Club Sports <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Intramural & Club Sports" subsecLink = "http://www.rider.edu/175_535.htm" end if NodeID = 222 Response.write("") if InStr(1, BreadCrumb, "/" & 222 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if Response.write(" ") end if if SelectedItem <> "Colleges Schools" then %> <% else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/13635/" if Int(CurrentPageID) <> Int(13635) Then Response.Write(" ") %> <% Response.Write("GoBroncs.com") %> <% Response.Write(" ") else %> GoBroncs.com <% OnSecondLevel = True end if if not HaveHead then subsecHead = "GoBroncs.com" subsecLink = "http://www.gobroncs.com" end if NodeID = 13635 Response.write("") if InStr(1, BreadCrumb, "/" & 13635 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/93/" if Int(CurrentPageID) <> Int(93) Then Response.Write(" ") %> <% Response.Write("Directions & Facilities") %> <% Response.Write(" ") else %> Directions & Facilities <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Directions & Facilities" subsecLink = "/174_93.htm" end if NodeID = 93 Response.write("") if InStr(1, BreadCrumb, "/" & 221 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(5987) Then thes3nv="Coppola Pool (Maurer Center)" Response.write(" Coppola Pool (Maurer Center) ") else Response.write(" Coppola Pool (Maurer Center) ") end if if Int(CurrentPageID) = Int(492) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(489) Then thes3nv="Alumni Gym" Response.write(" Alumni Gym ") else Response.write(" Alumni Gym ") end if if Int(CurrentPageID) = Int(488) Then thes3nv="Athletic Fields" Response.write(" Athletic Fields ") else Response.write(" Athletic Fields ") end if if Int(CurrentPageID) = Int(487) Then thes3nv="Directions to Rider" Response.write(" Directions to Rider ") else Response.write(" Directions to Rider ") end if end if' DidRender = False DidRender = True 'Nesting = "/222/" if Int(CurrentPageID) <> Int(222) Then Response.Write(" ") %> <% Response.Write("Intramural & Club Sports") %> <% Response.Write(" ") else %> Intramural & Club Sports <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Intramural & Club Sports" subsecLink = "http://www.rider.edu/175_535.htm" end if NodeID = 222 Response.write("") if InStr(1, BreadCrumb, "/" & 222 & "/") > 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 = "/13635/" if Int(CurrentPageID) <> Int(13635) Then Response.Write(" ") %> <% Response.Write("GoBroncs.com") %> <% Response.Write(" ") else %> GoBroncs.com <% OnSecondLevel = True end if if not HaveHead then subsecHead = "GoBroncs.com" subsecLink = "http://www.gobroncs.com" end if NodeID = 13635 Response.write("") if InStr(1, BreadCrumb, "/" & 13635 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/93/" if Int(CurrentPageID) <> Int(93) Then Response.Write(" ") %> <% Response.Write("Directions & Facilities") %> <% Response.Write(" ") else %> Directions & Facilities <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Directions & Facilities" subsecLink = "/174_93.htm" end if NodeID = 93 Response.write("") if InStr(1, BreadCrumb, "/" & 221 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(5987) Then thes3nv="Coppola Pool (Maurer Center)" Response.write(" Coppola Pool (Maurer Center) ") else Response.write(" Coppola Pool (Maurer Center) ") end if if Int(CurrentPageID) = Int(492) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(489) Then thes3nv="Alumni Gym" Response.write(" Alumni Gym ") else Response.write(" Alumni Gym ") end if if Int(CurrentPageID) = Int(488) Then thes3nv="Athletic Fields" Response.write(" Athletic Fields ") else Response.write(" Athletic Fields ") end if if Int(CurrentPageID) = Int(487) Then thes3nv="Directions to Rider" Response.write(" Directions to Rider ") else Response.write(" Directions to Rider ") end if end if' DidRender = False DidRender = True 'Nesting = "/222/" if Int(CurrentPageID) <> Int(222) Then Response.Write(" ") %> <% Response.Write("Intramural & Club Sports") %> <% Response.Write(" ") else %> Intramural & Club Sports <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Intramural & Club Sports" subsecLink = "http://www.rider.edu/175_535.htm" end if NodeID = 222 Response.write("") if InStr(1, BreadCrumb, "/" & 222 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if Response.write(" ") end if if SelectedItem <> "Our Faculty" then Response.write("") else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/13635/" if Int(CurrentPageID) <> Int(13635) Then Response.Write(" ") %> <% Response.Write("GoBroncs.com") %> <% Response.Write(" ") else %> GoBroncs.com <% OnSecondLevel = True end if if not HaveHead then subsecHead = "GoBroncs.com" subsecLink = "http://www.gobroncs.com" end if NodeID = 13635 Response.write("") if InStr(1, BreadCrumb, "/" & 13635 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/93/" if Int(CurrentPageID) <> Int(93) Then Response.Write(" ") %> <% Response.Write("Directions & Facilities") %> <% Response.Write(" ") else %> Directions & Facilities <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Directions & Facilities" subsecLink = "/174_93.htm" end if NodeID = 93 Response.write("") if InStr(1, BreadCrumb, "/" & 221 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(5987) Then thes3nv="Coppola Pool (Maurer Center)" Response.write(" Coppola Pool (Maurer Center) ") else Response.write(" Coppola Pool (Maurer Center) ") end if if Int(CurrentPageID) = Int(492) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(489) Then thes3nv="Alumni Gym" Response.write(" Alumni Gym ") else Response.write(" Alumni Gym ") end if if Int(CurrentPageID) = Int(488) Then thes3nv="Athletic Fields" Response.write(" Athletic Fields ") else Response.write(" Athletic Fields ") end if if Int(CurrentPageID) = Int(487) Then thes3nv="Directions to Rider" Response.write(" Directions to Rider ") else Response.write(" Directions to Rider ") end if end if' DidRender = False DidRender = True 'Nesting = "/222/" if Int(CurrentPageID) <> Int(222) Then Response.Write(" ") %> <% Response.Write("Intramural & Club Sports") %> <% Response.Write(" ") else %> Intramural & Club Sports <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Intramural & Club Sports" subsecLink = "http://www.rider.edu/175_535.htm" end if NodeID = 222 Response.write("") if InStr(1, BreadCrumb, "/" & 222 & "/") > 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 = "/13635/" if Int(CurrentPageID) <> Int(13635) Then Response.Write(" ") %> <% Response.Write("GoBroncs.com") %> <% Response.Write(" ") else %> GoBroncs.com <% OnSecondLevel = True end if if not HaveHead then subsecHead = "GoBroncs.com" subsecLink = "http://www.gobroncs.com" end if NodeID = 13635 Response.write("") if InStr(1, BreadCrumb, "/" & 13635 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/93/" if Int(CurrentPageID) <> Int(93) Then Response.Write(" ") %> <% Response.Write("Directions & Facilities") %> <% Response.Write(" ") else %> Directions & Facilities <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Directions & Facilities" subsecLink = "/174_93.htm" end if NodeID = 93 Response.write("") if InStr(1, BreadCrumb, "/" & 221 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(5987) Then thes3nv="Coppola Pool (Maurer Center)" Response.write(" Coppola Pool (Maurer Center) ") else Response.write(" Coppola Pool (Maurer Center) ") end if if Int(CurrentPageID) = Int(492) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(489) Then thes3nv="Alumni Gym" Response.write(" Alumni Gym ") else Response.write(" Alumni Gym ") end if if Int(CurrentPageID) = Int(488) Then thes3nv="Athletic Fields" Response.write(" Athletic Fields ") else Response.write(" Athletic Fields ") end if if Int(CurrentPageID) = Int(487) Then thes3nv="Directions to Rider" Response.write(" Directions to Rider ") else Response.write(" Directions to Rider ") end if end if' DidRender = False DidRender = True 'Nesting = "/222/" if Int(CurrentPageID) <> Int(222) Then Response.Write(" ") %> <% Response.Write("Intramural & Club Sports") %> <% Response.Write(" ") else %> Intramural & Club Sports <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Intramural & Club Sports" subsecLink = "http://www.rider.edu/175_535.htm" end if NodeID = 222 Response.write("") if InStr(1, BreadCrumb, "/" & 222 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if Response.write(" ") end if if SelectedItem <> "Athletics" then Response.write("") else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/13635/" if Int(CurrentPageID) <> Int(13635) Then Response.Write(" ") %> <% Response.Write("GoBroncs.com") %> <% Response.Write(" ") else %> GoBroncs.com <% OnSecondLevel = True end if if not HaveHead then subsecHead = "GoBroncs.com" subsecLink = "http://www.gobroncs.com" end if NodeID = 13635 Response.write("") if InStr(1, BreadCrumb, "/" & 13635 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/93/" if Int(CurrentPageID) <> Int(93) Then Response.Write(" ") %> <% Response.Write("Directions & Facilities") %> <% Response.Write(" ") else %> Directions & Facilities <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Directions & Facilities" subsecLink = "/174_93.htm" end if NodeID = 93 Response.write("") if InStr(1, BreadCrumb, "/" & 221 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(5987) Then thes3nv="Coppola Pool (Maurer Center)" Response.write(" Coppola Pool (Maurer Center) ") else Response.write(" Coppola Pool (Maurer Center) ") end if if Int(CurrentPageID) = Int(492) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(489) Then thes3nv="Alumni Gym" Response.write(" Alumni Gym ") else Response.write(" Alumni Gym ") end if if Int(CurrentPageID) = Int(488) Then thes3nv="Athletic Fields" Response.write(" Athletic Fields ") else Response.write(" Athletic Fields ") end if if Int(CurrentPageID) = Int(487) Then thes3nv="Directions to Rider" Response.write(" Directions to Rider ") else Response.write(" Directions to Rider ") end if end if' DidRender = False DidRender = True 'Nesting = "/222/" if Int(CurrentPageID) <> Int(222) Then Response.Write(" ") %> <% Response.Write("Intramural & Club Sports") %> <% Response.Write(" ") else %> Intramural & Club Sports <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Intramural & Club Sports" subsecLink = "http://www.rider.edu/175_535.htm" end if NodeID = 222 Response.write("") if InStr(1, BreadCrumb, "/" & 222 & "/") > 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 = "/13635/" if Int(CurrentPageID) <> Int(13635) Then Response.Write(" ") %> <% Response.Write("GoBroncs.com") %> <% Response.Write(" ") else %> GoBroncs.com <% OnSecondLevel = True end if if not HaveHead then subsecHead = "GoBroncs.com" subsecLink = "http://www.gobroncs.com" end if NodeID = 13635 Response.write("") if InStr(1, BreadCrumb, "/" & 13635 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/93/" if Int(CurrentPageID) <> Int(93) Then Response.Write(" ") %> <% Response.Write("Directions & Facilities") %> <% Response.Write(" ") else %> Directions & Facilities <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Directions & Facilities" subsecLink = "/174_93.htm" end if NodeID = 93 Response.write("") if InStr(1, BreadCrumb, "/" & 221 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(5987) Then thes3nv="Coppola Pool (Maurer Center)" Response.write(" Coppola Pool (Maurer Center) ") else Response.write(" Coppola Pool (Maurer Center) ") end if if Int(CurrentPageID) = Int(492) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(489) Then thes3nv="Alumni Gym" Response.write(" Alumni Gym ") else Response.write(" Alumni Gym ") end if if Int(CurrentPageID) = Int(488) Then thes3nv="Athletic Fields" Response.write(" Athletic Fields ") else Response.write(" Athletic Fields ") end if if Int(CurrentPageID) = Int(487) Then thes3nv="Directions to Rider" Response.write(" Directions to Rider ") else Response.write(" Directions to Rider ") end if end if' DidRender = False DidRender = True 'Nesting = "/222/" if Int(CurrentPageID) <> Int(222) Then Response.Write(" ") %> <% Response.Write("Intramural & Club Sports") %> <% Response.Write(" ") else %> Intramural & Club Sports <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Intramural & Club Sports" subsecLink = "http://www.rider.edu/175_535.htm" end if NodeID = 222 Response.write("") if InStr(1, BreadCrumb, "/" & 222 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if Response.write(" ") end if if SelectedItem <> "News Center" then Response.write("") else Response.write("") Response.write(" ") ' DidRender = False DidRender = True 'Nesting = "/13635/" if Int(CurrentPageID) <> Int(13635) Then Response.Write(" ") %> <% Response.Write("GoBroncs.com") %> <% Response.Write(" ") else %> GoBroncs.com <% OnSecondLevel = True end if if not HaveHead then subsecHead = "GoBroncs.com" subsecLink = "http://www.gobroncs.com" end if NodeID = 13635 Response.write("") if InStr(1, BreadCrumb, "/" & 13635 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/93/" if Int(CurrentPageID) <> Int(93) Then Response.Write(" ") %> <% Response.Write("Directions & Facilities") %> <% Response.Write(" ") else %> Directions & Facilities <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Directions & Facilities" subsecLink = "/174_93.htm" end if NodeID = 93 Response.write("") if InStr(1, BreadCrumb, "/" & 221 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(5987) Then thes3nv="Coppola Pool (Maurer Center)" Response.write(" Coppola Pool (Maurer Center) ") else Response.write(" Coppola Pool (Maurer Center) ") end if if Int(CurrentPageID) = Int(492) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(489) Then thes3nv="Alumni Gym" Response.write(" Alumni Gym ") else Response.write(" Alumni Gym ") end if if Int(CurrentPageID) = Int(488) Then thes3nv="Athletic Fields" Response.write(" Athletic Fields ") else Response.write(" Athletic Fields ") end if if Int(CurrentPageID) = Int(487) Then thes3nv="Directions to Rider" Response.write(" Directions to Rider ") else Response.write(" Directions to Rider ") end if end if' DidRender = False DidRender = True 'Nesting = "/222/" if Int(CurrentPageID) <> Int(222) Then Response.Write(" ") %> <% Response.Write("Intramural & Club Sports") %> <% Response.Write(" ") else %> Intramural & Club Sports <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Intramural & Club Sports" subsecLink = "http://www.rider.edu/175_535.htm" end if NodeID = 222 Response.write("") if InStr(1, BreadCrumb, "/" & 222 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if Response.write(" ") end if%> <% function GetNavigationPath() NavPath = "" CurrentID = "1232" CurrentGUID = "9A514FD6BE0445D883BDE5244141F18C" 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 %>