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

News Articles 2008

 

CSP

The New Volatility by Angel Abcede and Samantha Oller

Fuel buyers ride out unprecedented spring,
count on bottom to fall out

Click here to read more

  

 

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