<%
if Session("Logged") = Empty or Not IsNumeric(Session("Logged")) then
Session.Abandon()
response.redirect("default.asp?cache="& Server.URLEncode(Now()))
end if
if request.ServerVariables("REQUEST_METHOD") = "POST" then
if request("project_changed") <> empty then
' We have select a new hotel to administor so we update the ActiveHotel session and reload the entire frame set
session("ActiveProject") = CInt(request("project_changed"))
if CInt(request("project_changed")) = -99 then
response.Redirect("frame_main.asp?cache="&now())
else
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()
strMainMenu = "CMS_Menu/Menu.asp?MenuSectionID=1&cache=" & server.URLEncode(now)
strGenMenu = "CMS_Menu/generate_Menu.asp?cache=" & server.URLEncode(now)
strAuxiliaryMenu = "CMS_AuxMenu/Menu.asp?MenuSectionID=2&cache=" & server.URLEncode(now)
strGenerateMainMenu = "CMS_Menu/Generate_Menu.asp?MenuSectionID=1&cache=" & server.URLEncode(now)
'strAuxiliaryMenu = "CMS_Menu/AuxiliaryMenu.asp?MenuSectionID=1&cache=" & server.URLEncode(now)
strMaintainPages = "CMS_Page/list_news.asp?cache="& now()
strAddPages = "CMS_Page/add_news.asp?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?cache=" & server.URLEncode(now)
strAddNews = "News/add_News.asp?cache=" & server.URLEncode(now)
strAddProject = "Project/add_Project.asp?cache=" & server.URLEncode(now)
strMaintainEventCategory = "EventCategory/default.asp?cache=" & server.URLEncode(now)
strMaintainEvents = "Events/events.asp?cache=" & server.URLEncode(now)
strPastEvents = "Events/pastevents.asp?cache=" & server.URLEncode(now)
strAddEvent = "Events/add_events.asp?cache=" & server.URLEncode(now)
strAddEventCategory = "Events/add_category.asp?cache=" & server.URLEncode(now)
strFileCat = "CMS_Doc/maintain_cat.asp?cache=" & server.URLEncode(now)
strAddFileCat = "CMS_Doc/add_cat.asp?cache=" & server.URLEncode(now)
strMaintainLibrary = "CMS_Doc/file.asp?buster="& server.URLEncode(now)
strUploadLibrary = "CMS_Doc/add_file.asp?buster="& server.URLEncode(now)
strGallery = "gallery/list_Gallery.asp?ProjectID="&i_ActiveProjectID&"&cache="& now()
strAdminitrators = strDir & "Admins/Admins.asp?buster="& server.URLEncode(now)
strAddAdministrators = strDir & "Admins/add_Admin.asp?buster="& server.URLEncode(now)
strMaintainGalleries = strDir & "gallery/list_gallery.asp?ModuleID="&s_Galleries&"&cache=" & server.URLEncode(now)
strMaintainDiary = strDir & "Diary/News.asp?buster="& server.URLEncode(now)
strFeatures = strDir & "Features/default.asp?buster="& server.URLEncode(now)
strMaintainNews = "News/News.asp?cache=" & server.URLEncode(now)
strMaintainFiles = "CMS_Doc/Document.asp?buster="& server.URLEncode(now)
strUploadFiles = "CMS_Doc/add_Document.asp?buster="& server.URLEncode(now)
%>