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 = 4918 SelectedItem = "Student Life" 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 = "/98/" if Int(CurrentPageID) <> Int(98) Then Response.Write(" ") %> <% Response.Write("Activities Outside the Classroom") %> <% Response.Write(" ") else %> Activities Outside the Classroom <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Activities Outside the Classroom" subsecLink = "/175_98.htm" end if NodeID = 98 Response.write("") if InStr(1, BreadCrumb, "/" & 226 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2463) Then thes3nv="Office of Campus Life, Lawrenceville" Response.write(" Office of Campus Life, Lawrenceville ") else Response.write(" Office of Campus Life, Lawrenceville ") end if if Int(CurrentPageID) = Int(533) Then thes3nv="Campus Activities & Traditions " Response.write(" Campus Activities & Traditions ") else Response.write(" Campus Activities & Traditions ") end if if Int(CurrentPageID) = Int(536) Then thes3nv="Leadership Opportunities" Response.write(" Leadership Opportunities ") else Response.write(" Leadership Opportunities ") end if if Int(CurrentPageID) = Int(532) Then thes3nv="Fraternities & Sororities" Response.write(" Fraternities & Sororities ") else Response.write(" Fraternities & Sororities ") end if if Int(CurrentPageID) = Int(531) Then thes3nv="Religious Life" Response.write(" Religious Life ") else Response.write(" Religious Life ") end if if Int(CurrentPageID) = Int(15734) Then thes3nv="Student Government Association (Lawrenceville)" Response.write(" Student Government Association (Lawrenceville) ") else Response.write(" Student Government Association (Lawrenceville) ") end if if Int(CurrentPageID) = Int(528) Then thes3nv="Student Government Association (Princeton)" Response.write(" Student Government Association (Princeton) ") else Response.write(" Student Government Association (Princeton) ") end if end if' DidRender = False DidRender = True 'Nesting = "/535/" if Int(CurrentPageID) <> Int(535) Then Response.Write(" ") %> <% Response.Write("Recreation Programs") %> <% Response.Write(" ") else %> Recreation Programs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Recreation Programs" subsecLink = "/175_535.htm" end if NodeID = 535 Response.write("") if InStr(1, BreadCrumb, "/" & 10911 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16192) Then thes3nv="2009 Faculty and Staff Team Fitness Challenge" Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") else Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") end if if Int(CurrentPageID) = Int(16310) Then thes3nv="Fitness Programs" Response.write(" Fitness Programs ") else Response.write(" Fitness Programs ") end if if Int(CurrentPageID) = Int(7939) Then thes3nv="Intramurals" Response.write(" Intramurals ") else Response.write(" Intramurals ") end if if Int(CurrentPageID) = Int(7940) Then thes3nv="Club Sports" Response.write(" Club Sports ") else Response.write(" Club Sports ") end if if Int(CurrentPageID) = Int(2489) Then thes3nv="Outdoor Recreation" Response.write(" Outdoor Recreation ") else Response.write(" Outdoor Recreation ") end if if Int(CurrentPageID) = Int(10982) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(10980) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(4919) Then thes3nv="Recreation Resources" Response.write(" Recreation Resources ") else Response.write(" Recreation Resources ") end if if Int(CurrentPageID) = Int(10983) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/99/" if Int(CurrentPageID) <> Int(99) Then Response.Write(" ") %> <% Response.Write("Residence Life") %> <% Response.Write(" ") else %> Residence Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Residence Life" subsecLink = "/175_99.htm" end if NodeID = 99 Response.write("") if InStr(1, BreadCrumb, "/" & 227 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(543) Then thes3nv="Mission" Response.write(" Mission ") else Response.write(" Mission ") end if if Int(CurrentPageID) = Int(542) Then thes3nv="The Experience" Response.write(" The Experience ") else Response.write(" The Experience ") end if if Int(CurrentPageID) = Int(538) Then thes3nv="Employment & Graduate Assistantships" Response.write(" Employment & Graduate Assistantships ") else Response.write(" Employment & Graduate Assistantships ") end if if Int(CurrentPageID) = Int(541) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if if Int(CurrentPageID) = Int(537) Then thes3nv="Housing Information for Current Students" Response.write(" Housing Information for Current Students ") else Response.write(" Housing Information for Current Students ") end if end if' DidRender = False DidRender = True 'Nesting = "/100/" if Int(CurrentPageID) <> Int(100) Then Response.Write(" ") %> <% Response.Write("Off Campus Living and Commuter Life") %> <% Response.Write(" ") else %> Off Campus Living and Commuter Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Off Campus Living and Commuter Life" subsecLink = "/175_100.htm" end if NodeID = 100 Response.write("") if InStr(1, BreadCrumb, "/" & 228 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(539) Then thes3nv="Off-Campus Housing for Lawrenceville & Princeton" Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") else Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") end if if Int(CurrentPageID) = Int(548) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/101/" if Int(CurrentPageID) <> Int(101) Then Response.Write(" ") %> <% Response.Write("Dining Services") %> <% Response.Write(" ") else %> Dining Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Dining Services" subsecLink = "/175_101.htm" end if NodeID = 101 Response.write("") if InStr(1, BreadCrumb, "/" & 229 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/102/" if Int(CurrentPageID) <> Int(102) Then Response.Write(" ") %> <% Response.Write("Health & Wellness Services") %> <% Response.Write(" ") else %> Health & Wellness Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Health & Wellness Services" subsecLink = "/175_102.htm" end if NodeID = 102 Response.write("") if InStr(1, BreadCrumb, "/" & 230 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(555) Then thes3nv="Counseling Services" Response.write(" Counseling Services ") else Response.write(" Counseling Services ") end if if Int(CurrentPageID) = Int(554) Then thes3nv="Student Health Services" Response.write(" Student Health Services ") else Response.write(" Student Health Services ") end if end if' DidRender = False DidRender = True 'Nesting = "/13648/" if Int(CurrentPageID) <> Int(13648) Then Response.Write(" ") %> <% Response.Write("Rider Initiative for Substance-Abuse Education") %> <% Response.Write(" ") else %> Rider Initiative for Substance-Abuse Education <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Rider Initiative for Substance-Abuse Education" subsecLink = "/175_13648.htm" end if NodeID = 13648 Response.write("") if InStr(1, BreadCrumb, "/" & 13647 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(11972) Then thes3nv="Alcohol Policy" Response.write(" Alcohol Policy ") else Response.write(" Alcohol Policy ") end if if Int(CurrentPageID) = Int(3374) Then thes3nv="e-CHUG" Response.write(" e-CHUG ") else Response.write(" e-CHUG ") end if if Int(CurrentPageID) = Int(13654) Then thes3nv="Tips For Safe Partying!" Response.write(" Tips For Safe Partying! ") else Response.write(" Tips For Safe Partying! ") end if if Int(CurrentPageID) = Int(14459) Then thes3nv="Safe Rides Program" Response.write(" Safe Rides Program ") else Response.write(" Safe Rides Program ") end if if Int(CurrentPageID) = Int(13653) Then thes3nv="MYTHS and FACTS about Alcohol" Response.write(" MYTHS and FACTS about Alcohol ") else Response.write(" MYTHS and FACTS about Alcohol ") end if if Int(CurrentPageID) = Int(13652) Then thes3nv="Do You Know What Binge Drinking is?" Response.write(" Do You Know What Binge Drinking is? ") else Response.write(" Do You Know What Binge Drinking is? ") end if if Int(CurrentPageID) = Int(13651) Then thes3nv="Signs of a Problem Drinker" Response.write(" Signs of a Problem Drinker ") else Response.write(" Signs of a Problem Drinker ") end if if Int(CurrentPageID) = Int(13650) Then thes3nv="Links" Response.write(" Links ") else Response.write(" Links ") end if end if' DidRender = False DidRender = True 'Nesting = "/16693/" if Int(CurrentPageID) <> Int(16693) Then Response.Write(" ") %> <% Response.Write("107.7 WRRC-FM The Bronc") %> <% Response.Write(" ") else %> 107.7 WRRC-FM The Bronc <% OnSecondLevel = True end if if not HaveHead then subsecHead = "107.7 WRRC-FM The Bronc" subsecLink = "/175_16693.htm" end if NodeID = 16693 Response.write("") if InStr(1, BreadCrumb, "/" & 16692 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16696) Then thes3nv="History of the Station" Response.write(" History of the Station ") else Response.write(" History of the Station ") end if if Int(CurrentPageID) = Int(16697) Then thes3nv="Programming" Response.write(" Programming ") else Response.write(" Programming ") end if if Int(CurrentPageID) = Int(16702) Then thes3nv="Listen Live!" Response.write(" Listen Live! ") else Response.write(" Listen Live! ") end if if Int(CurrentPageID) = Int(17128) Then thes3nv="Streaming Audio" Response.write(" Streaming Audio ") else Response.write(" Streaming Audio ") end if if Int(CurrentPageID) = Int(16701) Then thes3nv="News & Events" Response.write(" News & Events ") else Response.write(" News & Events ") end if if Int(CurrentPageID) = Int(17259) Then thes3nv="Bronc's Beat" Response.write(" Bronc's Beat ") else Response.write(" Bronc's Beat ") end if if Int(CurrentPageID) = Int(16703) Then thes3nv="Underwriting/Advertising" Response.write(" Underwriting/Advertising ") else Response.write(" Underwriting/Advertising ") end if if Int(CurrentPageID) = Int(16706) Then thes3nv="Contact Us" Response.write(" Contact Us ") else Response.write(" Contact Us ") end if end if' DidRender = False DidRender = True 'Nesting = "/16858/" if Int(CurrentPageID) <> Int(16858) Then Response.Write(" ") %> <% Response.Write("The Rider News") %> <% Response.Write(" ") else %> The Rider News <% OnSecondLevel = True end if if not HaveHead then subsecHead = "The Rider News" subsecLink = "http://www.theridernews.com" end if NodeID = 16858 Response.write("") if InStr(1, BreadCrumb, "/" & 16858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/103/" if Int(CurrentPageID) <> Int(103) Then Response.Write(" ") %> <% Response.Write("Multicultural Affairs") %> <% Response.Write(" ") else %> Multicultural Affairs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Multicultural Affairs" subsecLink = "/175_103.htm" end if NodeID = 103 Response.write("") if InStr(1, BreadCrumb, "/" & 231 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/9973/" if Int(CurrentPageID) <> Int(9973) Then Response.Write(" ") %> <% Response.Write("Community Service") %> <% Response.Write(" ") else %> Community Service <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Community Service" subsecLink = "/175_9973.htm" end if NodeID = 9973 Response.write("") if InStr(1, BreadCrumb, "/" & 9972 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/6478/" if Int(CurrentPageID) <> Int(6478) Then Response.Write(" ") %> <% Response.Write("International Students") %> <% Response.Write(" ") else %> International Students <% OnSecondLevel = True end if if not HaveHead then subsecHead = "International Students" subsecLink = "/175_6478.htm" end if NodeID = 6478 Response.write("") if InStr(1, BreadCrumb, "/" & 16155 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/104/" if Int(CurrentPageID) <> Int(104) Then Response.Write(" ") %> <% Response.Write("Public Safety") %> <% Response.Write(" ") else %> Public Safety <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Public Safety" subsecLink = "/175_104.htm" end if NodeID = 104 Response.write("") if InStr(1, BreadCrumb, "/" & 232 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(10765) Then thes3nv="Emergency Procedures" Response.write(" Emergency Procedures ") else Response.write(" Emergency Procedures ") end if if Int(CurrentPageID) = Int(1038) Then thes3nv="Important Telephone Numbers" Response.write(" Important Telephone Numbers ") else Response.write(" Important Telephone Numbers ") end if if Int(CurrentPageID) = Int(1039) Then thes3nv="Access to Campus" Response.write(" Access to Campus ") else Response.write(" Access to Campus ") end if if Int(CurrentPageID) = Int(570) Then thes3nv="Parking" Response.write(" Parking ") else Response.write(" Parking ") end if if Int(CurrentPageID) = Int(573) Then thes3nv="Security on Campus" Response.write(" Security on Campus ") else Response.write(" Security on Campus ") end if if Int(CurrentPageID) = Int(564) Then thes3nv="Fire Safety" Response.write(" Fire Safety ") else Response.write(" Fire Safety ") end if if Int(CurrentPageID) = Int(7630) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/12383/" if Int(CurrentPageID) <> Int(12383) Then Response.Write(" ") %> <% Response.Write("Office of Community Standards") %> <% Response.Write(" ") else %> Office of Community Standards <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Office of Community Standards" subsecLink = "/175_12383.htm" end if NodeID = 12383 Response.write("") if InStr(1, BreadCrumb, "/" & 12382 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(12389) Then thes3nv="Good Samaritan Policy" Response.write(" Good Samaritan Policy ") else Response.write(" Good Samaritan Policy ") end if if Int(CurrentPageID) = Int(12385) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/13465/" if Int(CurrentPageID) <> Int(13465) 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 = "/175_13465.htm" end if NodeID = 13465 Response.write("") if InStr(1, BreadCrumb, "/" & 13464 & "/") > 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 = "/98/" if Int(CurrentPageID) <> Int(98) Then Response.Write(" ") %> <% Response.Write("Activities Outside the Classroom") %> <% Response.Write(" ") else %> Activities Outside the Classroom <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Activities Outside the Classroom" subsecLink = "/175_98.htm" end if NodeID = 98 Response.write("") if InStr(1, BreadCrumb, "/" & 226 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2463) Then thes3nv="Office of Campus Life, Lawrenceville" Response.write(" Office of Campus Life, Lawrenceville ") else Response.write(" Office of Campus Life, Lawrenceville ") end if if Int(CurrentPageID) = Int(533) Then thes3nv="Campus Activities & Traditions " Response.write(" Campus Activities & Traditions ") else Response.write(" Campus Activities & Traditions ") end if if Int(CurrentPageID) = Int(536) Then thes3nv="Leadership Opportunities" Response.write(" Leadership Opportunities ") else Response.write(" Leadership Opportunities ") end if if Int(CurrentPageID) = Int(532) Then thes3nv="Fraternities & Sororities" Response.write(" Fraternities & Sororities ") else Response.write(" Fraternities & Sororities ") end if if Int(CurrentPageID) = Int(531) Then thes3nv="Religious Life" Response.write(" Religious Life ") else Response.write(" Religious Life ") end if if Int(CurrentPageID) = Int(15734) Then thes3nv="Student Government Association (Lawrenceville)" Response.write(" Student Government Association (Lawrenceville) ") else Response.write(" Student Government Association (Lawrenceville) ") end if if Int(CurrentPageID) = Int(528) Then thes3nv="Student Government Association (Princeton)" Response.write(" Student Government Association (Princeton) ") else Response.write(" Student Government Association (Princeton) ") end if end if' DidRender = False DidRender = True 'Nesting = "/535/" if Int(CurrentPageID) <> Int(535) Then Response.Write(" ") %> <% Response.Write("Recreation Programs") %> <% Response.Write(" ") else %> Recreation Programs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Recreation Programs" subsecLink = "/175_535.htm" end if NodeID = 535 Response.write("") if InStr(1, BreadCrumb, "/" & 10911 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16192) Then thes3nv="2009 Faculty and Staff Team Fitness Challenge" Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") else Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") end if if Int(CurrentPageID) = Int(16310) Then thes3nv="Fitness Programs" Response.write(" Fitness Programs ") else Response.write(" Fitness Programs ") end if if Int(CurrentPageID) = Int(7939) Then thes3nv="Intramurals" Response.write(" Intramurals ") else Response.write(" Intramurals ") end if if Int(CurrentPageID) = Int(7940) Then thes3nv="Club Sports" Response.write(" Club Sports ") else Response.write(" Club Sports ") end if if Int(CurrentPageID) = Int(2489) Then thes3nv="Outdoor Recreation" Response.write(" Outdoor Recreation ") else Response.write(" Outdoor Recreation ") end if if Int(CurrentPageID) = Int(10982) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(10980) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(4919) Then thes3nv="Recreation Resources" Response.write(" Recreation Resources ") else Response.write(" Recreation Resources ") end if if Int(CurrentPageID) = Int(10983) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/99/" if Int(CurrentPageID) <> Int(99) Then Response.Write(" ") %> <% Response.Write("Residence Life") %> <% Response.Write(" ") else %> Residence Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Residence Life" subsecLink = "/175_99.htm" end if NodeID = 99 Response.write("") if InStr(1, BreadCrumb, "/" & 227 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(543) Then thes3nv="Mission" Response.write(" Mission ") else Response.write(" Mission ") end if if Int(CurrentPageID) = Int(542) Then thes3nv="The Experience" Response.write(" The Experience ") else Response.write(" The Experience ") end if if Int(CurrentPageID) = Int(538) Then thes3nv="Employment & Graduate Assistantships" Response.write(" Employment & Graduate Assistantships ") else Response.write(" Employment & Graduate Assistantships ") end if if Int(CurrentPageID) = Int(541) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if if Int(CurrentPageID) = Int(537) Then thes3nv="Housing Information for Current Students" Response.write(" Housing Information for Current Students ") else Response.write(" Housing Information for Current Students ") end if end if' DidRender = False DidRender = True 'Nesting = "/100/" if Int(CurrentPageID) <> Int(100) Then Response.Write(" ") %> <% Response.Write("Off Campus Living and Commuter Life") %> <% Response.Write(" ") else %> Off Campus Living and Commuter Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Off Campus Living and Commuter Life" subsecLink = "/175_100.htm" end if NodeID = 100 Response.write("") if InStr(1, BreadCrumb, "/" & 228 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(539) Then thes3nv="Off-Campus Housing for Lawrenceville & Princeton" Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") else Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") end if if Int(CurrentPageID) = Int(548) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/101/" if Int(CurrentPageID) <> Int(101) Then Response.Write(" ") %> <% Response.Write("Dining Services") %> <% Response.Write(" ") else %> Dining Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Dining Services" subsecLink = "/175_101.htm" end if NodeID = 101 Response.write("") if InStr(1, BreadCrumb, "/" & 229 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/102/" if Int(CurrentPageID) <> Int(102) Then Response.Write(" ") %> <% Response.Write("Health & Wellness Services") %> <% Response.Write(" ") else %> Health & Wellness Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Health & Wellness Services" subsecLink = "/175_102.htm" end if NodeID = 102 Response.write("") if InStr(1, BreadCrumb, "/" & 230 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(555) Then thes3nv="Counseling Services" Response.write(" Counseling Services ") else Response.write(" Counseling Services ") end if if Int(CurrentPageID) = Int(554) Then thes3nv="Student Health Services" Response.write(" Student Health Services ") else Response.write(" Student Health Services ") end if end if' DidRender = False DidRender = True 'Nesting = "/13648/" if Int(CurrentPageID) <> Int(13648) Then Response.Write(" ") %> <% Response.Write("Rider Initiative for Substance-Abuse Education") %> <% Response.Write(" ") else %> Rider Initiative for Substance-Abuse Education <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Rider Initiative for Substance-Abuse Education" subsecLink = "/175_13648.htm" end if NodeID = 13648 Response.write("") if InStr(1, BreadCrumb, "/" & 13647 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(11972) Then thes3nv="Alcohol Policy" Response.write(" Alcohol Policy ") else Response.write(" Alcohol Policy ") end if if Int(CurrentPageID) = Int(3374) Then thes3nv="e-CHUG" Response.write(" e-CHUG ") else Response.write(" e-CHUG ") end if if Int(CurrentPageID) = Int(13654) Then thes3nv="Tips For Safe Partying!" Response.write(" Tips For Safe Partying! ") else Response.write(" Tips For Safe Partying! ") end if if Int(CurrentPageID) = Int(14459) Then thes3nv="Safe Rides Program" Response.write(" Safe Rides Program ") else Response.write(" Safe Rides Program ") end if if Int(CurrentPageID) = Int(13653) Then thes3nv="MYTHS and FACTS about Alcohol" Response.write(" MYTHS and FACTS about Alcohol ") else Response.write(" MYTHS and FACTS about Alcohol ") end if if Int(CurrentPageID) = Int(13652) Then thes3nv="Do You Know What Binge Drinking is?" Response.write(" Do You Know What Binge Drinking is? ") else Response.write(" Do You Know What Binge Drinking is? ") end if if Int(CurrentPageID) = Int(13651) Then thes3nv="Signs of a Problem Drinker" Response.write(" Signs of a Problem Drinker ") else Response.write(" Signs of a Problem Drinker ") end if if Int(CurrentPageID) = Int(13650) Then thes3nv="Links" Response.write(" Links ") else Response.write(" Links ") end if end if' DidRender = False DidRender = True 'Nesting = "/16693/" if Int(CurrentPageID) <> Int(16693) Then Response.Write(" ") %> <% Response.Write("107.7 WRRC-FM The Bronc") %> <% Response.Write(" ") else %> 107.7 WRRC-FM The Bronc <% OnSecondLevel = True end if if not HaveHead then subsecHead = "107.7 WRRC-FM The Bronc" subsecLink = "/175_16693.htm" end if NodeID = 16693 Response.write("") if InStr(1, BreadCrumb, "/" & 16692 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16696) Then thes3nv="History of the Station" Response.write(" History of the Station ") else Response.write(" History of the Station ") end if if Int(CurrentPageID) = Int(16697) Then thes3nv="Programming" Response.write(" Programming ") else Response.write(" Programming ") end if if Int(CurrentPageID) = Int(16702) Then thes3nv="Listen Live!" Response.write(" Listen Live! ") else Response.write(" Listen Live! ") end if if Int(CurrentPageID) = Int(17128) Then thes3nv="Streaming Audio" Response.write(" Streaming Audio ") else Response.write(" Streaming Audio ") end if if Int(CurrentPageID) = Int(16701) Then thes3nv="News & Events" Response.write(" News & Events ") else Response.write(" News & Events ") end if if Int(CurrentPageID) = Int(17259) Then thes3nv="Bronc's Beat" Response.write(" Bronc's Beat ") else Response.write(" Bronc's Beat ") end if if Int(CurrentPageID) = Int(16703) Then thes3nv="Underwriting/Advertising" Response.write(" Underwriting/Advertising ") else Response.write(" Underwriting/Advertising ") end if if Int(CurrentPageID) = Int(16706) Then thes3nv="Contact Us" Response.write(" Contact Us ") else Response.write(" Contact Us ") end if end if' DidRender = False DidRender = True 'Nesting = "/16858/" if Int(CurrentPageID) <> Int(16858) Then Response.Write(" ") %> <% Response.Write("The Rider News") %> <% Response.Write(" ") else %> The Rider News <% OnSecondLevel = True end if if not HaveHead then subsecHead = "The Rider News" subsecLink = "http://www.theridernews.com" end if NodeID = 16858 Response.write("") if InStr(1, BreadCrumb, "/" & 16858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/103/" if Int(CurrentPageID) <> Int(103) Then Response.Write(" ") %> <% Response.Write("Multicultural Affairs") %> <% Response.Write(" ") else %> Multicultural Affairs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Multicultural Affairs" subsecLink = "/175_103.htm" end if NodeID = 103 Response.write("") if InStr(1, BreadCrumb, "/" & 231 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/9973/" if Int(CurrentPageID) <> Int(9973) Then Response.Write(" ") %> <% Response.Write("Community Service") %> <% Response.Write(" ") else %> Community Service <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Community Service" subsecLink = "/175_9973.htm" end if NodeID = 9973 Response.write("") if InStr(1, BreadCrumb, "/" & 9972 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/6478/" if Int(CurrentPageID) <> Int(6478) Then Response.Write(" ") %> <% Response.Write("International Students") %> <% Response.Write(" ") else %> International Students <% OnSecondLevel = True end if if not HaveHead then subsecHead = "International Students" subsecLink = "/175_6478.htm" end if NodeID = 6478 Response.write("") if InStr(1, BreadCrumb, "/" & 16155 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/104/" if Int(CurrentPageID) <> Int(104) Then Response.Write(" ") %> <% Response.Write("Public Safety") %> <% Response.Write(" ") else %> Public Safety <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Public Safety" subsecLink = "/175_104.htm" end if NodeID = 104 Response.write("") if InStr(1, BreadCrumb, "/" & 232 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(10765) Then thes3nv="Emergency Procedures" Response.write(" Emergency Procedures ") else Response.write(" Emergency Procedures ") end if if Int(CurrentPageID) = Int(1038) Then thes3nv="Important Telephone Numbers" Response.write(" Important Telephone Numbers ") else Response.write(" Important Telephone Numbers ") end if if Int(CurrentPageID) = Int(1039) Then thes3nv="Access to Campus" Response.write(" Access to Campus ") else Response.write(" Access to Campus ") end if if Int(CurrentPageID) = Int(570) Then thes3nv="Parking" Response.write(" Parking ") else Response.write(" Parking ") end if if Int(CurrentPageID) = Int(573) Then thes3nv="Security on Campus" Response.write(" Security on Campus ") else Response.write(" Security on Campus ") end if if Int(CurrentPageID) = Int(564) Then thes3nv="Fire Safety" Response.write(" Fire Safety ") else Response.write(" Fire Safety ") end if if Int(CurrentPageID) = Int(7630) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/12383/" if Int(CurrentPageID) <> Int(12383) Then Response.Write(" ") %> <% Response.Write("Office of Community Standards") %> <% Response.Write(" ") else %> Office of Community Standards <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Office of Community Standards" subsecLink = "/175_12383.htm" end if NodeID = 12383 Response.write("") if InStr(1, BreadCrumb, "/" & 12382 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(12389) Then thes3nv="Good Samaritan Policy" Response.write(" Good Samaritan Policy ") else Response.write(" Good Samaritan Policy ") end if if Int(CurrentPageID) = Int(12385) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/13465/" if Int(CurrentPageID) <> Int(13465) 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 = "/175_13465.htm" end if NodeID = 13465 Response.write("") if InStr(1, BreadCrumb, "/" & 13464 & "/") > 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 = "/98/" if Int(CurrentPageID) <> Int(98) Then Response.Write(" ") %> <% Response.Write("Activities Outside the Classroom") %> <% Response.Write(" ") else %> Activities Outside the Classroom <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Activities Outside the Classroom" subsecLink = "/175_98.htm" end if NodeID = 98 Response.write("") if InStr(1, BreadCrumb, "/" & 226 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2463) Then thes3nv="Office of Campus Life, Lawrenceville" Response.write(" Office of Campus Life, Lawrenceville ") else Response.write(" Office of Campus Life, Lawrenceville ") end if if Int(CurrentPageID) = Int(533) Then thes3nv="Campus Activities & Traditions " Response.write(" Campus Activities & Traditions ") else Response.write(" Campus Activities & Traditions ") end if if Int(CurrentPageID) = Int(536) Then thes3nv="Leadership Opportunities" Response.write(" Leadership Opportunities ") else Response.write(" Leadership Opportunities ") end if if Int(CurrentPageID) = Int(532) Then thes3nv="Fraternities & Sororities" Response.write(" Fraternities & Sororities ") else Response.write(" Fraternities & Sororities ") end if if Int(CurrentPageID) = Int(531) Then thes3nv="Religious Life" Response.write(" Religious Life ") else Response.write(" Religious Life ") end if if Int(CurrentPageID) = Int(15734) Then thes3nv="Student Government Association (Lawrenceville)" Response.write(" Student Government Association (Lawrenceville) ") else Response.write(" Student Government Association (Lawrenceville) ") end if if Int(CurrentPageID) = Int(528) Then thes3nv="Student Government Association (Princeton)" Response.write(" Student Government Association (Princeton) ") else Response.write(" Student Government Association (Princeton) ") end if end if' DidRender = False DidRender = True 'Nesting = "/535/" if Int(CurrentPageID) <> Int(535) Then Response.Write(" ") %> <% Response.Write("Recreation Programs") %> <% Response.Write(" ") else %> Recreation Programs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Recreation Programs" subsecLink = "/175_535.htm" end if NodeID = 535 Response.write("") if InStr(1, BreadCrumb, "/" & 10911 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16192) Then thes3nv="2009 Faculty and Staff Team Fitness Challenge" Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") else Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") end if if Int(CurrentPageID) = Int(16310) Then thes3nv="Fitness Programs" Response.write(" Fitness Programs ") else Response.write(" Fitness Programs ") end if if Int(CurrentPageID) = Int(7939) Then thes3nv="Intramurals" Response.write(" Intramurals ") else Response.write(" Intramurals ") end if if Int(CurrentPageID) = Int(7940) Then thes3nv="Club Sports" Response.write(" Club Sports ") else Response.write(" Club Sports ") end if if Int(CurrentPageID) = Int(2489) Then thes3nv="Outdoor Recreation" Response.write(" Outdoor Recreation ") else Response.write(" Outdoor Recreation ") end if if Int(CurrentPageID) = Int(10982) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(10980) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(4919) Then thes3nv="Recreation Resources" Response.write(" Recreation Resources ") else Response.write(" Recreation Resources ") end if if Int(CurrentPageID) = Int(10983) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/99/" if Int(CurrentPageID) <> Int(99) Then Response.Write(" ") %> <% Response.Write("Residence Life") %> <% Response.Write(" ") else %> Residence Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Residence Life" subsecLink = "/175_99.htm" end if NodeID = 99 Response.write("") if InStr(1, BreadCrumb, "/" & 227 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(543) Then thes3nv="Mission" Response.write(" Mission ") else Response.write(" Mission ") end if if Int(CurrentPageID) = Int(542) Then thes3nv="The Experience" Response.write(" The Experience ") else Response.write(" The Experience ") end if if Int(CurrentPageID) = Int(538) Then thes3nv="Employment & Graduate Assistantships" Response.write(" Employment & Graduate Assistantships ") else Response.write(" Employment & Graduate Assistantships ") end if if Int(CurrentPageID) = Int(541) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if if Int(CurrentPageID) = Int(537) Then thes3nv="Housing Information for Current Students" Response.write(" Housing Information for Current Students ") else Response.write(" Housing Information for Current Students ") end if end if' DidRender = False DidRender = True 'Nesting = "/100/" if Int(CurrentPageID) <> Int(100) Then Response.Write(" ") %> <% Response.Write("Off Campus Living and Commuter Life") %> <% Response.Write(" ") else %> Off Campus Living and Commuter Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Off Campus Living and Commuter Life" subsecLink = "/175_100.htm" end if NodeID = 100 Response.write("") if InStr(1, BreadCrumb, "/" & 228 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(539) Then thes3nv="Off-Campus Housing for Lawrenceville & Princeton" Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") else Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") end if if Int(CurrentPageID) = Int(548) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/101/" if Int(CurrentPageID) <> Int(101) Then Response.Write(" ") %> <% Response.Write("Dining Services") %> <% Response.Write(" ") else %> Dining Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Dining Services" subsecLink = "/175_101.htm" end if NodeID = 101 Response.write("") if InStr(1, BreadCrumb, "/" & 229 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/102/" if Int(CurrentPageID) <> Int(102) Then Response.Write(" ") %> <% Response.Write("Health & Wellness Services") %> <% Response.Write(" ") else %> Health & Wellness Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Health & Wellness Services" subsecLink = "/175_102.htm" end if NodeID = 102 Response.write("") if InStr(1, BreadCrumb, "/" & 230 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(555) Then thes3nv="Counseling Services" Response.write(" Counseling Services ") else Response.write(" Counseling Services ") end if if Int(CurrentPageID) = Int(554) Then thes3nv="Student Health Services" Response.write(" Student Health Services ") else Response.write(" Student Health Services ") end if end if' DidRender = False DidRender = True 'Nesting = "/13648/" if Int(CurrentPageID) <> Int(13648) Then Response.Write(" ") %> <% Response.Write("Rider Initiative for Substance-Abuse Education") %> <% Response.Write(" ") else %> Rider Initiative for Substance-Abuse Education <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Rider Initiative for Substance-Abuse Education" subsecLink = "/175_13648.htm" end if NodeID = 13648 Response.write("") if InStr(1, BreadCrumb, "/" & 13647 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(11972) Then thes3nv="Alcohol Policy" Response.write(" Alcohol Policy ") else Response.write(" Alcohol Policy ") end if if Int(CurrentPageID) = Int(3374) Then thes3nv="e-CHUG" Response.write(" e-CHUG ") else Response.write(" e-CHUG ") end if if Int(CurrentPageID) = Int(13654) Then thes3nv="Tips For Safe Partying!" Response.write(" Tips For Safe Partying! ") else Response.write(" Tips For Safe Partying! ") end if if Int(CurrentPageID) = Int(14459) Then thes3nv="Safe Rides Program" Response.write(" Safe Rides Program ") else Response.write(" Safe Rides Program ") end if if Int(CurrentPageID) = Int(13653) Then thes3nv="MYTHS and FACTS about Alcohol" Response.write(" MYTHS and FACTS about Alcohol ") else Response.write(" MYTHS and FACTS about Alcohol ") end if if Int(CurrentPageID) = Int(13652) Then thes3nv="Do You Know What Binge Drinking is?" Response.write(" Do You Know What Binge Drinking is? ") else Response.write(" Do You Know What Binge Drinking is? ") end if if Int(CurrentPageID) = Int(13651) Then thes3nv="Signs of a Problem Drinker" Response.write(" Signs of a Problem Drinker ") else Response.write(" Signs of a Problem Drinker ") end if if Int(CurrentPageID) = Int(13650) Then thes3nv="Links" Response.write(" Links ") else Response.write(" Links ") end if end if' DidRender = False DidRender = True 'Nesting = "/16693/" if Int(CurrentPageID) <> Int(16693) Then Response.Write(" ") %> <% Response.Write("107.7 WRRC-FM The Bronc") %> <% Response.Write(" ") else %> 107.7 WRRC-FM The Bronc <% OnSecondLevel = True end if if not HaveHead then subsecHead = "107.7 WRRC-FM The Bronc" subsecLink = "/175_16693.htm" end if NodeID = 16693 Response.write("") if InStr(1, BreadCrumb, "/" & 16692 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16696) Then thes3nv="History of the Station" Response.write(" History of the Station ") else Response.write(" History of the Station ") end if if Int(CurrentPageID) = Int(16697) Then thes3nv="Programming" Response.write(" Programming ") else Response.write(" Programming ") end if if Int(CurrentPageID) = Int(16702) Then thes3nv="Listen Live!" Response.write(" Listen Live! ") else Response.write(" Listen Live! ") end if if Int(CurrentPageID) = Int(17128) Then thes3nv="Streaming Audio" Response.write(" Streaming Audio ") else Response.write(" Streaming Audio ") end if if Int(CurrentPageID) = Int(16701) Then thes3nv="News & Events" Response.write(" News & Events ") else Response.write(" News & Events ") end if if Int(CurrentPageID) = Int(17259) Then thes3nv="Bronc's Beat" Response.write(" Bronc's Beat ") else Response.write(" Bronc's Beat ") end if if Int(CurrentPageID) = Int(16703) Then thes3nv="Underwriting/Advertising" Response.write(" Underwriting/Advertising ") else Response.write(" Underwriting/Advertising ") end if if Int(CurrentPageID) = Int(16706) Then thes3nv="Contact Us" Response.write(" Contact Us ") else Response.write(" Contact Us ") end if end if' DidRender = False DidRender = True 'Nesting = "/16858/" if Int(CurrentPageID) <> Int(16858) Then Response.Write(" ") %> <% Response.Write("The Rider News") %> <% Response.Write(" ") else %> The Rider News <% OnSecondLevel = True end if if not HaveHead then subsecHead = "The Rider News" subsecLink = "http://www.theridernews.com" end if NodeID = 16858 Response.write("") if InStr(1, BreadCrumb, "/" & 16858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/103/" if Int(CurrentPageID) <> Int(103) Then Response.Write(" ") %> <% Response.Write("Multicultural Affairs") %> <% Response.Write(" ") else %> Multicultural Affairs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Multicultural Affairs" subsecLink = "/175_103.htm" end if NodeID = 103 Response.write("") if InStr(1, BreadCrumb, "/" & 231 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/9973/" if Int(CurrentPageID) <> Int(9973) Then Response.Write(" ") %> <% Response.Write("Community Service") %> <% Response.Write(" ") else %> Community Service <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Community Service" subsecLink = "/175_9973.htm" end if NodeID = 9973 Response.write("") if InStr(1, BreadCrumb, "/" & 9972 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/6478/" if Int(CurrentPageID) <> Int(6478) Then Response.Write(" ") %> <% Response.Write("International Students") %> <% Response.Write(" ") else %> International Students <% OnSecondLevel = True end if if not HaveHead then subsecHead = "International Students" subsecLink = "/175_6478.htm" end if NodeID = 6478 Response.write("") if InStr(1, BreadCrumb, "/" & 16155 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/104/" if Int(CurrentPageID) <> Int(104) Then Response.Write(" ") %> <% Response.Write("Public Safety") %> <% Response.Write(" ") else %> Public Safety <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Public Safety" subsecLink = "/175_104.htm" end if NodeID = 104 Response.write("") if InStr(1, BreadCrumb, "/" & 232 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(10765) Then thes3nv="Emergency Procedures" Response.write(" Emergency Procedures ") else Response.write(" Emergency Procedures ") end if if Int(CurrentPageID) = Int(1038) Then thes3nv="Important Telephone Numbers" Response.write(" Important Telephone Numbers ") else Response.write(" Important Telephone Numbers ") end if if Int(CurrentPageID) = Int(1039) Then thes3nv="Access to Campus" Response.write(" Access to Campus ") else Response.write(" Access to Campus ") end if if Int(CurrentPageID) = Int(570) Then thes3nv="Parking" Response.write(" Parking ") else Response.write(" Parking ") end if if Int(CurrentPageID) = Int(573) Then thes3nv="Security on Campus" Response.write(" Security on Campus ") else Response.write(" Security on Campus ") end if if Int(CurrentPageID) = Int(564) Then thes3nv="Fire Safety" Response.write(" Fire Safety ") else Response.write(" Fire Safety ") end if if Int(CurrentPageID) = Int(7630) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/12383/" if Int(CurrentPageID) <> Int(12383) Then Response.Write(" ") %> <% Response.Write("Office of Community Standards") %> <% Response.Write(" ") else %> Office of Community Standards <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Office of Community Standards" subsecLink = "/175_12383.htm" end if NodeID = 12383 Response.write("") if InStr(1, BreadCrumb, "/" & 12382 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(12389) Then thes3nv="Good Samaritan Policy" Response.write(" Good Samaritan Policy ") else Response.write(" Good Samaritan Policy ") end if if Int(CurrentPageID) = Int(12385) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/13465/" if Int(CurrentPageID) <> Int(13465) 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 = "/175_13465.htm" end if NodeID = 13465 Response.write("") if InStr(1, BreadCrumb, "/" & 13464 & "/") > 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 = "/98/" if Int(CurrentPageID) <> Int(98) Then Response.Write(" ") %> <% Response.Write("Activities Outside the Classroom") %> <% Response.Write(" ") else %> Activities Outside the Classroom <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Activities Outside the Classroom" subsecLink = "/175_98.htm" end if NodeID = 98 Response.write("") if InStr(1, BreadCrumb, "/" & 226 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2463) Then thes3nv="Office of Campus Life, Lawrenceville" Response.write(" Office of Campus Life, Lawrenceville ") else Response.write(" Office of Campus Life, Lawrenceville ") end if if Int(CurrentPageID) = Int(533) Then thes3nv="Campus Activities & Traditions " Response.write(" Campus Activities & Traditions ") else Response.write(" Campus Activities & Traditions ") end if if Int(CurrentPageID) = Int(536) Then thes3nv="Leadership Opportunities" Response.write(" Leadership Opportunities ") else Response.write(" Leadership Opportunities ") end if if Int(CurrentPageID) = Int(532) Then thes3nv="Fraternities & Sororities" Response.write(" Fraternities & Sororities ") else Response.write(" Fraternities & Sororities ") end if if Int(CurrentPageID) = Int(531) Then thes3nv="Religious Life" Response.write(" Religious Life ") else Response.write(" Religious Life ") end if if Int(CurrentPageID) = Int(15734) Then thes3nv="Student Government Association (Lawrenceville)" Response.write(" Student Government Association (Lawrenceville) ") else Response.write(" Student Government Association (Lawrenceville) ") end if if Int(CurrentPageID) = Int(528) Then thes3nv="Student Government Association (Princeton)" Response.write(" Student Government Association (Princeton) ") else Response.write(" Student Government Association (Princeton) ") end if end if' DidRender = False DidRender = True 'Nesting = "/535/" if Int(CurrentPageID) <> Int(535) Then Response.Write(" ") %> <% Response.Write("Recreation Programs") %> <% Response.Write(" ") else %> Recreation Programs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Recreation Programs" subsecLink = "/175_535.htm" end if NodeID = 535 Response.write("") if InStr(1, BreadCrumb, "/" & 10911 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16192) Then thes3nv="2009 Faculty and Staff Team Fitness Challenge" Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") else Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") end if if Int(CurrentPageID) = Int(16310) Then thes3nv="Fitness Programs" Response.write(" Fitness Programs ") else Response.write(" Fitness Programs ") end if if Int(CurrentPageID) = Int(7939) Then thes3nv="Intramurals" Response.write(" Intramurals ") else Response.write(" Intramurals ") end if if Int(CurrentPageID) = Int(7940) Then thes3nv="Club Sports" Response.write(" Club Sports ") else Response.write(" Club Sports ") end if if Int(CurrentPageID) = Int(2489) Then thes3nv="Outdoor Recreation" Response.write(" Outdoor Recreation ") else Response.write(" Outdoor Recreation ") end if if Int(CurrentPageID) = Int(10982) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(10980) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(4919) Then thes3nv="Recreation Resources" Response.write(" Recreation Resources ") else Response.write(" Recreation Resources ") end if if Int(CurrentPageID) = Int(10983) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/99/" if Int(CurrentPageID) <> Int(99) Then Response.Write(" ") %> <% Response.Write("Residence Life") %> <% Response.Write(" ") else %> Residence Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Residence Life" subsecLink = "/175_99.htm" end if NodeID = 99 Response.write("") if InStr(1, BreadCrumb, "/" & 227 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(543) Then thes3nv="Mission" Response.write(" Mission ") else Response.write(" Mission ") end if if Int(CurrentPageID) = Int(542) Then thes3nv="The Experience" Response.write(" The Experience ") else Response.write(" The Experience ") end if if Int(CurrentPageID) = Int(538) Then thes3nv="Employment & Graduate Assistantships" Response.write(" Employment & Graduate Assistantships ") else Response.write(" Employment & Graduate Assistantships ") end if if Int(CurrentPageID) = Int(541) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if if Int(CurrentPageID) = Int(537) Then thes3nv="Housing Information for Current Students" Response.write(" Housing Information for Current Students ") else Response.write(" Housing Information for Current Students ") end if end if' DidRender = False DidRender = True 'Nesting = "/100/" if Int(CurrentPageID) <> Int(100) Then Response.Write(" ") %> <% Response.Write("Off Campus Living and Commuter Life") %> <% Response.Write(" ") else %> Off Campus Living and Commuter Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Off Campus Living and Commuter Life" subsecLink = "/175_100.htm" end if NodeID = 100 Response.write("") if InStr(1, BreadCrumb, "/" & 228 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(539) Then thes3nv="Off-Campus Housing for Lawrenceville & Princeton" Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") else Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") end if if Int(CurrentPageID) = Int(548) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/101/" if Int(CurrentPageID) <> Int(101) Then Response.Write(" ") %> <% Response.Write("Dining Services") %> <% Response.Write(" ") else %> Dining Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Dining Services" subsecLink = "/175_101.htm" end if NodeID = 101 Response.write("") if InStr(1, BreadCrumb, "/" & 229 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/102/" if Int(CurrentPageID) <> Int(102) Then Response.Write(" ") %> <% Response.Write("Health & Wellness Services") %> <% Response.Write(" ") else %> Health & Wellness Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Health & Wellness Services" subsecLink = "/175_102.htm" end if NodeID = 102 Response.write("") if InStr(1, BreadCrumb, "/" & 230 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(555) Then thes3nv="Counseling Services" Response.write(" Counseling Services ") else Response.write(" Counseling Services ") end if if Int(CurrentPageID) = Int(554) Then thes3nv="Student Health Services" Response.write(" Student Health Services ") else Response.write(" Student Health Services ") end if end if' DidRender = False DidRender = True 'Nesting = "/13648/" if Int(CurrentPageID) <> Int(13648) Then Response.Write(" ") %> <% Response.Write("Rider Initiative for Substance-Abuse Education") %> <% Response.Write(" ") else %> Rider Initiative for Substance-Abuse Education <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Rider Initiative for Substance-Abuse Education" subsecLink = "/175_13648.htm" end if NodeID = 13648 Response.write("") if InStr(1, BreadCrumb, "/" & 13647 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(11972) Then thes3nv="Alcohol Policy" Response.write(" Alcohol Policy ") else Response.write(" Alcohol Policy ") end if if Int(CurrentPageID) = Int(3374) Then thes3nv="e-CHUG" Response.write(" e-CHUG ") else Response.write(" e-CHUG ") end if if Int(CurrentPageID) = Int(13654) Then thes3nv="Tips For Safe Partying!" Response.write(" Tips For Safe Partying! ") else Response.write(" Tips For Safe Partying! ") end if if Int(CurrentPageID) = Int(14459) Then thes3nv="Safe Rides Program" Response.write(" Safe Rides Program ") else Response.write(" Safe Rides Program ") end if if Int(CurrentPageID) = Int(13653) Then thes3nv="MYTHS and FACTS about Alcohol" Response.write(" MYTHS and FACTS about Alcohol ") else Response.write(" MYTHS and FACTS about Alcohol ") end if if Int(CurrentPageID) = Int(13652) Then thes3nv="Do You Know What Binge Drinking is?" Response.write(" Do You Know What Binge Drinking is? ") else Response.write(" Do You Know What Binge Drinking is? ") end if if Int(CurrentPageID) = Int(13651) Then thes3nv="Signs of a Problem Drinker" Response.write(" Signs of a Problem Drinker ") else Response.write(" Signs of a Problem Drinker ") end if if Int(CurrentPageID) = Int(13650) Then thes3nv="Links" Response.write(" Links ") else Response.write(" Links ") end if end if' DidRender = False DidRender = True 'Nesting = "/16693/" if Int(CurrentPageID) <> Int(16693) Then Response.Write(" ") %> <% Response.Write("107.7 WRRC-FM The Bronc") %> <% Response.Write(" ") else %> 107.7 WRRC-FM The Bronc <% OnSecondLevel = True end if if not HaveHead then subsecHead = "107.7 WRRC-FM The Bronc" subsecLink = "/175_16693.htm" end if NodeID = 16693 Response.write("") if InStr(1, BreadCrumb, "/" & 16692 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16696) Then thes3nv="History of the Station" Response.write(" History of the Station ") else Response.write(" History of the Station ") end if if Int(CurrentPageID) = Int(16697) Then thes3nv="Programming" Response.write(" Programming ") else Response.write(" Programming ") end if if Int(CurrentPageID) = Int(16702) Then thes3nv="Listen Live!" Response.write(" Listen Live! ") else Response.write(" Listen Live! ") end if if Int(CurrentPageID) = Int(17128) Then thes3nv="Streaming Audio" Response.write(" Streaming Audio ") else Response.write(" Streaming Audio ") end if if Int(CurrentPageID) = Int(16701) Then thes3nv="News & Events" Response.write(" News & Events ") else Response.write(" News & Events ") end if if Int(CurrentPageID) = Int(17259) Then thes3nv="Bronc's Beat" Response.write(" Bronc's Beat ") else Response.write(" Bronc's Beat ") end if if Int(CurrentPageID) = Int(16703) Then thes3nv="Underwriting/Advertising" Response.write(" Underwriting/Advertising ") else Response.write(" Underwriting/Advertising ") end if if Int(CurrentPageID) = Int(16706) Then thes3nv="Contact Us" Response.write(" Contact Us ") else Response.write(" Contact Us ") end if end if' DidRender = False DidRender = True 'Nesting = "/16858/" if Int(CurrentPageID) <> Int(16858) Then Response.Write(" ") %> <% Response.Write("The Rider News") %> <% Response.Write(" ") else %> The Rider News <% OnSecondLevel = True end if if not HaveHead then subsecHead = "The Rider News" subsecLink = "http://www.theridernews.com" end if NodeID = 16858 Response.write("") if InStr(1, BreadCrumb, "/" & 16858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/103/" if Int(CurrentPageID) <> Int(103) Then Response.Write(" ") %> <% Response.Write("Multicultural Affairs") %> <% Response.Write(" ") else %> Multicultural Affairs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Multicultural Affairs" subsecLink = "/175_103.htm" end if NodeID = 103 Response.write("") if InStr(1, BreadCrumb, "/" & 231 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/9973/" if Int(CurrentPageID) <> Int(9973) Then Response.Write(" ") %> <% Response.Write("Community Service") %> <% Response.Write(" ") else %> Community Service <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Community Service" subsecLink = "/175_9973.htm" end if NodeID = 9973 Response.write("") if InStr(1, BreadCrumb, "/" & 9972 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/6478/" if Int(CurrentPageID) <> Int(6478) Then Response.Write(" ") %> <% Response.Write("International Students") %> <% Response.Write(" ") else %> International Students <% OnSecondLevel = True end if if not HaveHead then subsecHead = "International Students" subsecLink = "/175_6478.htm" end if NodeID = 6478 Response.write("") if InStr(1, BreadCrumb, "/" & 16155 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/104/" if Int(CurrentPageID) <> Int(104) Then Response.Write(" ") %> <% Response.Write("Public Safety") %> <% Response.Write(" ") else %> Public Safety <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Public Safety" subsecLink = "/175_104.htm" end if NodeID = 104 Response.write("") if InStr(1, BreadCrumb, "/" & 232 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(10765) Then thes3nv="Emergency Procedures" Response.write(" Emergency Procedures ") else Response.write(" Emergency Procedures ") end if if Int(CurrentPageID) = Int(1038) Then thes3nv="Important Telephone Numbers" Response.write(" Important Telephone Numbers ") else Response.write(" Important Telephone Numbers ") end if if Int(CurrentPageID) = Int(1039) Then thes3nv="Access to Campus" Response.write(" Access to Campus ") else Response.write(" Access to Campus ") end if if Int(CurrentPageID) = Int(570) Then thes3nv="Parking" Response.write(" Parking ") else Response.write(" Parking ") end if if Int(CurrentPageID) = Int(573) Then thes3nv="Security on Campus" Response.write(" Security on Campus ") else Response.write(" Security on Campus ") end if if Int(CurrentPageID) = Int(564) Then thes3nv="Fire Safety" Response.write(" Fire Safety ") else Response.write(" Fire Safety ") end if if Int(CurrentPageID) = Int(7630) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/12383/" if Int(CurrentPageID) <> Int(12383) Then Response.Write(" ") %> <% Response.Write("Office of Community Standards") %> <% Response.Write(" ") else %> Office of Community Standards <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Office of Community Standards" subsecLink = "/175_12383.htm" end if NodeID = 12383 Response.write("") if InStr(1, BreadCrumb, "/" & 12382 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(12389) Then thes3nv="Good Samaritan Policy" Response.write(" Good Samaritan Policy ") else Response.write(" Good Samaritan Policy ") end if if Int(CurrentPageID) = Int(12385) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/13465/" if Int(CurrentPageID) <> Int(13465) 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 = "/175_13465.htm" end if NodeID = 13465 Response.write("") if InStr(1, BreadCrumb, "/" & 13464 & "/") > 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 = "/98/" if Int(CurrentPageID) <> Int(98) Then Response.Write(" ") %> <% Response.Write("Activities Outside the Classroom") %> <% Response.Write(" ") else %> Activities Outside the Classroom <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Activities Outside the Classroom" subsecLink = "/175_98.htm" end if NodeID = 98 Response.write("") if InStr(1, BreadCrumb, "/" & 226 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2463) Then thes3nv="Office of Campus Life, Lawrenceville" Response.write(" Office of Campus Life, Lawrenceville ") else Response.write(" Office of Campus Life, Lawrenceville ") end if if Int(CurrentPageID) = Int(533) Then thes3nv="Campus Activities & Traditions " Response.write(" Campus Activities & Traditions ") else Response.write(" Campus Activities & Traditions ") end if if Int(CurrentPageID) = Int(536) Then thes3nv="Leadership Opportunities" Response.write(" Leadership Opportunities ") else Response.write(" Leadership Opportunities ") end if if Int(CurrentPageID) = Int(532) Then thes3nv="Fraternities & Sororities" Response.write(" Fraternities & Sororities ") else Response.write(" Fraternities & Sororities ") end if if Int(CurrentPageID) = Int(531) Then thes3nv="Religious Life" Response.write(" Religious Life ") else Response.write(" Religious Life ") end if if Int(CurrentPageID) = Int(15734) Then thes3nv="Student Government Association (Lawrenceville)" Response.write(" Student Government Association (Lawrenceville) ") else Response.write(" Student Government Association (Lawrenceville) ") end if if Int(CurrentPageID) = Int(528) Then thes3nv="Student Government Association (Princeton)" Response.write(" Student Government Association (Princeton) ") else Response.write(" Student Government Association (Princeton) ") end if end if' DidRender = False DidRender = True 'Nesting = "/535/" if Int(CurrentPageID) <> Int(535) Then Response.Write(" ") %> <% Response.Write("Recreation Programs") %> <% Response.Write(" ") else %> Recreation Programs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Recreation Programs" subsecLink = "/175_535.htm" end if NodeID = 535 Response.write("") if InStr(1, BreadCrumb, "/" & 10911 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16192) Then thes3nv="2009 Faculty and Staff Team Fitness Challenge" Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") else Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") end if if Int(CurrentPageID) = Int(16310) Then thes3nv="Fitness Programs" Response.write(" Fitness Programs ") else Response.write(" Fitness Programs ") end if if Int(CurrentPageID) = Int(7939) Then thes3nv="Intramurals" Response.write(" Intramurals ") else Response.write(" Intramurals ") end if if Int(CurrentPageID) = Int(7940) Then thes3nv="Club Sports" Response.write(" Club Sports ") else Response.write(" Club Sports ") end if if Int(CurrentPageID) = Int(2489) Then thes3nv="Outdoor Recreation" Response.write(" Outdoor Recreation ") else Response.write(" Outdoor Recreation ") end if if Int(CurrentPageID) = Int(10982) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(10980) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(4919) Then thes3nv="Recreation Resources" Response.write(" Recreation Resources ") else Response.write(" Recreation Resources ") end if if Int(CurrentPageID) = Int(10983) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/99/" if Int(CurrentPageID) <> Int(99) Then Response.Write(" ") %> <% Response.Write("Residence Life") %> <% Response.Write(" ") else %> Residence Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Residence Life" subsecLink = "/175_99.htm" end if NodeID = 99 Response.write("") if InStr(1, BreadCrumb, "/" & 227 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(543) Then thes3nv="Mission" Response.write(" Mission ") else Response.write(" Mission ") end if if Int(CurrentPageID) = Int(542) Then thes3nv="The Experience" Response.write(" The Experience ") else Response.write(" The Experience ") end if if Int(CurrentPageID) = Int(538) Then thes3nv="Employment & Graduate Assistantships" Response.write(" Employment & Graduate Assistantships ") else Response.write(" Employment & Graduate Assistantships ") end if if Int(CurrentPageID) = Int(541) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if if Int(CurrentPageID) = Int(537) Then thes3nv="Housing Information for Current Students" Response.write(" Housing Information for Current Students ") else Response.write(" Housing Information for Current Students ") end if end if' DidRender = False DidRender = True 'Nesting = "/100/" if Int(CurrentPageID) <> Int(100) Then Response.Write(" ") %> <% Response.Write("Off Campus Living and Commuter Life") %> <% Response.Write(" ") else %> Off Campus Living and Commuter Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Off Campus Living and Commuter Life" subsecLink = "/175_100.htm" end if NodeID = 100 Response.write("") if InStr(1, BreadCrumb, "/" & 228 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(539) Then thes3nv="Off-Campus Housing for Lawrenceville & Princeton" Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") else Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") end if if Int(CurrentPageID) = Int(548) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/101/" if Int(CurrentPageID) <> Int(101) Then Response.Write(" ") %> <% Response.Write("Dining Services") %> <% Response.Write(" ") else %> Dining Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Dining Services" subsecLink = "/175_101.htm" end if NodeID = 101 Response.write("") if InStr(1, BreadCrumb, "/" & 229 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/102/" if Int(CurrentPageID) <> Int(102) Then Response.Write(" ") %> <% Response.Write("Health & Wellness Services") %> <% Response.Write(" ") else %> Health & Wellness Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Health & Wellness Services" subsecLink = "/175_102.htm" end if NodeID = 102 Response.write("") if InStr(1, BreadCrumb, "/" & 230 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(555) Then thes3nv="Counseling Services" Response.write(" Counseling Services ") else Response.write(" Counseling Services ") end if if Int(CurrentPageID) = Int(554) Then thes3nv="Student Health Services" Response.write(" Student Health Services ") else Response.write(" Student Health Services ") end if end if' DidRender = False DidRender = True 'Nesting = "/13648/" if Int(CurrentPageID) <> Int(13648) Then Response.Write(" ") %> <% Response.Write("Rider Initiative for Substance-Abuse Education") %> <% Response.Write(" ") else %> Rider Initiative for Substance-Abuse Education <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Rider Initiative for Substance-Abuse Education" subsecLink = "/175_13648.htm" end if NodeID = 13648 Response.write("") if InStr(1, BreadCrumb, "/" & 13647 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(11972) Then thes3nv="Alcohol Policy" Response.write(" Alcohol Policy ") else Response.write(" Alcohol Policy ") end if if Int(CurrentPageID) = Int(3374) Then thes3nv="e-CHUG" Response.write(" e-CHUG ") else Response.write(" e-CHUG ") end if if Int(CurrentPageID) = Int(13654) Then thes3nv="Tips For Safe Partying!" Response.write(" Tips For Safe Partying! ") else Response.write(" Tips For Safe Partying! ") end if if Int(CurrentPageID) = Int(14459) Then thes3nv="Safe Rides Program" Response.write(" Safe Rides Program ") else Response.write(" Safe Rides Program ") end if if Int(CurrentPageID) = Int(13653) Then thes3nv="MYTHS and FACTS about Alcohol" Response.write(" MYTHS and FACTS about Alcohol ") else Response.write(" MYTHS and FACTS about Alcohol ") end if if Int(CurrentPageID) = Int(13652) Then thes3nv="Do You Know What Binge Drinking is?" Response.write(" Do You Know What Binge Drinking is? ") else Response.write(" Do You Know What Binge Drinking is? ") end if if Int(CurrentPageID) = Int(13651) Then thes3nv="Signs of a Problem Drinker" Response.write(" Signs of a Problem Drinker ") else Response.write(" Signs of a Problem Drinker ") end if if Int(CurrentPageID) = Int(13650) Then thes3nv="Links" Response.write(" Links ") else Response.write(" Links ") end if end if' DidRender = False DidRender = True 'Nesting = "/16693/" if Int(CurrentPageID) <> Int(16693) Then Response.Write(" ") %> <% Response.Write("107.7 WRRC-FM The Bronc") %> <% Response.Write(" ") else %> 107.7 WRRC-FM The Bronc <% OnSecondLevel = True end if if not HaveHead then subsecHead = "107.7 WRRC-FM The Bronc" subsecLink = "/175_16693.htm" end if NodeID = 16693 Response.write("") if InStr(1, BreadCrumb, "/" & 16692 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16696) Then thes3nv="History of the Station" Response.write(" History of the Station ") else Response.write(" History of the Station ") end if if Int(CurrentPageID) = Int(16697) Then thes3nv="Programming" Response.write(" Programming ") else Response.write(" Programming ") end if if Int(CurrentPageID) = Int(16702) Then thes3nv="Listen Live!" Response.write(" Listen Live! ") else Response.write(" Listen Live! ") end if if Int(CurrentPageID) = Int(17128) Then thes3nv="Streaming Audio" Response.write(" Streaming Audio ") else Response.write(" Streaming Audio ") end if if Int(CurrentPageID) = Int(16701) Then thes3nv="News & Events" Response.write(" News & Events ") else Response.write(" News & Events ") end if if Int(CurrentPageID) = Int(17259) Then thes3nv="Bronc's Beat" Response.write(" Bronc's Beat ") else Response.write(" Bronc's Beat ") end if if Int(CurrentPageID) = Int(16703) Then thes3nv="Underwriting/Advertising" Response.write(" Underwriting/Advertising ") else Response.write(" Underwriting/Advertising ") end if if Int(CurrentPageID) = Int(16706) Then thes3nv="Contact Us" Response.write(" Contact Us ") else Response.write(" Contact Us ") end if end if' DidRender = False DidRender = True 'Nesting = "/16858/" if Int(CurrentPageID) <> Int(16858) Then Response.Write(" ") %> <% Response.Write("The Rider News") %> <% Response.Write(" ") else %> The Rider News <% OnSecondLevel = True end if if not HaveHead then subsecHead = "The Rider News" subsecLink = "http://www.theridernews.com" end if NodeID = 16858 Response.write("") if InStr(1, BreadCrumb, "/" & 16858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/103/" if Int(CurrentPageID) <> Int(103) Then Response.Write(" ") %> <% Response.Write("Multicultural Affairs") %> <% Response.Write(" ") else %> Multicultural Affairs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Multicultural Affairs" subsecLink = "/175_103.htm" end if NodeID = 103 Response.write("") if InStr(1, BreadCrumb, "/" & 231 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/9973/" if Int(CurrentPageID) <> Int(9973) Then Response.Write(" ") %> <% Response.Write("Community Service") %> <% Response.Write(" ") else %> Community Service <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Community Service" subsecLink = "/175_9973.htm" end if NodeID = 9973 Response.write("") if InStr(1, BreadCrumb, "/" & 9972 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/6478/" if Int(CurrentPageID) <> Int(6478) Then Response.Write(" ") %> <% Response.Write("International Students") %> <% Response.Write(" ") else %> International Students <% OnSecondLevel = True end if if not HaveHead then subsecHead = "International Students" subsecLink = "/175_6478.htm" end if NodeID = 6478 Response.write("") if InStr(1, BreadCrumb, "/" & 16155 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/104/" if Int(CurrentPageID) <> Int(104) Then Response.Write(" ") %> <% Response.Write("Public Safety") %> <% Response.Write(" ") else %> Public Safety <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Public Safety" subsecLink = "/175_104.htm" end if NodeID = 104 Response.write("") if InStr(1, BreadCrumb, "/" & 232 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(10765) Then thes3nv="Emergency Procedures" Response.write(" Emergency Procedures ") else Response.write(" Emergency Procedures ") end if if Int(CurrentPageID) = Int(1038) Then thes3nv="Important Telephone Numbers" Response.write(" Important Telephone Numbers ") else Response.write(" Important Telephone Numbers ") end if if Int(CurrentPageID) = Int(1039) Then thes3nv="Access to Campus" Response.write(" Access to Campus ") else Response.write(" Access to Campus ") end if if Int(CurrentPageID) = Int(570) Then thes3nv="Parking" Response.write(" Parking ") else Response.write(" Parking ") end if if Int(CurrentPageID) = Int(573) Then thes3nv="Security on Campus" Response.write(" Security on Campus ") else Response.write(" Security on Campus ") end if if Int(CurrentPageID) = Int(564) Then thes3nv="Fire Safety" Response.write(" Fire Safety ") else Response.write(" Fire Safety ") end if if Int(CurrentPageID) = Int(7630) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/12383/" if Int(CurrentPageID) <> Int(12383) Then Response.Write(" ") %> <% Response.Write("Office of Community Standards") %> <% Response.Write(" ") else %> Office of Community Standards <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Office of Community Standards" subsecLink = "/175_12383.htm" end if NodeID = 12383 Response.write("") if InStr(1, BreadCrumb, "/" & 12382 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(12389) Then thes3nv="Good Samaritan Policy" Response.write(" Good Samaritan Policy ") else Response.write(" Good Samaritan Policy ") end if if Int(CurrentPageID) = Int(12385) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/13465/" if Int(CurrentPageID) <> Int(13465) 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 = "/175_13465.htm" end if NodeID = 13465 Response.write("") if InStr(1, BreadCrumb, "/" & 13464 & "/") > 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 = "/98/" if Int(CurrentPageID) <> Int(98) Then Response.Write(" ") %> <% Response.Write("Activities Outside the Classroom") %> <% Response.Write(" ") else %> Activities Outside the Classroom <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Activities Outside the Classroom" subsecLink = "/175_98.htm" end if NodeID = 98 Response.write("") if InStr(1, BreadCrumb, "/" & 226 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2463) Then thes3nv="Office of Campus Life, Lawrenceville" Response.write(" Office of Campus Life, Lawrenceville ") else Response.write(" Office of Campus Life, Lawrenceville ") end if if Int(CurrentPageID) = Int(533) Then thes3nv="Campus Activities & Traditions " Response.write(" Campus Activities & Traditions ") else Response.write(" Campus Activities & Traditions ") end if if Int(CurrentPageID) = Int(536) Then thes3nv="Leadership Opportunities" Response.write(" Leadership Opportunities ") else Response.write(" Leadership Opportunities ") end if if Int(CurrentPageID) = Int(532) Then thes3nv="Fraternities & Sororities" Response.write(" Fraternities & Sororities ") else Response.write(" Fraternities & Sororities ") end if if Int(CurrentPageID) = Int(531) Then thes3nv="Religious Life" Response.write(" Religious Life ") else Response.write(" Religious Life ") end if if Int(CurrentPageID) = Int(15734) Then thes3nv="Student Government Association (Lawrenceville)" Response.write(" Student Government Association (Lawrenceville) ") else Response.write(" Student Government Association (Lawrenceville) ") end if if Int(CurrentPageID) = Int(528) Then thes3nv="Student Government Association (Princeton)" Response.write(" Student Government Association (Princeton) ") else Response.write(" Student Government Association (Princeton) ") end if end if' DidRender = False DidRender = True 'Nesting = "/535/" if Int(CurrentPageID) <> Int(535) Then Response.Write(" ") %> <% Response.Write("Recreation Programs") %> <% Response.Write(" ") else %> Recreation Programs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Recreation Programs" subsecLink = "/175_535.htm" end if NodeID = 535 Response.write("") if InStr(1, BreadCrumb, "/" & 10911 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16192) Then thes3nv="2009 Faculty and Staff Team Fitness Challenge" Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") else Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") end if if Int(CurrentPageID) = Int(16310) Then thes3nv="Fitness Programs" Response.write(" Fitness Programs ") else Response.write(" Fitness Programs ") end if if Int(CurrentPageID) = Int(7939) Then thes3nv="Intramurals" Response.write(" Intramurals ") else Response.write(" Intramurals ") end if if Int(CurrentPageID) = Int(7940) Then thes3nv="Club Sports" Response.write(" Club Sports ") else Response.write(" Club Sports ") end if if Int(CurrentPageID) = Int(2489) Then thes3nv="Outdoor Recreation" Response.write(" Outdoor Recreation ") else Response.write(" Outdoor Recreation ") end if if Int(CurrentPageID) = Int(10982) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(10980) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(4919) Then thes3nv="Recreation Resources" Response.write(" Recreation Resources ") else Response.write(" Recreation Resources ") end if if Int(CurrentPageID) = Int(10983) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/99/" if Int(CurrentPageID) <> Int(99) Then Response.Write(" ") %> <% Response.Write("Residence Life") %> <% Response.Write(" ") else %> Residence Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Residence Life" subsecLink = "/175_99.htm" end if NodeID = 99 Response.write("") if InStr(1, BreadCrumb, "/" & 227 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(543) Then thes3nv="Mission" Response.write(" Mission ") else Response.write(" Mission ") end if if Int(CurrentPageID) = Int(542) Then thes3nv="The Experience" Response.write(" The Experience ") else Response.write(" The Experience ") end if if Int(CurrentPageID) = Int(538) Then thes3nv="Employment & Graduate Assistantships" Response.write(" Employment & Graduate Assistantships ") else Response.write(" Employment & Graduate Assistantships ") end if if Int(CurrentPageID) = Int(541) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if if Int(CurrentPageID) = Int(537) Then thes3nv="Housing Information for Current Students" Response.write(" Housing Information for Current Students ") else Response.write(" Housing Information for Current Students ") end if end if' DidRender = False DidRender = True 'Nesting = "/100/" if Int(CurrentPageID) <> Int(100) Then Response.Write(" ") %> <% Response.Write("Off Campus Living and Commuter Life") %> <% Response.Write(" ") else %> Off Campus Living and Commuter Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Off Campus Living and Commuter Life" subsecLink = "/175_100.htm" end if NodeID = 100 Response.write("") if InStr(1, BreadCrumb, "/" & 228 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(539) Then thes3nv="Off-Campus Housing for Lawrenceville & Princeton" Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") else Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") end if if Int(CurrentPageID) = Int(548) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/101/" if Int(CurrentPageID) <> Int(101) Then Response.Write(" ") %> <% Response.Write("Dining Services") %> <% Response.Write(" ") else %> Dining Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Dining Services" subsecLink = "/175_101.htm" end if NodeID = 101 Response.write("") if InStr(1, BreadCrumb, "/" & 229 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/102/" if Int(CurrentPageID) <> Int(102) Then Response.Write(" ") %> <% Response.Write("Health & Wellness Services") %> <% Response.Write(" ") else %> Health & Wellness Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Health & Wellness Services" subsecLink = "/175_102.htm" end if NodeID = 102 Response.write("") if InStr(1, BreadCrumb, "/" & 230 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(555) Then thes3nv="Counseling Services" Response.write(" Counseling Services ") else Response.write(" Counseling Services ") end if if Int(CurrentPageID) = Int(554) Then thes3nv="Student Health Services" Response.write(" Student Health Services ") else Response.write(" Student Health Services ") end if end if' DidRender = False DidRender = True 'Nesting = "/13648/" if Int(CurrentPageID) <> Int(13648) Then Response.Write(" ") %> <% Response.Write("Rider Initiative for Substance-Abuse Education") %> <% Response.Write(" ") else %> Rider Initiative for Substance-Abuse Education <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Rider Initiative for Substance-Abuse Education" subsecLink = "/175_13648.htm" end if NodeID = 13648 Response.write("") if InStr(1, BreadCrumb, "/" & 13647 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(11972) Then thes3nv="Alcohol Policy" Response.write(" Alcohol Policy ") else Response.write(" Alcohol Policy ") end if if Int(CurrentPageID) = Int(3374) Then thes3nv="e-CHUG" Response.write(" e-CHUG ") else Response.write(" e-CHUG ") end if if Int(CurrentPageID) = Int(13654) Then thes3nv="Tips For Safe Partying!" Response.write(" Tips For Safe Partying! ") else Response.write(" Tips For Safe Partying! ") end if if Int(CurrentPageID) = Int(14459) Then thes3nv="Safe Rides Program" Response.write(" Safe Rides Program ") else Response.write(" Safe Rides Program ") end if if Int(CurrentPageID) = Int(13653) Then thes3nv="MYTHS and FACTS about Alcohol" Response.write(" MYTHS and FACTS about Alcohol ") else Response.write(" MYTHS and FACTS about Alcohol ") end if if Int(CurrentPageID) = Int(13652) Then thes3nv="Do You Know What Binge Drinking is?" Response.write(" Do You Know What Binge Drinking is? ") else Response.write(" Do You Know What Binge Drinking is? ") end if if Int(CurrentPageID) = Int(13651) Then thes3nv="Signs of a Problem Drinker" Response.write(" Signs of a Problem Drinker ") else Response.write(" Signs of a Problem Drinker ") end if if Int(CurrentPageID) = Int(13650) Then thes3nv="Links" Response.write(" Links ") else Response.write(" Links ") end if end if' DidRender = False DidRender = True 'Nesting = "/16693/" if Int(CurrentPageID) <> Int(16693) Then Response.Write(" ") %> <% Response.Write("107.7 WRRC-FM The Bronc") %> <% Response.Write(" ") else %> 107.7 WRRC-FM The Bronc <% OnSecondLevel = True end if if not HaveHead then subsecHead = "107.7 WRRC-FM The Bronc" subsecLink = "/175_16693.htm" end if NodeID = 16693 Response.write("") if InStr(1, BreadCrumb, "/" & 16692 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16696) Then thes3nv="History of the Station" Response.write(" History of the Station ") else Response.write(" History of the Station ") end if if Int(CurrentPageID) = Int(16697) Then thes3nv="Programming" Response.write(" Programming ") else Response.write(" Programming ") end if if Int(CurrentPageID) = Int(16702) Then thes3nv="Listen Live!" Response.write(" Listen Live! ") else Response.write(" Listen Live! ") end if if Int(CurrentPageID) = Int(17128) Then thes3nv="Streaming Audio" Response.write(" Streaming Audio ") else Response.write(" Streaming Audio ") end if if Int(CurrentPageID) = Int(16701) Then thes3nv="News & Events" Response.write(" News & Events ") else Response.write(" News & Events ") end if if Int(CurrentPageID) = Int(17259) Then thes3nv="Bronc's Beat" Response.write(" Bronc's Beat ") else Response.write(" Bronc's Beat ") end if if Int(CurrentPageID) = Int(16703) Then thes3nv="Underwriting/Advertising" Response.write(" Underwriting/Advertising ") else Response.write(" Underwriting/Advertising ") end if if Int(CurrentPageID) = Int(16706) Then thes3nv="Contact Us" Response.write(" Contact Us ") else Response.write(" Contact Us ") end if end if' DidRender = False DidRender = True 'Nesting = "/16858/" if Int(CurrentPageID) <> Int(16858) Then Response.Write(" ") %> <% Response.Write("The Rider News") %> <% Response.Write(" ") else %> The Rider News <% OnSecondLevel = True end if if not HaveHead then subsecHead = "The Rider News" subsecLink = "http://www.theridernews.com" end if NodeID = 16858 Response.write("") if InStr(1, BreadCrumb, "/" & 16858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/103/" if Int(CurrentPageID) <> Int(103) Then Response.Write(" ") %> <% Response.Write("Multicultural Affairs") %> <% Response.Write(" ") else %> Multicultural Affairs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Multicultural Affairs" subsecLink = "/175_103.htm" end if NodeID = 103 Response.write("") if InStr(1, BreadCrumb, "/" & 231 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/9973/" if Int(CurrentPageID) <> Int(9973) Then Response.Write(" ") %> <% Response.Write("Community Service") %> <% Response.Write(" ") else %> Community Service <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Community Service" subsecLink = "/175_9973.htm" end if NodeID = 9973 Response.write("") if InStr(1, BreadCrumb, "/" & 9972 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/6478/" if Int(CurrentPageID) <> Int(6478) Then Response.Write(" ") %> <% Response.Write("International Students") %> <% Response.Write(" ") else %> International Students <% OnSecondLevel = True end if if not HaveHead then subsecHead = "International Students" subsecLink = "/175_6478.htm" end if NodeID = 6478 Response.write("") if InStr(1, BreadCrumb, "/" & 16155 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/104/" if Int(CurrentPageID) <> Int(104) Then Response.Write(" ") %> <% Response.Write("Public Safety") %> <% Response.Write(" ") else %> Public Safety <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Public Safety" subsecLink = "/175_104.htm" end if NodeID = 104 Response.write("") if InStr(1, BreadCrumb, "/" & 232 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(10765) Then thes3nv="Emergency Procedures" Response.write(" Emergency Procedures ") else Response.write(" Emergency Procedures ") end if if Int(CurrentPageID) = Int(1038) Then thes3nv="Important Telephone Numbers" Response.write(" Important Telephone Numbers ") else Response.write(" Important Telephone Numbers ") end if if Int(CurrentPageID) = Int(1039) Then thes3nv="Access to Campus" Response.write(" Access to Campus ") else Response.write(" Access to Campus ") end if if Int(CurrentPageID) = Int(570) Then thes3nv="Parking" Response.write(" Parking ") else Response.write(" Parking ") end if if Int(CurrentPageID) = Int(573) Then thes3nv="Security on Campus" Response.write(" Security on Campus ") else Response.write(" Security on Campus ") end if if Int(CurrentPageID) = Int(564) Then thes3nv="Fire Safety" Response.write(" Fire Safety ") else Response.write(" Fire Safety ") end if if Int(CurrentPageID) = Int(7630) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/12383/" if Int(CurrentPageID) <> Int(12383) Then Response.Write(" ") %> <% Response.Write("Office of Community Standards") %> <% Response.Write(" ") else %> Office of Community Standards <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Office of Community Standards" subsecLink = "/175_12383.htm" end if NodeID = 12383 Response.write("") if InStr(1, BreadCrumb, "/" & 12382 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(12389) Then thes3nv="Good Samaritan Policy" Response.write(" Good Samaritan Policy ") else Response.write(" Good Samaritan Policy ") end if if Int(CurrentPageID) = Int(12385) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/13465/" if Int(CurrentPageID) <> Int(13465) 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 = "/175_13465.htm" end if NodeID = 13465 Response.write("") if InStr(1, BreadCrumb, "/" & 13464 & "/") > 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 = "/98/" if Int(CurrentPageID) <> Int(98) Then Response.Write(" ") %> <% Response.Write("Activities Outside the Classroom") %> <% Response.Write(" ") else %> Activities Outside the Classroom <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Activities Outside the Classroom" subsecLink = "/175_98.htm" end if NodeID = 98 Response.write("") if InStr(1, BreadCrumb, "/" & 226 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2463) Then thes3nv="Office of Campus Life, Lawrenceville" Response.write(" Office of Campus Life, Lawrenceville ") else Response.write(" Office of Campus Life, Lawrenceville ") end if if Int(CurrentPageID) = Int(533) Then thes3nv="Campus Activities & Traditions " Response.write(" Campus Activities & Traditions ") else Response.write(" Campus Activities & Traditions ") end if if Int(CurrentPageID) = Int(536) Then thes3nv="Leadership Opportunities" Response.write(" Leadership Opportunities ") else Response.write(" Leadership Opportunities ") end if if Int(CurrentPageID) = Int(532) Then thes3nv="Fraternities & Sororities" Response.write(" Fraternities & Sororities ") else Response.write(" Fraternities & Sororities ") end if if Int(CurrentPageID) = Int(531) Then thes3nv="Religious Life" Response.write(" Religious Life ") else Response.write(" Religious Life ") end if if Int(CurrentPageID) = Int(15734) Then thes3nv="Student Government Association (Lawrenceville)" Response.write(" Student Government Association (Lawrenceville) ") else Response.write(" Student Government Association (Lawrenceville) ") end if if Int(CurrentPageID) = Int(528) Then thes3nv="Student Government Association (Princeton)" Response.write(" Student Government Association (Princeton) ") else Response.write(" Student Government Association (Princeton) ") end if end if' DidRender = False DidRender = True 'Nesting = "/535/" if Int(CurrentPageID) <> Int(535) Then Response.Write(" ") %> <% Response.Write("Recreation Programs") %> <% Response.Write(" ") else %> Recreation Programs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Recreation Programs" subsecLink = "/175_535.htm" end if NodeID = 535 Response.write("") if InStr(1, BreadCrumb, "/" & 10911 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16192) Then thes3nv="2009 Faculty and Staff Team Fitness Challenge" Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") else Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") end if if Int(CurrentPageID) = Int(16310) Then thes3nv="Fitness Programs" Response.write(" Fitness Programs ") else Response.write(" Fitness Programs ") end if if Int(CurrentPageID) = Int(7939) Then thes3nv="Intramurals" Response.write(" Intramurals ") else Response.write(" Intramurals ") end if if Int(CurrentPageID) = Int(7940) Then thes3nv="Club Sports" Response.write(" Club Sports ") else Response.write(" Club Sports ") end if if Int(CurrentPageID) = Int(2489) Then thes3nv="Outdoor Recreation" Response.write(" Outdoor Recreation ") else Response.write(" Outdoor Recreation ") end if if Int(CurrentPageID) = Int(10982) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(10980) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(4919) Then thes3nv="Recreation Resources" Response.write(" Recreation Resources ") else Response.write(" Recreation Resources ") end if if Int(CurrentPageID) = Int(10983) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/99/" if Int(CurrentPageID) <> Int(99) Then Response.Write(" ") %> <% Response.Write("Residence Life") %> <% Response.Write(" ") else %> Residence Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Residence Life" subsecLink = "/175_99.htm" end if NodeID = 99 Response.write("") if InStr(1, BreadCrumb, "/" & 227 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(543) Then thes3nv="Mission" Response.write(" Mission ") else Response.write(" Mission ") end if if Int(CurrentPageID) = Int(542) Then thes3nv="The Experience" Response.write(" The Experience ") else Response.write(" The Experience ") end if if Int(CurrentPageID) = Int(538) Then thes3nv="Employment & Graduate Assistantships" Response.write(" Employment & Graduate Assistantships ") else Response.write(" Employment & Graduate Assistantships ") end if if Int(CurrentPageID) = Int(541) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if if Int(CurrentPageID) = Int(537) Then thes3nv="Housing Information for Current Students" Response.write(" Housing Information for Current Students ") else Response.write(" Housing Information for Current Students ") end if end if' DidRender = False DidRender = True 'Nesting = "/100/" if Int(CurrentPageID) <> Int(100) Then Response.Write(" ") %> <% Response.Write("Off Campus Living and Commuter Life") %> <% Response.Write(" ") else %> Off Campus Living and Commuter Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Off Campus Living and Commuter Life" subsecLink = "/175_100.htm" end if NodeID = 100 Response.write("") if InStr(1, BreadCrumb, "/" & 228 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(539) Then thes3nv="Off-Campus Housing for Lawrenceville & Princeton" Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") else Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") end if if Int(CurrentPageID) = Int(548) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/101/" if Int(CurrentPageID) <> Int(101) Then Response.Write(" ") %> <% Response.Write("Dining Services") %> <% Response.Write(" ") else %> Dining Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Dining Services" subsecLink = "/175_101.htm" end if NodeID = 101 Response.write("") if InStr(1, BreadCrumb, "/" & 229 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/102/" if Int(CurrentPageID) <> Int(102) Then Response.Write(" ") %> <% Response.Write("Health & Wellness Services") %> <% Response.Write(" ") else %> Health & Wellness Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Health & Wellness Services" subsecLink = "/175_102.htm" end if NodeID = 102 Response.write("") if InStr(1, BreadCrumb, "/" & 230 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(555) Then thes3nv="Counseling Services" Response.write(" Counseling Services ") else Response.write(" Counseling Services ") end if if Int(CurrentPageID) = Int(554) Then thes3nv="Student Health Services" Response.write(" Student Health Services ") else Response.write(" Student Health Services ") end if end if' DidRender = False DidRender = True 'Nesting = "/13648/" if Int(CurrentPageID) <> Int(13648) Then Response.Write(" ") %> <% Response.Write("Rider Initiative for Substance-Abuse Education") %> <% Response.Write(" ") else %> Rider Initiative for Substance-Abuse Education <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Rider Initiative for Substance-Abuse Education" subsecLink = "/175_13648.htm" end if NodeID = 13648 Response.write("") if InStr(1, BreadCrumb, "/" & 13647 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(11972) Then thes3nv="Alcohol Policy" Response.write(" Alcohol Policy ") else Response.write(" Alcohol Policy ") end if if Int(CurrentPageID) = Int(3374) Then thes3nv="e-CHUG" Response.write(" e-CHUG ") else Response.write(" e-CHUG ") end if if Int(CurrentPageID) = Int(13654) Then thes3nv="Tips For Safe Partying!" Response.write(" Tips For Safe Partying! ") else Response.write(" Tips For Safe Partying! ") end if if Int(CurrentPageID) = Int(14459) Then thes3nv="Safe Rides Program" Response.write(" Safe Rides Program ") else Response.write(" Safe Rides Program ") end if if Int(CurrentPageID) = Int(13653) Then thes3nv="MYTHS and FACTS about Alcohol" Response.write(" MYTHS and FACTS about Alcohol ") else Response.write(" MYTHS and FACTS about Alcohol ") end if if Int(CurrentPageID) = Int(13652) Then thes3nv="Do You Know What Binge Drinking is?" Response.write(" Do You Know What Binge Drinking is? ") else Response.write(" Do You Know What Binge Drinking is? ") end if if Int(CurrentPageID) = Int(13651) Then thes3nv="Signs of a Problem Drinker" Response.write(" Signs of a Problem Drinker ") else Response.write(" Signs of a Problem Drinker ") end if if Int(CurrentPageID) = Int(13650) Then thes3nv="Links" Response.write(" Links ") else Response.write(" Links ") end if end if' DidRender = False DidRender = True 'Nesting = "/16693/" if Int(CurrentPageID) <> Int(16693) Then Response.Write(" ") %> <% Response.Write("107.7 WRRC-FM The Bronc") %> <% Response.Write(" ") else %> 107.7 WRRC-FM The Bronc <% OnSecondLevel = True end if if not HaveHead then subsecHead = "107.7 WRRC-FM The Bronc" subsecLink = "/175_16693.htm" end if NodeID = 16693 Response.write("") if InStr(1, BreadCrumb, "/" & 16692 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16696) Then thes3nv="History of the Station" Response.write(" History of the Station ") else Response.write(" History of the Station ") end if if Int(CurrentPageID) = Int(16697) Then thes3nv="Programming" Response.write(" Programming ") else Response.write(" Programming ") end if if Int(CurrentPageID) = Int(16702) Then thes3nv="Listen Live!" Response.write(" Listen Live! ") else Response.write(" Listen Live! ") end if if Int(CurrentPageID) = Int(17128) Then thes3nv="Streaming Audio" Response.write(" Streaming Audio ") else Response.write(" Streaming Audio ") end if if Int(CurrentPageID) = Int(16701) Then thes3nv="News & Events" Response.write(" News & Events ") else Response.write(" News & Events ") end if if Int(CurrentPageID) = Int(17259) Then thes3nv="Bronc's Beat" Response.write(" Bronc's Beat ") else Response.write(" Bronc's Beat ") end if if Int(CurrentPageID) = Int(16703) Then thes3nv="Underwriting/Advertising" Response.write(" Underwriting/Advertising ") else Response.write(" Underwriting/Advertising ") end if if Int(CurrentPageID) = Int(16706) Then thes3nv="Contact Us" Response.write(" Contact Us ") else Response.write(" Contact Us ") end if end if' DidRender = False DidRender = True 'Nesting = "/16858/" if Int(CurrentPageID) <> Int(16858) Then Response.Write(" ") %> <% Response.Write("The Rider News") %> <% Response.Write(" ") else %> The Rider News <% OnSecondLevel = True end if if not HaveHead then subsecHead = "The Rider News" subsecLink = "http://www.theridernews.com" end if NodeID = 16858 Response.write("") if InStr(1, BreadCrumb, "/" & 16858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/103/" if Int(CurrentPageID) <> Int(103) Then Response.Write(" ") %> <% Response.Write("Multicultural Affairs") %> <% Response.Write(" ") else %> Multicultural Affairs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Multicultural Affairs" subsecLink = "/175_103.htm" end if NodeID = 103 Response.write("") if InStr(1, BreadCrumb, "/" & 231 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/9973/" if Int(CurrentPageID) <> Int(9973) Then Response.Write(" ") %> <% Response.Write("Community Service") %> <% Response.Write(" ") else %> Community Service <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Community Service" subsecLink = "/175_9973.htm" end if NodeID = 9973 Response.write("") if InStr(1, BreadCrumb, "/" & 9972 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/6478/" if Int(CurrentPageID) <> Int(6478) Then Response.Write(" ") %> <% Response.Write("International Students") %> <% Response.Write(" ") else %> International Students <% OnSecondLevel = True end if if not HaveHead then subsecHead = "International Students" subsecLink = "/175_6478.htm" end if NodeID = 6478 Response.write("") if InStr(1, BreadCrumb, "/" & 16155 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/104/" if Int(CurrentPageID) <> Int(104) Then Response.Write(" ") %> <% Response.Write("Public Safety") %> <% Response.Write(" ") else %> Public Safety <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Public Safety" subsecLink = "/175_104.htm" end if NodeID = 104 Response.write("") if InStr(1, BreadCrumb, "/" & 232 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(10765) Then thes3nv="Emergency Procedures" Response.write(" Emergency Procedures ") else Response.write(" Emergency Procedures ") end if if Int(CurrentPageID) = Int(1038) Then thes3nv="Important Telephone Numbers" Response.write(" Important Telephone Numbers ") else Response.write(" Important Telephone Numbers ") end if if Int(CurrentPageID) = Int(1039) Then thes3nv="Access to Campus" Response.write(" Access to Campus ") else Response.write(" Access to Campus ") end if if Int(CurrentPageID) = Int(570) Then thes3nv="Parking" Response.write(" Parking ") else Response.write(" Parking ") end if if Int(CurrentPageID) = Int(573) Then thes3nv="Security on Campus" Response.write(" Security on Campus ") else Response.write(" Security on Campus ") end if if Int(CurrentPageID) = Int(564) Then thes3nv="Fire Safety" Response.write(" Fire Safety ") else Response.write(" Fire Safety ") end if if Int(CurrentPageID) = Int(7630) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/12383/" if Int(CurrentPageID) <> Int(12383) Then Response.Write(" ") %> <% Response.Write("Office of Community Standards") %> <% Response.Write(" ") else %> Office of Community Standards <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Office of Community Standards" subsecLink = "/175_12383.htm" end if NodeID = 12383 Response.write("") if InStr(1, BreadCrumb, "/" & 12382 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(12389) Then thes3nv="Good Samaritan Policy" Response.write(" Good Samaritan Policy ") else Response.write(" Good Samaritan Policy ") end if if Int(CurrentPageID) = Int(12385) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/13465/" if Int(CurrentPageID) <> Int(13465) 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 = "/175_13465.htm" end if NodeID = 13465 Response.write("") if InStr(1, BreadCrumb, "/" & 13464 & "/") > 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 = "/98/" if Int(CurrentPageID) <> Int(98) Then Response.Write(" ") %> <% Response.Write("Activities Outside the Classroom") %> <% Response.Write(" ") else %> Activities Outside the Classroom <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Activities Outside the Classroom" subsecLink = "/175_98.htm" end if NodeID = 98 Response.write("") if InStr(1, BreadCrumb, "/" & 226 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2463) Then thes3nv="Office of Campus Life, Lawrenceville" Response.write(" Office of Campus Life, Lawrenceville ") else Response.write(" Office of Campus Life, Lawrenceville ") end if if Int(CurrentPageID) = Int(533) Then thes3nv="Campus Activities & Traditions " Response.write(" Campus Activities & Traditions ") else Response.write(" Campus Activities & Traditions ") end if if Int(CurrentPageID) = Int(536) Then thes3nv="Leadership Opportunities" Response.write(" Leadership Opportunities ") else Response.write(" Leadership Opportunities ") end if if Int(CurrentPageID) = Int(532) Then thes3nv="Fraternities & Sororities" Response.write(" Fraternities & Sororities ") else Response.write(" Fraternities & Sororities ") end if if Int(CurrentPageID) = Int(531) Then thes3nv="Religious Life" Response.write(" Religious Life ") else Response.write(" Religious Life ") end if if Int(CurrentPageID) = Int(15734) Then thes3nv="Student Government Association (Lawrenceville)" Response.write(" Student Government Association (Lawrenceville) ") else Response.write(" Student Government Association (Lawrenceville) ") end if if Int(CurrentPageID) = Int(528) Then thes3nv="Student Government Association (Princeton)" Response.write(" Student Government Association (Princeton) ") else Response.write(" Student Government Association (Princeton) ") end if end if' DidRender = False DidRender = True 'Nesting = "/535/" if Int(CurrentPageID) <> Int(535) Then Response.Write(" ") %> <% Response.Write("Recreation Programs") %> <% Response.Write(" ") else %> Recreation Programs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Recreation Programs" subsecLink = "/175_535.htm" end if NodeID = 535 Response.write("") if InStr(1, BreadCrumb, "/" & 10911 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16192) Then thes3nv="2009 Faculty and Staff Team Fitness Challenge" Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") else Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") end if if Int(CurrentPageID) = Int(16310) Then thes3nv="Fitness Programs" Response.write(" Fitness Programs ") else Response.write(" Fitness Programs ") end if if Int(CurrentPageID) = Int(7939) Then thes3nv="Intramurals" Response.write(" Intramurals ") else Response.write(" Intramurals ") end if if Int(CurrentPageID) = Int(7940) Then thes3nv="Club Sports" Response.write(" Club Sports ") else Response.write(" Club Sports ") end if if Int(CurrentPageID) = Int(2489) Then thes3nv="Outdoor Recreation" Response.write(" Outdoor Recreation ") else Response.write(" Outdoor Recreation ") end if if Int(CurrentPageID) = Int(10982) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(10980) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(4919) Then thes3nv="Recreation Resources" Response.write(" Recreation Resources ") else Response.write(" Recreation Resources ") end if if Int(CurrentPageID) = Int(10983) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/99/" if Int(CurrentPageID) <> Int(99) Then Response.Write(" ") %> <% Response.Write("Residence Life") %> <% Response.Write(" ") else %> Residence Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Residence Life" subsecLink = "/175_99.htm" end if NodeID = 99 Response.write("") if InStr(1, BreadCrumb, "/" & 227 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(543) Then thes3nv="Mission" Response.write(" Mission ") else Response.write(" Mission ") end if if Int(CurrentPageID) = Int(542) Then thes3nv="The Experience" Response.write(" The Experience ") else Response.write(" The Experience ") end if if Int(CurrentPageID) = Int(538) Then thes3nv="Employment & Graduate Assistantships" Response.write(" Employment & Graduate Assistantships ") else Response.write(" Employment & Graduate Assistantships ") end if if Int(CurrentPageID) = Int(541) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if if Int(CurrentPageID) = Int(537) Then thes3nv="Housing Information for Current Students" Response.write(" Housing Information for Current Students ") else Response.write(" Housing Information for Current Students ") end if end if' DidRender = False DidRender = True 'Nesting = "/100/" if Int(CurrentPageID) <> Int(100) Then Response.Write(" ") %> <% Response.Write("Off Campus Living and Commuter Life") %> <% Response.Write(" ") else %> Off Campus Living and Commuter Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Off Campus Living and Commuter Life" subsecLink = "/175_100.htm" end if NodeID = 100 Response.write("") if InStr(1, BreadCrumb, "/" & 228 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(539) Then thes3nv="Off-Campus Housing for Lawrenceville & Princeton" Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") else Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") end if if Int(CurrentPageID) = Int(548) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/101/" if Int(CurrentPageID) <> Int(101) Then Response.Write(" ") %> <% Response.Write("Dining Services") %> <% Response.Write(" ") else %> Dining Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Dining Services" subsecLink = "/175_101.htm" end if NodeID = 101 Response.write("") if InStr(1, BreadCrumb, "/" & 229 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/102/" if Int(CurrentPageID) <> Int(102) Then Response.Write(" ") %> <% Response.Write("Health & Wellness Services") %> <% Response.Write(" ") else %> Health & Wellness Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Health & Wellness Services" subsecLink = "/175_102.htm" end if NodeID = 102 Response.write("") if InStr(1, BreadCrumb, "/" & 230 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(555) Then thes3nv="Counseling Services" Response.write(" Counseling Services ") else Response.write(" Counseling Services ") end if if Int(CurrentPageID) = Int(554) Then thes3nv="Student Health Services" Response.write(" Student Health Services ") else Response.write(" Student Health Services ") end if end if' DidRender = False DidRender = True 'Nesting = "/13648/" if Int(CurrentPageID) <> Int(13648) Then Response.Write(" ") %> <% Response.Write("Rider Initiative for Substance-Abuse Education") %> <% Response.Write(" ") else %> Rider Initiative for Substance-Abuse Education <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Rider Initiative for Substance-Abuse Education" subsecLink = "/175_13648.htm" end if NodeID = 13648 Response.write("") if InStr(1, BreadCrumb, "/" & 13647 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(11972) Then thes3nv="Alcohol Policy" Response.write(" Alcohol Policy ") else Response.write(" Alcohol Policy ") end if if Int(CurrentPageID) = Int(3374) Then thes3nv="e-CHUG" Response.write(" e-CHUG ") else Response.write(" e-CHUG ") end if if Int(CurrentPageID) = Int(13654) Then thes3nv="Tips For Safe Partying!" Response.write(" Tips For Safe Partying! ") else Response.write(" Tips For Safe Partying! ") end if if Int(CurrentPageID) = Int(14459) Then thes3nv="Safe Rides Program" Response.write(" Safe Rides Program ") else Response.write(" Safe Rides Program ") end if if Int(CurrentPageID) = Int(13653) Then thes3nv="MYTHS and FACTS about Alcohol" Response.write(" MYTHS and FACTS about Alcohol ") else Response.write(" MYTHS and FACTS about Alcohol ") end if if Int(CurrentPageID) = Int(13652) Then thes3nv="Do You Know What Binge Drinking is?" Response.write(" Do You Know What Binge Drinking is? ") else Response.write(" Do You Know What Binge Drinking is? ") end if if Int(CurrentPageID) = Int(13651) Then thes3nv="Signs of a Problem Drinker" Response.write(" Signs of a Problem Drinker ") else Response.write(" Signs of a Problem Drinker ") end if if Int(CurrentPageID) = Int(13650) Then thes3nv="Links" Response.write(" Links ") else Response.write(" Links ") end if end if' DidRender = False DidRender = True 'Nesting = "/16693/" if Int(CurrentPageID) <> Int(16693) Then Response.Write(" ") %> <% Response.Write("107.7 WRRC-FM The Bronc") %> <% Response.Write(" ") else %> 107.7 WRRC-FM The Bronc <% OnSecondLevel = True end if if not HaveHead then subsecHead = "107.7 WRRC-FM The Bronc" subsecLink = "/175_16693.htm" end if NodeID = 16693 Response.write("") if InStr(1, BreadCrumb, "/" & 16692 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16696) Then thes3nv="History of the Station" Response.write(" History of the Station ") else Response.write(" History of the Station ") end if if Int(CurrentPageID) = Int(16697) Then thes3nv="Programming" Response.write(" Programming ") else Response.write(" Programming ") end if if Int(CurrentPageID) = Int(16702) Then thes3nv="Listen Live!" Response.write(" Listen Live! ") else Response.write(" Listen Live! ") end if if Int(CurrentPageID) = Int(17128) Then thes3nv="Streaming Audio" Response.write(" Streaming Audio ") else Response.write(" Streaming Audio ") end if if Int(CurrentPageID) = Int(16701) Then thes3nv="News & Events" Response.write(" News & Events ") else Response.write(" News & Events ") end if if Int(CurrentPageID) = Int(17259) Then thes3nv="Bronc's Beat" Response.write(" Bronc's Beat ") else Response.write(" Bronc's Beat ") end if if Int(CurrentPageID) = Int(16703) Then thes3nv="Underwriting/Advertising" Response.write(" Underwriting/Advertising ") else Response.write(" Underwriting/Advertising ") end if if Int(CurrentPageID) = Int(16706) Then thes3nv="Contact Us" Response.write(" Contact Us ") else Response.write(" Contact Us ") end if end if' DidRender = False DidRender = True 'Nesting = "/16858/" if Int(CurrentPageID) <> Int(16858) Then Response.Write(" ") %> <% Response.Write("The Rider News") %> <% Response.Write(" ") else %> The Rider News <% OnSecondLevel = True end if if not HaveHead then subsecHead = "The Rider News" subsecLink = "http://www.theridernews.com" end if NodeID = 16858 Response.write("") if InStr(1, BreadCrumb, "/" & 16858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/103/" if Int(CurrentPageID) <> Int(103) Then Response.Write(" ") %> <% Response.Write("Multicultural Affairs") %> <% Response.Write(" ") else %> Multicultural Affairs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Multicultural Affairs" subsecLink = "/175_103.htm" end if NodeID = 103 Response.write("") if InStr(1, BreadCrumb, "/" & 231 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/9973/" if Int(CurrentPageID) <> Int(9973) Then Response.Write(" ") %> <% Response.Write("Community Service") %> <% Response.Write(" ") else %> Community Service <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Community Service" subsecLink = "/175_9973.htm" end if NodeID = 9973 Response.write("") if InStr(1, BreadCrumb, "/" & 9972 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/6478/" if Int(CurrentPageID) <> Int(6478) Then Response.Write(" ") %> <% Response.Write("International Students") %> <% Response.Write(" ") else %> International Students <% OnSecondLevel = True end if if not HaveHead then subsecHead = "International Students" subsecLink = "/175_6478.htm" end if NodeID = 6478 Response.write("") if InStr(1, BreadCrumb, "/" & 16155 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/104/" if Int(CurrentPageID) <> Int(104) Then Response.Write(" ") %> <% Response.Write("Public Safety") %> <% Response.Write(" ") else %> Public Safety <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Public Safety" subsecLink = "/175_104.htm" end if NodeID = 104 Response.write("") if InStr(1, BreadCrumb, "/" & 232 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(10765) Then thes3nv="Emergency Procedures" Response.write(" Emergency Procedures ") else Response.write(" Emergency Procedures ") end if if Int(CurrentPageID) = Int(1038) Then thes3nv="Important Telephone Numbers" Response.write(" Important Telephone Numbers ") else Response.write(" Important Telephone Numbers ") end if if Int(CurrentPageID) = Int(1039) Then thes3nv="Access to Campus" Response.write(" Access to Campus ") else Response.write(" Access to Campus ") end if if Int(CurrentPageID) = Int(570) Then thes3nv="Parking" Response.write(" Parking ") else Response.write(" Parking ") end if if Int(CurrentPageID) = Int(573) Then thes3nv="Security on Campus" Response.write(" Security on Campus ") else Response.write(" Security on Campus ") end if if Int(CurrentPageID) = Int(564) Then thes3nv="Fire Safety" Response.write(" Fire Safety ") else Response.write(" Fire Safety ") end if if Int(CurrentPageID) = Int(7630) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/12383/" if Int(CurrentPageID) <> Int(12383) Then Response.Write(" ") %> <% Response.Write("Office of Community Standards") %> <% Response.Write(" ") else %> Office of Community Standards <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Office of Community Standards" subsecLink = "/175_12383.htm" end if NodeID = 12383 Response.write("") if InStr(1, BreadCrumb, "/" & 12382 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(12389) Then thes3nv="Good Samaritan Policy" Response.write(" Good Samaritan Policy ") else Response.write(" Good Samaritan Policy ") end if if Int(CurrentPageID) = Int(12385) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/13465/" if Int(CurrentPageID) <> Int(13465) 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 = "/175_13465.htm" end if NodeID = 13465 Response.write("") if InStr(1, BreadCrumb, "/" & 13464 & "/") > 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 = "/98/" if Int(CurrentPageID) <> Int(98) Then Response.Write(" ") %> <% Response.Write("Activities Outside the Classroom") %> <% Response.Write(" ") else %> Activities Outside the Classroom <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Activities Outside the Classroom" subsecLink = "/175_98.htm" end if NodeID = 98 Response.write("") if InStr(1, BreadCrumb, "/" & 226 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(2463) Then thes3nv="Office of Campus Life, Lawrenceville" Response.write(" Office of Campus Life, Lawrenceville ") else Response.write(" Office of Campus Life, Lawrenceville ") end if if Int(CurrentPageID) = Int(533) Then thes3nv="Campus Activities & Traditions " Response.write(" Campus Activities & Traditions ") else Response.write(" Campus Activities & Traditions ") end if if Int(CurrentPageID) = Int(536) Then thes3nv="Leadership Opportunities" Response.write(" Leadership Opportunities ") else Response.write(" Leadership Opportunities ") end if if Int(CurrentPageID) = Int(532) Then thes3nv="Fraternities & Sororities" Response.write(" Fraternities & Sororities ") else Response.write(" Fraternities & Sororities ") end if if Int(CurrentPageID) = Int(531) Then thes3nv="Religious Life" Response.write(" Religious Life ") else Response.write(" Religious Life ") end if if Int(CurrentPageID) = Int(15734) Then thes3nv="Student Government Association (Lawrenceville)" Response.write(" Student Government Association (Lawrenceville) ") else Response.write(" Student Government Association (Lawrenceville) ") end if if Int(CurrentPageID) = Int(528) Then thes3nv="Student Government Association (Princeton)" Response.write(" Student Government Association (Princeton) ") else Response.write(" Student Government Association (Princeton) ") end if end if' DidRender = False DidRender = True 'Nesting = "/535/" if Int(CurrentPageID) <> Int(535) Then Response.Write(" ") %> <% Response.Write("Recreation Programs") %> <% Response.Write(" ") else %> Recreation Programs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Recreation Programs" subsecLink = "/175_535.htm" end if NodeID = 535 Response.write("") if InStr(1, BreadCrumb, "/" & 10911 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16192) Then thes3nv="2009 Faculty and Staff Team Fitness Challenge" Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") else Response.write(" 2009 Faculty and Staff Team Fitness Challenge ") end if if Int(CurrentPageID) = Int(16310) Then thes3nv="Fitness Programs" Response.write(" Fitness Programs ") else Response.write(" Fitness Programs ") end if if Int(CurrentPageID) = Int(7939) Then thes3nv="Intramurals" Response.write(" Intramurals ") else Response.write(" Intramurals ") end if if Int(CurrentPageID) = Int(7940) Then thes3nv="Club Sports" Response.write(" Club Sports ") else Response.write(" Club Sports ") end if if Int(CurrentPageID) = Int(2489) Then thes3nv="Outdoor Recreation" Response.write(" Outdoor Recreation ") else Response.write(" Outdoor Recreation ") end if if Int(CurrentPageID) = Int(10982) Then thes3nv="Special Events" Response.write(" Special Events ") else Response.write(" Special Events ") end if if Int(CurrentPageID) = Int(10980) Then thes3nv="Student Recreation Center" Response.write(" Student Recreation Center ") else Response.write(" Student Recreation Center ") end if if Int(CurrentPageID) = Int(4919) Then thes3nv="Recreation Resources" Response.write(" Recreation Resources ") else Response.write(" Recreation Resources ") end if if Int(CurrentPageID) = Int(10983) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/99/" if Int(CurrentPageID) <> Int(99) Then Response.Write(" ") %> <% Response.Write("Residence Life") %> <% Response.Write(" ") else %> Residence Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Residence Life" subsecLink = "/175_99.htm" end if NodeID = 99 Response.write("") if InStr(1, BreadCrumb, "/" & 227 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(543) Then thes3nv="Mission" Response.write(" Mission ") else Response.write(" Mission ") end if if Int(CurrentPageID) = Int(542) Then thes3nv="The Experience" Response.write(" The Experience ") else Response.write(" The Experience ") end if if Int(CurrentPageID) = Int(538) Then thes3nv="Employment & Graduate Assistantships" Response.write(" Employment & Graduate Assistantships ") else Response.write(" Employment & Graduate Assistantships ") end if if Int(CurrentPageID) = Int(541) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if if Int(CurrentPageID) = Int(537) Then thes3nv="Housing Information for Current Students" Response.write(" Housing Information for Current Students ") else Response.write(" Housing Information for Current Students ") end if end if' DidRender = False DidRender = True 'Nesting = "/100/" if Int(CurrentPageID) <> Int(100) Then Response.Write(" ") %> <% Response.Write("Off Campus Living and Commuter Life") %> <% Response.Write(" ") else %> Off Campus Living and Commuter Life <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Off Campus Living and Commuter Life" subsecLink = "/175_100.htm" end if NodeID = 100 Response.write("") if InStr(1, BreadCrumb, "/" & 228 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(539) Then thes3nv="Off-Campus Housing for Lawrenceville & Princeton" Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") else Response.write(" Off-Campus Housing for Lawrenceville & Princeton ") end if if Int(CurrentPageID) = Int(548) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/101/" if Int(CurrentPageID) <> Int(101) Then Response.Write(" ") %> <% Response.Write("Dining Services") %> <% Response.Write(" ") else %> Dining Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Dining Services" subsecLink = "/175_101.htm" end if NodeID = 101 Response.write("") if InStr(1, BreadCrumb, "/" & 229 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/102/" if Int(CurrentPageID) <> Int(102) Then Response.Write(" ") %> <% Response.Write("Health & Wellness Services") %> <% Response.Write(" ") else %> Health & Wellness Services <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Health & Wellness Services" subsecLink = "/175_102.htm" end if NodeID = 102 Response.write("") if InStr(1, BreadCrumb, "/" & 230 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(555) Then thes3nv="Counseling Services" Response.write(" Counseling Services ") else Response.write(" Counseling Services ") end if if Int(CurrentPageID) = Int(554) Then thes3nv="Student Health Services" Response.write(" Student Health Services ") else Response.write(" Student Health Services ") end if end if' DidRender = False DidRender = True 'Nesting = "/13648/" if Int(CurrentPageID) <> Int(13648) Then Response.Write(" ") %> <% Response.Write("Rider Initiative for Substance-Abuse Education") %> <% Response.Write(" ") else %> Rider Initiative for Substance-Abuse Education <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Rider Initiative for Substance-Abuse Education" subsecLink = "/175_13648.htm" end if NodeID = 13648 Response.write("") if InStr(1, BreadCrumb, "/" & 13647 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(11972) Then thes3nv="Alcohol Policy" Response.write(" Alcohol Policy ") else Response.write(" Alcohol Policy ") end if if Int(CurrentPageID) = Int(3374) Then thes3nv="e-CHUG" Response.write(" e-CHUG ") else Response.write(" e-CHUG ") end if if Int(CurrentPageID) = Int(13654) Then thes3nv="Tips For Safe Partying!" Response.write(" Tips For Safe Partying! ") else Response.write(" Tips For Safe Partying! ") end if if Int(CurrentPageID) = Int(14459) Then thes3nv="Safe Rides Program" Response.write(" Safe Rides Program ") else Response.write(" Safe Rides Program ") end if if Int(CurrentPageID) = Int(13653) Then thes3nv="MYTHS and FACTS about Alcohol" Response.write(" MYTHS and FACTS about Alcohol ") else Response.write(" MYTHS and FACTS about Alcohol ") end if if Int(CurrentPageID) = Int(13652) Then thes3nv="Do You Know What Binge Drinking is?" Response.write(" Do You Know What Binge Drinking is? ") else Response.write(" Do You Know What Binge Drinking is? ") end if if Int(CurrentPageID) = Int(13651) Then thes3nv="Signs of a Problem Drinker" Response.write(" Signs of a Problem Drinker ") else Response.write(" Signs of a Problem Drinker ") end if if Int(CurrentPageID) = Int(13650) Then thes3nv="Links" Response.write(" Links ") else Response.write(" Links ") end if end if' DidRender = False DidRender = True 'Nesting = "/16693/" if Int(CurrentPageID) <> Int(16693) Then Response.Write(" ") %> <% Response.Write("107.7 WRRC-FM The Bronc") %> <% Response.Write(" ") else %> 107.7 WRRC-FM The Bronc <% OnSecondLevel = True end if if not HaveHead then subsecHead = "107.7 WRRC-FM The Bronc" subsecLink = "/175_16693.htm" end if NodeID = 16693 Response.write("") if InStr(1, BreadCrumb, "/" & 16692 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(16696) Then thes3nv="History of the Station" Response.write(" History of the Station ") else Response.write(" History of the Station ") end if if Int(CurrentPageID) = Int(16697) Then thes3nv="Programming" Response.write(" Programming ") else Response.write(" Programming ") end if if Int(CurrentPageID) = Int(16702) Then thes3nv="Listen Live!" Response.write(" Listen Live! ") else Response.write(" Listen Live! ") end if if Int(CurrentPageID) = Int(17128) Then thes3nv="Streaming Audio" Response.write(" Streaming Audio ") else Response.write(" Streaming Audio ") end if if Int(CurrentPageID) = Int(16701) Then thes3nv="News & Events" Response.write(" News & Events ") else Response.write(" News & Events ") end if if Int(CurrentPageID) = Int(17259) Then thes3nv="Bronc's Beat" Response.write(" Bronc's Beat ") else Response.write(" Bronc's Beat ") end if if Int(CurrentPageID) = Int(16703) Then thes3nv="Underwriting/Advertising" Response.write(" Underwriting/Advertising ") else Response.write(" Underwriting/Advertising ") end if if Int(CurrentPageID) = Int(16706) Then thes3nv="Contact Us" Response.write(" Contact Us ") else Response.write(" Contact Us ") end if end if' DidRender = False DidRender = True 'Nesting = "/16858/" if Int(CurrentPageID) <> Int(16858) Then Response.Write(" ") %> <% Response.Write("The Rider News") %> <% Response.Write(" ") else %> The Rider News <% OnSecondLevel = True end if if not HaveHead then subsecHead = "The Rider News" subsecLink = "http://www.theridernews.com" end if NodeID = 16858 Response.write("") if InStr(1, BreadCrumb, "/" & 16858 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/103/" if Int(CurrentPageID) <> Int(103) Then Response.Write(" ") %> <% Response.Write("Multicultural Affairs") %> <% Response.Write(" ") else %> Multicultural Affairs <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Multicultural Affairs" subsecLink = "/175_103.htm" end if NodeID = 103 Response.write("") if InStr(1, BreadCrumb, "/" & 231 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/9973/" if Int(CurrentPageID) <> Int(9973) Then Response.Write(" ") %> <% Response.Write("Community Service") %> <% Response.Write(" ") else %> Community Service <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Community Service" subsecLink = "/175_9973.htm" end if NodeID = 9973 Response.write("") if InStr(1, BreadCrumb, "/" & 9972 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/6478/" if Int(CurrentPageID) <> Int(6478) Then Response.Write(" ") %> <% Response.Write("International Students") %> <% Response.Write(" ") else %> International Students <% OnSecondLevel = True end if if not HaveHead then subsecHead = "International Students" subsecLink = "/175_6478.htm" end if NodeID = 6478 Response.write("") if InStr(1, BreadCrumb, "/" & 16155 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/104/" if Int(CurrentPageID) <> Int(104) Then Response.Write(" ") %> <% Response.Write("Public Safety") %> <% Response.Write(" ") else %> Public Safety <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Public Safety" subsecLink = "/175_104.htm" end if NodeID = 104 Response.write("") if InStr(1, BreadCrumb, "/" & 232 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(10765) Then thes3nv="Emergency Procedures" Response.write(" Emergency Procedures ") else Response.write(" Emergency Procedures ") end if if Int(CurrentPageID) = Int(1038) Then thes3nv="Important Telephone Numbers" Response.write(" Important Telephone Numbers ") else Response.write(" Important Telephone Numbers ") end if if Int(CurrentPageID) = Int(1039) Then thes3nv="Access to Campus" Response.write(" Access to Campus ") else Response.write(" Access to Campus ") end if if Int(CurrentPageID) = Int(570) Then thes3nv="Parking" Response.write(" Parking ") else Response.write(" Parking ") end if if Int(CurrentPageID) = Int(573) Then thes3nv="Security on Campus" Response.write(" Security on Campus ") else Response.write(" Security on Campus ") end if if Int(CurrentPageID) = Int(564) Then thes3nv="Fire Safety" Response.write(" Fire Safety ") else Response.write(" Fire Safety ") end if if Int(CurrentPageID) = Int(7630) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/12383/" if Int(CurrentPageID) <> Int(12383) Then Response.Write(" ") %> <% Response.Write("Office of Community Standards") %> <% Response.Write(" ") else %> Office of Community Standards <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Office of Community Standards" subsecLink = "/175_12383.htm" end if NodeID = 12383 Response.write("") if InStr(1, BreadCrumb, "/" & 12382 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(12389) Then thes3nv="Good Samaritan Policy" Response.write(" Good Samaritan Policy ") else Response.write(" Good Samaritan Policy ") end if if Int(CurrentPageID) = Int(12385) Then thes3nv="Meet the Staff" Response.write(" Meet the Staff ") else Response.write(" Meet the Staff ") end if end if' DidRender = False DidRender = True 'Nesting = "/13465/" if Int(CurrentPageID) <> Int(13465) 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 = "/175_13465.htm" end if NodeID = 13465 Response.write("") if InStr(1, BreadCrumb, "/" & 13464 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if Response.write(" ") end if%> <% function GetNavigationPath() NavPath = "" CurrentID = "4918" CurrentGUID = "7CE51CC4578A46479C99403FD591ACC9" 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 %>