<%
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
%>
Corporate Information
Knowledge Support Systems (KSS) Ltd, a company registered in England and Wales, has its registered office at:
St James’s Buildings
79 Oxford Street
Manchester, M1 6SS
United Kingdom
with Company Registration Number 2800886 and VAT Registration No. 915 9830 96
Knowledge Support Systems (KSS) Inc. is a wholly owned subsidiary of KSS Ltd with registered office address at:
Suite 201
25-B Hanover Road
Florham Park
NJ 07932
United States of America
with Corporation Number 0100825384 registered in the State of New Jersey.
<% 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
%>