%
If IO.File.Exists(server.mappath("/includes/ksstop.aspx")) Then
server.execute("/includes/ksstop.aspx")
elseif IO.File.Exists(replace(server.mappath("/includes/ksstop.aspx"),"\CMS\","\test\")) Then
server.execute("/includestst/ksstop.aspx")
End if
%>
<%
Dim getSect as String
Dim thissect as String
getSect = lcase(Request.ServerVariables("PATH_INFO"))
select case true
case instr(getSect,"software") > 0
thissect = "1"
case instr(getSect,"analytics") > 0
thissect = "2"
case instr(getSect,"consulting") > 0
thissect = "3"
case instr(getSect,"pricemanagement") > 0
thissect = "4"
case instr(getSect,"ourtechnology") > 0
thissect = "5"
case instr(getSect,"aboutus") > 0
thissect = "6"
case else
thissect = "0"
end select
%>
<%
dim ActiveURL as string = Request.ServerVariables("URL")
Dim reSpl = split(ActiveURL,"/")
dim getTotalDir as string
getTotalDir = "/" + reSpl(0) + "/" + reSpl(1) + "/"
dim stFilePath as string = server.mappath(getTotalDir + "leftmenu.aspx")
If IO.File.Exists(stFilePath) Then
server.execute(getTotalDir + "leftmenu.aspx")
End if
%>
<%
If IO.File.Exists(server.mappath("/includes/kssbase.aspx")) Then
server.execute("/includes/kssbase.aspx")
elseif IO.File.Exists(replace(server.mappath("/includes/kssbase.aspx"),"\CMS\","\test\")) Then
server.execute("/includestst/kssbase.aspx")
End if
%>