<% 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 %>

CEO Corner 2008

 

24 December, 2008

Know How Fuel Affects the Store

 

03 December, 2008

Maximizing Total Site Volume during Recessionary Times

 

14 November, 2008

"How to Keep Your Sanity Pricing Fuel in Volatile Times"

 

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 %>