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 ServicesBookstoresCampus 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 = 15217 SelectedItem = "Support" 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 <> "HR" then %> <% else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/15171/" if Int(CurrentPageID) <> Int(15171) Then Response.Write(" ") %> <% Response.Write("Faculty Handbook") %> <% Response.Write(" ") else %> Faculty Handbook <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Faculty Handbook" subsecLink = "/2559_15171.htm" end if NodeID = 15171 Response.write("") if InStr(1, BreadCrumb, "/" & 15170 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/5870/" if Int(CurrentPageID) <> Int(5870) Then Response.Write(" ") %> <% Response.Write("Teaching and Learning Center") %> <% Response.Write(" ") else %> Teaching and Learning Center <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Teaching and Learning Center" subsecLink = "/2559_5870.htm" end if NodeID = 5870 Response.write("") if InStr(1, BreadCrumb, "/" & 5869 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(13330) Then thes3nv="Assessment Initiative" Response.write(" Assessment Initiative ") else Response.write(" Assessment Initiative ") end if if Int(CurrentPageID) = Int(5874) Then thes3nv="Location & Facilities" Response.write(" Location & Facilities ") else Response.write(" Location & Facilities ") end if if Int(CurrentPageID) = Int(5878) Then thes3nv="Intellectual Property for Teaching and Learning" Response.write(" Intellectual Property for Teaching and Learning ") else Response.write(" Intellectual Property for Teaching and Learning ") end if if Int(CurrentPageID) = Int(5877) Then thes3nv="Faculty Support" Response.write(" Faculty Support ") else Response.write(" Faculty Support ") end if if Int(CurrentPageID) = Int(5883) Then thes3nv="SELECT" Response.write(" SELECT ") else Response.write(" SELECT ") end if if Int(CurrentPageID) = Int(5881) Then thes3nv="CONNECT-ED" Response.write(" CONNECT-ED ") else Response.write(" CONNECT-ED ") end if if Int(CurrentPageID) = Int(5882) Then thes3nv="IDEAS" Response.write(" IDEAS ") else Response.write(" IDEAS ") end if if Int(CurrentPageID) = Int(5876) Then thes3nv="Teaching and Learning Links" Response.write(" Teaching and Learning Links ") else Response.write(" Teaching and Learning Links ") end if if Int(CurrentPageID) = Int(6802) Then thes3nv="Upcoming Events (Info)" Response.write(" Upcoming Events (Info) ") else Response.write(" Upcoming Events (Info) ") end if if Int(CurrentPageID) = Int(5884) Then thes3nv="Writing Across the Curriculum" Response.write(" Writing Across the Curriculum ") else Response.write(" Writing Across the Curriculum ") end if if Int(CurrentPageID) = Int(16925) Then thes3nv="Distance Learning" Response.write(" Distance Learning ") else Response.write(" Distance Learning ") end if end if' DidRender = False DidRender = True 'Nesting = "/3398/" if Int(CurrentPageID) <> Int(3398) Then Response.Write(" ") %> <% Response.Write("BRIDGE") %> <% Response.Write(" ") else %> BRIDGE <% OnSecondLevel = True end if if not HaveHead then subsecHead = "BRIDGE" subsecLink = "/2559_3398.htm" end if NodeID = 3398 Response.write("") if InStr(1, BreadCrumb, "/" & 3397 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3547) Then thes3nv="What do BRIDGE Participants Do?" Response.write(" What do BRIDGE Participants Do? ") else Response.write(" What do BRIDGE Participants Do? ") end if if Int(CurrentPageID) = Int(3546) Then thes3nv="SoTL Selected Readings" Response.write(" SoTL Selected Readings ") else Response.write(" SoTL Selected Readings ") end if if Int(CurrentPageID) = Int(3545) Then thes3nv="Participant Examples" Response.write(" Participant Examples ") else Response.write(" Participant Examples ") end if if Int(CurrentPageID) = Int(3544) Then thes3nv="BRIDGE and the Brain" Response.write(" BRIDGE and the Brain ") else Response.write(" BRIDGE and the Brain ") end if if Int(CurrentPageID) = Int(3543) Then thes3nv="CASTL Inquiry Project" Response.write(" CASTL Inquiry Project ") else Response.write(" CASTL Inquiry Project ") end if end if' DidRender = False DidRender = True 'Nesting = "/17331/" if Int(CurrentPageID) <> Int(17331) Then Response.Write(" ") %> <% Response.Write("Study Abroad") %> <% Response.Write(" ") else %> Study Abroad <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Study Abroad" subsecLink = "/2559_17331.htm" end if NodeID = 17331 Response.write("") if InStr(1, BreadCrumb, "/" & 17330 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/11632/" if Int(CurrentPageID) <> Int(11632) Then Response.Write(" ") %> <% Response.Write("Statistical Software") %> <% Response.Write(" ") else %> Statistical Software <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Statistical Software" subsecLink = "/2559_11632.htm" end if NodeID = 11632 Response.write("") if InStr(1, BreadCrumb, "/" & 11631 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3138/" if Int(CurrentPageID) <> Int(3138) Then Response.Write(" ") %> <% Response.Write("Quick Tips") %> <% Response.Write(" ") else %> Quick Tips <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Quick Tips" subsecLink = "/2559_3138.htm" end if NodeID = 3138 Response.write("") if InStr(1, BreadCrumb, "/" & 13251 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write(" ") end if if SelectedItem <> "Technology" then Response.write("") else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/15171/" if Int(CurrentPageID) <> Int(15171) Then Response.Write(" ") %> <% Response.Write("Faculty Handbook") %> <% Response.Write(" ") else %> Faculty Handbook <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Faculty Handbook" subsecLink = "/2559_15171.htm" end if NodeID = 15171 Response.write("") if InStr(1, BreadCrumb, "/" & 15170 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/5870/" if Int(CurrentPageID) <> Int(5870) Then Response.Write(" ") %> <% Response.Write("Teaching and Learning Center") %> <% Response.Write(" ") else %> Teaching and Learning Center <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Teaching and Learning Center" subsecLink = "/2559_5870.htm" end if NodeID = 5870 Response.write("") if InStr(1, BreadCrumb, "/" & 5869 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(13330) Then thes3nv="Assessment Initiative" Response.write(" Assessment Initiative ") else Response.write(" Assessment Initiative ") end if if Int(CurrentPageID) = Int(5874) Then thes3nv="Location & Facilities" Response.write(" Location & Facilities ") else Response.write(" Location & Facilities ") end if if Int(CurrentPageID) = Int(5878) Then thes3nv="Intellectual Property for Teaching and Learning" Response.write(" Intellectual Property for Teaching and Learning ") else Response.write(" Intellectual Property for Teaching and Learning ") end if if Int(CurrentPageID) = Int(5877) Then thes3nv="Faculty Support" Response.write(" Faculty Support ") else Response.write(" Faculty Support ") end if if Int(CurrentPageID) = Int(5883) Then thes3nv="SELECT" Response.write(" SELECT ") else Response.write(" SELECT ") end if if Int(CurrentPageID) = Int(5881) Then thes3nv="CONNECT-ED" Response.write(" CONNECT-ED ") else Response.write(" CONNECT-ED ") end if if Int(CurrentPageID) = Int(5882) Then thes3nv="IDEAS" Response.write(" IDEAS ") else Response.write(" IDEAS ") end if if Int(CurrentPageID) = Int(5876) Then thes3nv="Teaching and Learning Links" Response.write(" Teaching and Learning Links ") else Response.write(" Teaching and Learning Links ") end if if Int(CurrentPageID) = Int(6802) Then thes3nv="Upcoming Events (Info)" Response.write(" Upcoming Events (Info) ") else Response.write(" Upcoming Events (Info) ") end if if Int(CurrentPageID) = Int(5884) Then thes3nv="Writing Across the Curriculum" Response.write(" Writing Across the Curriculum ") else Response.write(" Writing Across the Curriculum ") end if if Int(CurrentPageID) = Int(16925) Then thes3nv="Distance Learning" Response.write(" Distance Learning ") else Response.write(" Distance Learning ") end if end if' DidRender = False DidRender = True 'Nesting = "/3398/" if Int(CurrentPageID) <> Int(3398) Then Response.Write(" ") %> <% Response.Write("BRIDGE") %> <% Response.Write(" ") else %> BRIDGE <% OnSecondLevel = True end if if not HaveHead then subsecHead = "BRIDGE" subsecLink = "/2559_3398.htm" end if NodeID = 3398 Response.write("") if InStr(1, BreadCrumb, "/" & 3397 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3547) Then thes3nv="What do BRIDGE Participants Do?" Response.write(" What do BRIDGE Participants Do? ") else Response.write(" What do BRIDGE Participants Do? ") end if if Int(CurrentPageID) = Int(3546) Then thes3nv="SoTL Selected Readings" Response.write(" SoTL Selected Readings ") else Response.write(" SoTL Selected Readings ") end if if Int(CurrentPageID) = Int(3545) Then thes3nv="Participant Examples" Response.write(" Participant Examples ") else Response.write(" Participant Examples ") end if if Int(CurrentPageID) = Int(3544) Then thes3nv="BRIDGE and the Brain" Response.write(" BRIDGE and the Brain ") else Response.write(" BRIDGE and the Brain ") end if if Int(CurrentPageID) = Int(3543) Then thes3nv="CASTL Inquiry Project" Response.write(" CASTL Inquiry Project ") else Response.write(" CASTL Inquiry Project ") end if end if' DidRender = False DidRender = True 'Nesting = "/17331/" if Int(CurrentPageID) <> Int(17331) Then Response.Write(" ") %> <% Response.Write("Study Abroad") %> <% Response.Write(" ") else %> Study Abroad <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Study Abroad" subsecLink = "/2559_17331.htm" end if NodeID = 17331 Response.write("") if InStr(1, BreadCrumb, "/" & 17330 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/11632/" if Int(CurrentPageID) <> Int(11632) Then Response.Write(" ") %> <% Response.Write("Statistical Software") %> <% Response.Write(" ") else %> Statistical Software <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Statistical Software" subsecLink = "/2559_11632.htm" end if NodeID = 11632 Response.write("") if InStr(1, BreadCrumb, "/" & 11631 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3138/" if Int(CurrentPageID) <> Int(3138) Then Response.Write(" ") %> <% Response.Write("Quick Tips") %> <% Response.Write(" ") else %> Quick Tips <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Quick Tips" subsecLink = "/2559_3138.htm" end if NodeID = 3138 Response.write("") if InStr(1, BreadCrumb, "/" & 13251 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write(" ") end if if SelectedItem <> "Finance" then Response.write("") else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/15171/" if Int(CurrentPageID) <> Int(15171) Then Response.Write(" ") %> <% Response.Write("Faculty Handbook") %> <% Response.Write(" ") else %> Faculty Handbook <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Faculty Handbook" subsecLink = "/2559_15171.htm" end if NodeID = 15171 Response.write("") if InStr(1, BreadCrumb, "/" & 15170 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/5870/" if Int(CurrentPageID) <> Int(5870) Then Response.Write(" ") %> <% Response.Write("Teaching and Learning Center") %> <% Response.Write(" ") else %> Teaching and Learning Center <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Teaching and Learning Center" subsecLink = "/2559_5870.htm" end if NodeID = 5870 Response.write("") if InStr(1, BreadCrumb, "/" & 5869 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(13330) Then thes3nv="Assessment Initiative" Response.write(" Assessment Initiative ") else Response.write(" Assessment Initiative ") end if if Int(CurrentPageID) = Int(5874) Then thes3nv="Location & Facilities" Response.write(" Location & Facilities ") else Response.write(" Location & Facilities ") end if if Int(CurrentPageID) = Int(5878) Then thes3nv="Intellectual Property for Teaching and Learning" Response.write(" Intellectual Property for Teaching and Learning ") else Response.write(" Intellectual Property for Teaching and Learning ") end if if Int(CurrentPageID) = Int(5877) Then thes3nv="Faculty Support" Response.write(" Faculty Support ") else Response.write(" Faculty Support ") end if if Int(CurrentPageID) = Int(5883) Then thes3nv="SELECT" Response.write(" SELECT ") else Response.write(" SELECT ") end if if Int(CurrentPageID) = Int(5881) Then thes3nv="CONNECT-ED" Response.write(" CONNECT-ED ") else Response.write(" CONNECT-ED ") end if if Int(CurrentPageID) = Int(5882) Then thes3nv="IDEAS" Response.write(" IDEAS ") else Response.write(" IDEAS ") end if if Int(CurrentPageID) = Int(5876) Then thes3nv="Teaching and Learning Links" Response.write(" Teaching and Learning Links ") else Response.write(" Teaching and Learning Links ") end if if Int(CurrentPageID) = Int(6802) Then thes3nv="Upcoming Events (Info)" Response.write(" Upcoming Events (Info) ") else Response.write(" Upcoming Events (Info) ") end if if Int(CurrentPageID) = Int(5884) Then thes3nv="Writing Across the Curriculum" Response.write(" Writing Across the Curriculum ") else Response.write(" Writing Across the Curriculum ") end if if Int(CurrentPageID) = Int(16925) Then thes3nv="Distance Learning" Response.write(" Distance Learning ") else Response.write(" Distance Learning ") end if end if' DidRender = False DidRender = True 'Nesting = "/3398/" if Int(CurrentPageID) <> Int(3398) Then Response.Write(" ") %> <% Response.Write("BRIDGE") %> <% Response.Write(" ") else %> BRIDGE <% OnSecondLevel = True end if if not HaveHead then subsecHead = "BRIDGE" subsecLink = "/2559_3398.htm" end if NodeID = 3398 Response.write("") if InStr(1, BreadCrumb, "/" & 3397 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3547) Then thes3nv="What do BRIDGE Participants Do?" Response.write(" What do BRIDGE Participants Do? ") else Response.write(" What do BRIDGE Participants Do? ") end if if Int(CurrentPageID) = Int(3546) Then thes3nv="SoTL Selected Readings" Response.write(" SoTL Selected Readings ") else Response.write(" SoTL Selected Readings ") end if if Int(CurrentPageID) = Int(3545) Then thes3nv="Participant Examples" Response.write(" Participant Examples ") else Response.write(" Participant Examples ") end if if Int(CurrentPageID) = Int(3544) Then thes3nv="BRIDGE and the Brain" Response.write(" BRIDGE and the Brain ") else Response.write(" BRIDGE and the Brain ") end if if Int(CurrentPageID) = Int(3543) Then thes3nv="CASTL Inquiry Project" Response.write(" CASTL Inquiry Project ") else Response.write(" CASTL Inquiry Project ") end if end if' DidRender = False DidRender = True 'Nesting = "/17331/" if Int(CurrentPageID) <> Int(17331) Then Response.Write(" ") %> <% Response.Write("Study Abroad") %> <% Response.Write(" ") else %> Study Abroad <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Study Abroad" subsecLink = "/2559_17331.htm" end if NodeID = 17331 Response.write("") if InStr(1, BreadCrumb, "/" & 17330 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/11632/" if Int(CurrentPageID) <> Int(11632) Then Response.Write(" ") %> <% Response.Write("Statistical Software") %> <% Response.Write(" ") else %> Statistical Software <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Statistical Software" subsecLink = "/2559_11632.htm" end if NodeID = 11632 Response.write("") if InStr(1, BreadCrumb, "/" & 11631 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3138/" if Int(CurrentPageID) <> Int(3138) Then Response.Write(" ") %> <% Response.Write("Quick Tips") %> <% Response.Write(" ") else %> Quick Tips <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Quick Tips" subsecLink = "/2559_3138.htm" end if NodeID = 3138 Response.write("") if InStr(1, BreadCrumb, "/" & 13251 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write(" ") end if if SelectedItem <> "Support" then Response.write("") else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/15171/" if Int(CurrentPageID) <> Int(15171) Then Response.Write(" ") %> <% Response.Write("Faculty Handbook") %> <% Response.Write(" ") else %> Faculty Handbook <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Faculty Handbook" subsecLink = "/2559_15171.htm" end if NodeID = 15171 Response.write("") if InStr(1, BreadCrumb, "/" & 15170 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/5870/" if Int(CurrentPageID) <> Int(5870) Then Response.Write(" ") %> <% Response.Write("Teaching and Learning Center") %> <% Response.Write(" ") else %> Teaching and Learning Center <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Teaching and Learning Center" subsecLink = "/2559_5870.htm" end if NodeID = 5870 Response.write("") if InStr(1, BreadCrumb, "/" & 5869 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(13330) Then thes3nv="Assessment Initiative" Response.write(" Assessment Initiative ") else Response.write(" Assessment Initiative ") end if if Int(CurrentPageID) = Int(5874) Then thes3nv="Location & Facilities" Response.write(" Location & Facilities ") else Response.write(" Location & Facilities ") end if if Int(CurrentPageID) = Int(5878) Then thes3nv="Intellectual Property for Teaching and Learning" Response.write(" Intellectual Property for Teaching and Learning ") else Response.write(" Intellectual Property for Teaching and Learning ") end if if Int(CurrentPageID) = Int(5877) Then thes3nv="Faculty Support" Response.write(" Faculty Support ") else Response.write(" Faculty Support ") end if if Int(CurrentPageID) = Int(5883) Then thes3nv="SELECT" Response.write(" SELECT ") else Response.write(" SELECT ") end if if Int(CurrentPageID) = Int(5881) Then thes3nv="CONNECT-ED" Response.write(" CONNECT-ED ") else Response.write(" CONNECT-ED ") end if if Int(CurrentPageID) = Int(5882) Then thes3nv="IDEAS" Response.write(" IDEAS ") else Response.write(" IDEAS ") end if if Int(CurrentPageID) = Int(5876) Then thes3nv="Teaching and Learning Links" Response.write(" Teaching and Learning Links ") else Response.write(" Teaching and Learning Links ") end if if Int(CurrentPageID) = Int(6802) Then thes3nv="Upcoming Events (Info)" Response.write(" Upcoming Events (Info) ") else Response.write(" Upcoming Events (Info) ") end if if Int(CurrentPageID) = Int(5884) Then thes3nv="Writing Across the Curriculum" Response.write(" Writing Across the Curriculum ") else Response.write(" Writing Across the Curriculum ") end if if Int(CurrentPageID) = Int(16925) Then thes3nv="Distance Learning" Response.write(" Distance Learning ") else Response.write(" Distance Learning ") end if end if' DidRender = False DidRender = True 'Nesting = "/3398/" if Int(CurrentPageID) <> Int(3398) Then Response.Write(" ") %> <% Response.Write("BRIDGE") %> <% Response.Write(" ") else %> BRIDGE <% OnSecondLevel = True end if if not HaveHead then subsecHead = "BRIDGE" subsecLink = "/2559_3398.htm" end if NodeID = 3398 Response.write("") if InStr(1, BreadCrumb, "/" & 3397 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3547) Then thes3nv="What do BRIDGE Participants Do?" Response.write(" What do BRIDGE Participants Do? ") else Response.write(" What do BRIDGE Participants Do? ") end if if Int(CurrentPageID) = Int(3546) Then thes3nv="SoTL Selected Readings" Response.write(" SoTL Selected Readings ") else Response.write(" SoTL Selected Readings ") end if if Int(CurrentPageID) = Int(3545) Then thes3nv="Participant Examples" Response.write(" Participant Examples ") else Response.write(" Participant Examples ") end if if Int(CurrentPageID) = Int(3544) Then thes3nv="BRIDGE and the Brain" Response.write(" BRIDGE and the Brain ") else Response.write(" BRIDGE and the Brain ") end if if Int(CurrentPageID) = Int(3543) Then thes3nv="CASTL Inquiry Project" Response.write(" CASTL Inquiry Project ") else Response.write(" CASTL Inquiry Project ") end if end if' DidRender = False DidRender = True 'Nesting = "/17331/" if Int(CurrentPageID) <> Int(17331) Then Response.Write(" ") %> <% Response.Write("Study Abroad") %> <% Response.Write(" ") else %> Study Abroad <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Study Abroad" subsecLink = "/2559_17331.htm" end if NodeID = 17331 Response.write("") if InStr(1, BreadCrumb, "/" & 17330 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/11632/" if Int(CurrentPageID) <> Int(11632) Then Response.Write(" ") %> <% Response.Write("Statistical Software") %> <% Response.Write(" ") else %> Statistical Software <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Statistical Software" subsecLink = "/2559_11632.htm" end if NodeID = 11632 Response.write("") if InStr(1, BreadCrumb, "/" & 11631 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3138/" if Int(CurrentPageID) <> Int(3138) Then Response.Write(" ") %> <% Response.Write("Quick Tips") %> <% Response.Write(" ") else %> Quick Tips <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Quick Tips" subsecLink = "/2559_3138.htm" end if NodeID = 3138 Response.write("") if InStr(1, BreadCrumb, "/" & 13251 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write(" ") end if if SelectedItem <> "Employment" then Response.write("") else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/15171/" if Int(CurrentPageID) <> Int(15171) Then Response.Write(" ") %> <% Response.Write("Faculty Handbook") %> <% Response.Write(" ") else %> Faculty Handbook <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Faculty Handbook" subsecLink = "/2559_15171.htm" end if NodeID = 15171 Response.write("") if InStr(1, BreadCrumb, "/" & 15170 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/5870/" if Int(CurrentPageID) <> Int(5870) Then Response.Write(" ") %> <% Response.Write("Teaching and Learning Center") %> <% Response.Write(" ") else %> Teaching and Learning Center <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Teaching and Learning Center" subsecLink = "/2559_5870.htm" end if NodeID = 5870 Response.write("") if InStr(1, BreadCrumb, "/" & 5869 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(13330) Then thes3nv="Assessment Initiative" Response.write(" Assessment Initiative ") else Response.write(" Assessment Initiative ") end if if Int(CurrentPageID) = Int(5874) Then thes3nv="Location & Facilities" Response.write(" Location & Facilities ") else Response.write(" Location & Facilities ") end if if Int(CurrentPageID) = Int(5878) Then thes3nv="Intellectual Property for Teaching and Learning" Response.write(" Intellectual Property for Teaching and Learning ") else Response.write(" Intellectual Property for Teaching and Learning ") end if if Int(CurrentPageID) = Int(5877) Then thes3nv="Faculty Support" Response.write(" Faculty Support ") else Response.write(" Faculty Support ") end if if Int(CurrentPageID) = Int(5883) Then thes3nv="SELECT" Response.write(" SELECT ") else Response.write(" SELECT ") end if if Int(CurrentPageID) = Int(5881) Then thes3nv="CONNECT-ED" Response.write(" CONNECT-ED ") else Response.write(" CONNECT-ED ") end if if Int(CurrentPageID) = Int(5882) Then thes3nv="IDEAS" Response.write(" IDEAS ") else Response.write(" IDEAS ") end if if Int(CurrentPageID) = Int(5876) Then thes3nv="Teaching and Learning Links" Response.write(" Teaching and Learning Links ") else Response.write(" Teaching and Learning Links ") end if if Int(CurrentPageID) = Int(6802) Then thes3nv="Upcoming Events (Info)" Response.write(" Upcoming Events (Info) ") else Response.write(" Upcoming Events (Info) ") end if if Int(CurrentPageID) = Int(5884) Then thes3nv="Writing Across the Curriculum" Response.write(" Writing Across the Curriculum ") else Response.write(" Writing Across the Curriculum ") end if if Int(CurrentPageID) = Int(16925) Then thes3nv="Distance Learning" Response.write(" Distance Learning ") else Response.write(" Distance Learning ") end if end if' DidRender = False DidRender = True 'Nesting = "/3398/" if Int(CurrentPageID) <> Int(3398) Then Response.Write(" ") %> <% Response.Write("BRIDGE") %> <% Response.Write(" ") else %> BRIDGE <% OnSecondLevel = True end if if not HaveHead then subsecHead = "BRIDGE" subsecLink = "/2559_3398.htm" end if NodeID = 3398 Response.write("") if InStr(1, BreadCrumb, "/" & 3397 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3547) Then thes3nv="What do BRIDGE Participants Do?" Response.write(" What do BRIDGE Participants Do? ") else Response.write(" What do BRIDGE Participants Do? ") end if if Int(CurrentPageID) = Int(3546) Then thes3nv="SoTL Selected Readings" Response.write(" SoTL Selected Readings ") else Response.write(" SoTL Selected Readings ") end if if Int(CurrentPageID) = Int(3545) Then thes3nv="Participant Examples" Response.write(" Participant Examples ") else Response.write(" Participant Examples ") end if if Int(CurrentPageID) = Int(3544) Then thes3nv="BRIDGE and the Brain" Response.write(" BRIDGE and the Brain ") else Response.write(" BRIDGE and the Brain ") end if if Int(CurrentPageID) = Int(3543) Then thes3nv="CASTL Inquiry Project" Response.write(" CASTL Inquiry Project ") else Response.write(" CASTL Inquiry Project ") end if end if' DidRender = False DidRender = True 'Nesting = "/17331/" if Int(CurrentPageID) <> Int(17331) Then Response.Write(" ") %> <% Response.Write("Study Abroad") %> <% Response.Write(" ") else %> Study Abroad <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Study Abroad" subsecLink = "/2559_17331.htm" end if NodeID = 17331 Response.write("") if InStr(1, BreadCrumb, "/" & 17330 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/11632/" if Int(CurrentPageID) <> Int(11632) Then Response.Write(" ") %> <% Response.Write("Statistical Software") %> <% Response.Write(" ") else %> Statistical Software <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Statistical Software" subsecLink = "/2559_11632.htm" end if NodeID = 11632 Response.write("") if InStr(1, BreadCrumb, "/" & 11631 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3138/" if Int(CurrentPageID) <> Int(3138) Then Response.Write(" ") %> <% Response.Write("Quick Tips") %> <% Response.Write(" ") else %> Quick Tips <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Quick Tips" subsecLink = "/2559_3138.htm" end if NodeID = 3138 Response.write("") if InStr(1, BreadCrumb, "/" & 13251 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write(" ") end if if SelectedItem <> "Offices" then Response.write("") else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/15171/" if Int(CurrentPageID) <> Int(15171) Then Response.Write(" ") %> <% Response.Write("Faculty Handbook") %> <% Response.Write(" ") else %> Faculty Handbook <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Faculty Handbook" subsecLink = "/2559_15171.htm" end if NodeID = 15171 Response.write("") if InStr(1, BreadCrumb, "/" & 15170 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/5870/" if Int(CurrentPageID) <> Int(5870) Then Response.Write(" ") %> <% Response.Write("Teaching and Learning Center") %> <% Response.Write(" ") else %> Teaching and Learning Center <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Teaching and Learning Center" subsecLink = "/2559_5870.htm" end if NodeID = 5870 Response.write("") if InStr(1, BreadCrumb, "/" & 5869 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(13330) Then thes3nv="Assessment Initiative" Response.write(" Assessment Initiative ") else Response.write(" Assessment Initiative ") end if if Int(CurrentPageID) = Int(5874) Then thes3nv="Location & Facilities" Response.write(" Location & Facilities ") else Response.write(" Location & Facilities ") end if if Int(CurrentPageID) = Int(5878) Then thes3nv="Intellectual Property for Teaching and Learning" Response.write(" Intellectual Property for Teaching and Learning ") else Response.write(" Intellectual Property for Teaching and Learning ") end if if Int(CurrentPageID) = Int(5877) Then thes3nv="Faculty Support" Response.write(" Faculty Support ") else Response.write(" Faculty Support ") end if if Int(CurrentPageID) = Int(5883) Then thes3nv="SELECT" Response.write(" SELECT ") else Response.write(" SELECT ") end if if Int(CurrentPageID) = Int(5881) Then thes3nv="CONNECT-ED" Response.write(" CONNECT-ED ") else Response.write(" CONNECT-ED ") end if if Int(CurrentPageID) = Int(5882) Then thes3nv="IDEAS" Response.write(" IDEAS ") else Response.write(" IDEAS ") end if if Int(CurrentPageID) = Int(5876) Then thes3nv="Teaching and Learning Links" Response.write(" Teaching and Learning Links ") else Response.write(" Teaching and Learning Links ") end if if Int(CurrentPageID) = Int(6802) Then thes3nv="Upcoming Events (Info)" Response.write(" Upcoming Events (Info) ") else Response.write(" Upcoming Events (Info) ") end if if Int(CurrentPageID) = Int(5884) Then thes3nv="Writing Across the Curriculum" Response.write(" Writing Across the Curriculum ") else Response.write(" Writing Across the Curriculum ") end if if Int(CurrentPageID) = Int(16925) Then thes3nv="Distance Learning" Response.write(" Distance Learning ") else Response.write(" Distance Learning ") end if end if' DidRender = False DidRender = True 'Nesting = "/3398/" if Int(CurrentPageID) <> Int(3398) Then Response.Write(" ") %> <% Response.Write("BRIDGE") %> <% Response.Write(" ") else %> BRIDGE <% OnSecondLevel = True end if if not HaveHead then subsecHead = "BRIDGE" subsecLink = "/2559_3398.htm" end if NodeID = 3398 Response.write("") if InStr(1, BreadCrumb, "/" & 3397 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3547) Then thes3nv="What do BRIDGE Participants Do?" Response.write(" What do BRIDGE Participants Do? ") else Response.write(" What do BRIDGE Participants Do? ") end if if Int(CurrentPageID) = Int(3546) Then thes3nv="SoTL Selected Readings" Response.write(" SoTL Selected Readings ") else Response.write(" SoTL Selected Readings ") end if if Int(CurrentPageID) = Int(3545) Then thes3nv="Participant Examples" Response.write(" Participant Examples ") else Response.write(" Participant Examples ") end if if Int(CurrentPageID) = Int(3544) Then thes3nv="BRIDGE and the Brain" Response.write(" BRIDGE and the Brain ") else Response.write(" BRIDGE and the Brain ") end if if Int(CurrentPageID) = Int(3543) Then thes3nv="CASTL Inquiry Project" Response.write(" CASTL Inquiry Project ") else Response.write(" CASTL Inquiry Project ") end if end if' DidRender = False DidRender = True 'Nesting = "/17331/" if Int(CurrentPageID) <> Int(17331) Then Response.Write(" ") %> <% Response.Write("Study Abroad") %> <% Response.Write(" ") else %> Study Abroad <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Study Abroad" subsecLink = "/2559_17331.htm" end if NodeID = 17331 Response.write("") if InStr(1, BreadCrumb, "/" & 17330 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/11632/" if Int(CurrentPageID) <> Int(11632) Then Response.Write(" ") %> <% Response.Write("Statistical Software") %> <% Response.Write(" ") else %> Statistical Software <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Statistical Software" subsecLink = "/2559_11632.htm" end if NodeID = 11632 Response.write("") if InStr(1, BreadCrumb, "/" & 11631 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3138/" if Int(CurrentPageID) <> Int(3138) Then Response.Write(" ") %> <% Response.Write("Quick Tips") %> <% Response.Write(" ") else %> Quick Tips <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Quick Tips" subsecLink = "/2559_3138.htm" end if NodeID = 3138 Response.write("") if InStr(1, BreadCrumb, "/" & 13251 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write(" ") end if if SelectedItem <> "OneStop" then Response.write("") else Response.write("") Response.write(" ") %> <% ' DidRender = False DidRender = True 'Nesting = "/15171/" if Int(CurrentPageID) <> Int(15171) Then Response.Write(" ") %> <% Response.Write("Faculty Handbook") %> <% Response.Write(" ") else %> Faculty Handbook <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Faculty Handbook" subsecLink = "/2559_15171.htm" end if NodeID = 15171 Response.write("") if InStr(1, BreadCrumb, "/" & 15170 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% end if' DidRender = False DidRender = True 'Nesting = "/5870/" if Int(CurrentPageID) <> Int(5870) Then Response.Write(" ") %> <% Response.Write("Teaching and Learning Center") %> <% Response.Write(" ") else %> Teaching and Learning Center <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Teaching and Learning Center" subsecLink = "/2559_5870.htm" end if NodeID = 5870 Response.write("") if InStr(1, BreadCrumb, "/" & 5869 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(13330) Then thes3nv="Assessment Initiative" Response.write(" Assessment Initiative ") else Response.write(" Assessment Initiative ") end if if Int(CurrentPageID) = Int(5874) Then thes3nv="Location & Facilities" Response.write(" Location & Facilities ") else Response.write(" Location & Facilities ") end if if Int(CurrentPageID) = Int(5878) Then thes3nv="Intellectual Property for Teaching and Learning" Response.write(" Intellectual Property for Teaching and Learning ") else Response.write(" Intellectual Property for Teaching and Learning ") end if if Int(CurrentPageID) = Int(5877) Then thes3nv="Faculty Support" Response.write(" Faculty Support ") else Response.write(" Faculty Support ") end if if Int(CurrentPageID) = Int(5883) Then thes3nv="SELECT" Response.write(" SELECT ") else Response.write(" SELECT ") end if if Int(CurrentPageID) = Int(5881) Then thes3nv="CONNECT-ED" Response.write(" CONNECT-ED ") else Response.write(" CONNECT-ED ") end if if Int(CurrentPageID) = Int(5882) Then thes3nv="IDEAS" Response.write(" IDEAS ") else Response.write(" IDEAS ") end if if Int(CurrentPageID) = Int(5876) Then thes3nv="Teaching and Learning Links" Response.write(" Teaching and Learning Links ") else Response.write(" Teaching and Learning Links ") end if if Int(CurrentPageID) = Int(6802) Then thes3nv="Upcoming Events (Info)" Response.write(" Upcoming Events (Info) ") else Response.write(" Upcoming Events (Info) ") end if if Int(CurrentPageID) = Int(5884) Then thes3nv="Writing Across the Curriculum" Response.write(" Writing Across the Curriculum ") else Response.write(" Writing Across the Curriculum ") end if if Int(CurrentPageID) = Int(16925) Then thes3nv="Distance Learning" Response.write(" Distance Learning ") else Response.write(" Distance Learning ") end if end if' DidRender = False DidRender = True 'Nesting = "/3398/" if Int(CurrentPageID) <> Int(3398) Then Response.Write(" ") %> <% Response.Write("BRIDGE") %> <% Response.Write(" ") else %> BRIDGE <% OnSecondLevel = True end if if not HaveHead then subsecHead = "BRIDGE" subsecLink = "/2559_3398.htm" end if NodeID = 3398 Response.write("") if InStr(1, BreadCrumb, "/" & 3397 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True %> <% if Int(CurrentPageID) = Int(3547) Then thes3nv="What do BRIDGE Participants Do?" Response.write(" What do BRIDGE Participants Do? ") else Response.write(" What do BRIDGE Participants Do? ") end if if Int(CurrentPageID) = Int(3546) Then thes3nv="SoTL Selected Readings" Response.write(" SoTL Selected Readings ") else Response.write(" SoTL Selected Readings ") end if if Int(CurrentPageID) = Int(3545) Then thes3nv="Participant Examples" Response.write(" Participant Examples ") else Response.write(" Participant Examples ") end if if Int(CurrentPageID) = Int(3544) Then thes3nv="BRIDGE and the Brain" Response.write(" BRIDGE and the Brain ") else Response.write(" BRIDGE and the Brain ") end if if Int(CurrentPageID) = Int(3543) Then thes3nv="CASTL Inquiry Project" Response.write(" CASTL Inquiry Project ") else Response.write(" CASTL Inquiry Project ") end if end if' DidRender = False DidRender = True 'Nesting = "/17331/" if Int(CurrentPageID) <> Int(17331) Then Response.Write(" ") %> <% Response.Write("Study Abroad") %> <% Response.Write(" ") else %> Study Abroad <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Study Abroad" subsecLink = "/2559_17331.htm" end if NodeID = 17331 Response.write("") if InStr(1, BreadCrumb, "/" & 17330 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/11632/" if Int(CurrentPageID) <> Int(11632) Then Response.Write(" ") %> <% Response.Write("Statistical Software") %> <% Response.Write(" ") else %> Statistical Software <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Statistical Software" subsecLink = "/2559_11632.htm" end if NodeID = 11632 Response.write("") if InStr(1, BreadCrumb, "/" & 11631 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if' DidRender = False DidRender = True 'Nesting = "/3138/" if Int(CurrentPageID) <> Int(3138) Then Response.Write(" ") %> <% Response.Write("Quick Tips") %> <% Response.Write(" ") else %> Quick Tips <% OnSecondLevel = True end if if not HaveHead then subsecHead = "Quick Tips" subsecLink = "/2559_3138.htm" end if NodeID = 3138 Response.write("") if InStr(1, BreadCrumb, "/" & 13251 & "/") > 0 or InStr(1, BreadCrumb, "/" & NodeID & "/") > 0 Then HaveHead = True end if Response.write(" ") end if %> Webmail for Faculty and Staff Blackboard MyInfo eADVISING Technology Help Desk Facilities Work Orders Oracle Calendar RosettaStone <% function GetNavigationPath() NavPath = "" CurrentID = "15217" CurrentGUID = "BE7781F29F8845308B6C7346612E1B08" 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 %>