<% Response.buffer = true %> Rider University - <% Response.Write GetHeadline() %>
Return to Rider University Homepage Directions | Campus Safety | Calendars | Directory | Libraries | Web Mail
Prospective StudentsCurrent StudentsAlumniCommunity PartnersGive to RiderFaculty & Staff
<% dim CurrentPageID, SelectedItem, Nesting CurrentPageID = 15565 SelectedItem = "Admissions" 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("
") end if if SelectedItem <> "About Rider" then %> About Rider <% else Response.write("") Response.write("
") end if if SelectedItem <> "Colleges Schools" then %> Colleges & Schools <% else Response.write("") Response.write("
") end if if SelectedItem <> "Academics" then Response.write("") else Response.write("") Response.write("
") end if if SelectedItem <> "Our Faculty" then Response.write("") else Response.write("") Response.write("
") end if if SelectedItem <> "Admissions" then Response.write("") else Response.write("") Response.write("
") end if if SelectedItem <> "Athletics" then Response.write("") else Response.write("") Response.write("
") end if if SelectedItem <> "Student Life" then Response.write("") else Response.write("") Response.write("
") end if if SelectedItem <> "News Center" then Response.write("") else Response.write("") Response.write("
") end if%>
Westminster College of the Arts
<% function GetNavigationPath() NavPath = "" CurrentID = "15565" CurrentGUID = "B435DEBDEAAD410F8DD1C71C54CA261D" 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 %>