<% 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 %>
SoftwareAnalyticsConsultingPrice ManagementOur TechnologyAbout Us
<% 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 %>

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  

 

 

 

 

  

 

 

 

 

   

 

 

    

 

 

 

  

 

  

 

  

       
       
       
       
       
       
       
       
       
       
       
       
       

Content on this page requires a newer version of Adobe Flash Player.

Get Adobe Flash player
<% If thissect = "1" then %>
<% 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 %>