<%
if Session("Logged") = Empty or Not IsNumeric(Session("Logged")) then
Session.Abandon()
response.redirect("default.asp?cache="& Server.URLEncode(Now()))
end if
if Session("ActiveProject") = "" then
response.Redirect("frame_main.asp?cache="&now())
else
i_ActiveProjectID = Session("ActiveProject")
end if
if request.ServerVariables("REQUEST_METHOD") = "POST" then
if request("project_changed") <> empty and CInt(request("project_changed")) <> CInt(session("ActiveProject")) then
' We have select a new hotel to administor so we update the ActiveHotel session and reload the entire frame set
if CInt(request("project_changed")) = -99 then
session("ActiveProject") = -99
response.Redirect("frame_main.asp?cache="&now())
else
session("ActiveProject") = CInt(request("project_changed"))
response.Redirect("frame_project.asp?ProjectID="&CInt(request("project_changed"))&"&cache="&now())
end if
else
response.Redirect("frame_main.asp?cache="&now())
end if
end if
strHomePage = "welcome_main.asp?cache="&Now()
strMaintainMenu = "CMS_Menu/Menu.asp?MenuSectionID="&i_ActiveProjectID&"&ProjectID="&i_ActiveProjectID&"&cache="& now()
strMaintainPages = "CMS_Page/list_news.asp?ProjectID="&i_ActiveProjectID&"&cache="& now()
strAddPages = "CMS_Page/add_news.asp?ProjectID="&i_ActiveProjectID&"&cache="& now()
strMaintainFiles = "CMS_Doc/Document.asp?buster="& server.URLEncode(now)
strUploadFiles = "CMS_Doc/add_Document.asp?buster="& server.URLEncode(now)
strMaintainNews = "News/News.asp?ProjectID="&i_ActiveProjectID&"&cache="& now()
strAddNews = "News/add_News.asp?ProjectID="&i_ActiveProjectID&"&cache="& now()
strAddProject = "Project/add_Project.asp?ProjectID="&i_ActiveProjectID&"&cache="& now()
strGallery = "gallery/list_Gallery.asp?ProjectID="&i_ActiveProjectID&"&cache="& now()
%>