<%
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
%>
Latest Press Releases
<%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("2010-04-13")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Articles to Address Business Issues Affecting Fuel Retailers and Wholesalers
<%
try
pgdt = CDate("2010-03-01")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
KSS Expands Sales Organization to Address Increasing Demand for its Pricing Products and Services
<%
try
pgdt = CDate("2010-02-16")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
KSS Enters Brazilian Fuels Market
Partnership with ValorArt will help Brazilian fuels suppliers increase profitability through suite of pricing solutions and services
<%
try
pgdt = CDate("2010-02-09")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
The Pantry Chooses KSS for Fuel Price Management
Convenience Retailer to Install KSS Solutions at 1,600 Sites
<%
try
pgdt = CDate("2010-02-01")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
Wayne Oil Co. Chooses KSS to Manage and Optimize Fuel Pricing
PriceNet and PriceNet Web to be used at 13 sites across Southeast U.S.
<%
try
pgdt = CDate("2010-01-19")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
KSS Retains Elite Gold Microsoft Partnership
for Seventh Consecutive Year
<%
try
pgdt = CDate("2010-01-11")
catch ex as system.exception
pgdt = now
end try
response.write(right("0" & day(pgdt),2) & " " & monthname(month(pgdt)) & " " & year(pgdt))
%>
New Version of KSS Ltd.’s RackPrice Fuel Price Management Software for Fuel Wholesalers Certified as “Powered by SAP NetWeaver®”
<%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
%>
