USI College of Nursing & Health Professions

<% ' ' rw's collection of garbage to correct links relative to ' site root. this REALLY needs to be inserted above the ' of the parent file, so that all site root relative ' links may benefit, but that is a battle for another day... ' ' dim security_rw, sever_rw, build_rw, protocol_rw, root_rw, directory_rw security_rw = Request.ServerVariables("HTTPS") build_rw = Request.ServerVariables("URL") sever_rw = Request.ServerVariables("SERVER_NAME") If (UCase(security_rw) = "ON") Then protocol_rw = "https://" Else protocol_rw = "http://" End If If (InStr(build_rw,"staging") >= 1) Then directory_rw = "/staging" Else directory_rw = "" End If If (InStr(sever_rw,"www.usi.edu") >= 1) Then root_rw = protocol_rw & sever_rw & "/health" & directory_rw Else root_rw = protocol_rw & sever_rw & directory_rw End If ' ' end rw's collection of garbage ' %>