%
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
%>
PriceNet Solution Benefits:
Maximize gross profit and meet volume targets - without affecting price image - all within your existing pricing policy
Reduce the time taken to respond to changes in competitor price or other market conditions
Quantify competitor strength by grade, by site and adjust pricing tactics to suit
Deal with new entrants without sacrificing volume or margin
Validate your current pricing policy against volume/margin goals - test changes before implementation
Eliminate costly pricing errors - achieve consistency across the networtk
Introduce pricing flexibility to capitalize on each site's unique sensitivities
Continuously monitor performance - highlight exceptions and deal with them quickly
Comprehensive reporting and analysis
Easily integrated into your exisiting systems
For more information please visit the Downloads section of this site or contact your local KSS office.
<% 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
%>