%
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
%>
News 2008
<%if right(Request.ServerVariables("URL").ToLower,12)="default.aspx" then
dim pgdt as date
dim isDateDir as boolean = false
dim thisURL = left(Request.ServerVariables("URL"),instrrev(Request.ServerVariables("URL"),"/")-1)
dim getDir = mid(thisURL, instrrev(thisURL,"/")+1)
dim checkno = replace(replace(getDir,"-",""),"_","")
dim getYr
dim getMn
if len(checkno) = 6 and isNumeric(checkno) then
isDateDir = true
getYr = left(checkno, 4)
getMn = mid(checkno, 5)
end if
%>
<%
try
pgdt = CDate("2008-12-08")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Ricker Oil Expands KSS PriceNet Usage
Agreement Broadens to include 24 new Retail Locations
<%
try
pgdt = CDate("2008-12-01")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Top US c-store chain publicly acknowledges KSS contribution to success
Susser Holdings announces rollout of KSS PriceNet to Stripes stores
<%
try
pgdt = CDate("2008-10-21")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Delivers more efficient pricing and contract management for fuels wholesalers and jobbers
<%
try
pgdt = CDate("2008-10-06")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Agreement Broadens to include new Retail Locations
<%
try
pgdt = CDate("2008-10-03")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
KSS Mapping presents key pricing data overlaid on geographic displays
<%
try
pgdt = CDate("2008-09-25")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Growth highlights value of KSS fuels pricing solutions in volatile fuel market
<%
try
pgdt = CDate("2008-09-23")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Retailers have voted for KSS PriceNet to win the best new product contest
<%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
%>