<%
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 2009
02 June, 2009
Avoid Inadvertently Gouging Your Customers
28 April, 2009
Turn up the Volume for Higher Profits
02 March, 2009
Guarnateed profit in an uncertain economy
21 January, 2009
Re-evaluate the competitive landscape to stay on top of your game
12 January, 2009
Happy New Year and a resolution for a quick economic recovery in 2009
<% 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
%>