<% Dim confirmMSG As String If Request.QueryString.Item("msg") <> "" Then confirmMSG = "?msg=" & Trim(Request.QueryString.Item("msg")) Else confirmMSG = "" End If 'This page is the "hub" that all the admin request go through. 'A request comes in here and is sent to the proper page, with the proper 'sessions removed or added. Select Case (Request.QueryString.Item("action")) Case "addcategory" : Response.Redirect("calendarcategories.aspx" & confirmMSG) Case "modifydeletecategory" : Response.Redirect("calendarcategories.aspx" & confirmMSG) Case "viewcategory" : Response.Redirect("calendarcategoriesview.aspx") Case "addsubcategory" : Response.Redirect("calendarsubcategory.aspx" & confirmMSG) Case "modifydeletesubcategory" : Response.Redirect("calendarsubcategory.aspx" & confirmMSG) Case "addlocation" : Response.Redirect("calendarlocations.aspx" & confirmMSG) Case "modifydeletelocation" : Response.Redirect("calendarlocations.aspx" & confirmMSG) Case "addbuilding" : Response.Redirect("calendarbuildingadd.aspx" & confirmMSG) Case "modifydeletebuilding" : Response.Redirect("calendarbuildings.aspx" & confirmMSG) Case "addroom" : Response.Redirect("calendarrooms.aspx" & confirmMSG) Case "modifydeleteroom" : Response.Redirect("calendarrooms.aspx" & confirmMSG) Case "reportfacilityutilization" : Response.Redirect("Reports_FacilityUtilization.aspx" & confirmMSG) Case "reportresources" : Response.Redirect("Reports_Resources.aspx" & confirmMSG) Case "reportdailyoperations" : Response.Redirect("Reports_DailyOperations.aspx" & confirmMSG) Case "reportsubscribers" : Response.Redirect("Reports_EventSubscribers.aspx" & confirmMSG) Case "reporteventtracking" : Response.Redirect("Reports_EventTracking.aspx" & confirmMSG) Case "reportcategorizations" : Response.Redirect("Reports_Categorization.aspx" & confirmMSG) Case "reportlocations" : Response.Redirect("Reports_Locations.aspx" & confirmMSG) Case "reportpageview" : Response.Redirect("Reports_PageViews.aspx" & confirmMSG) Case "viewlocation" : Response.Redirect("calendarlocationsview.aspx") Case "purge" : Response.Redirect("downloadevents.aspx" & confirmMSG) Case Else : Response.Redirect("adminwelcome.aspx" & confirmMSG) End Select %>