<%@LANGUAGE="VBSCRIPT"%> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Abandon MM_logoutRedirectPage = "default.asp" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="SA" MM_authFailedURL="default.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% If Trim(Request("update")) = "1" Then Dim UPDPages__PAGEID UPDPages__PAGEID = "" if(Request("PAGEID") <> "") then UPDPages__PAGEID = Request("PAGEID") Dim UPDPages__PageName UPDPages__PageName = "" if(Request("PageName") <> "") then UPDPages__PageName = Request("PageName") Dim UPDPages__PageDescription UPDPages__PageDescription = "" if(Request("PageDescription") <> "") then UPDPages__PageDescription = Request("PageDescription") Dim UPDPages__PageTitle UPDPages__PageTitle = "" if(Request("PageTitle") <> "") then UPDPages__PageTitle = Request("PageTitle") Dim UPDPages__METAKeywords UPDPages__METAKeywords = "" if(Request("METAKeywords") <> "") then UPDPages__METAKeywords = Request("METAKeywords") Dim UPDPages__METADescription UPDPages__METADescription = "" if(Request("METADescription") <> "") then UPDPages__METADescription = Request("METADescription") Dim UPDPages__BGColor UPDPages__BGColor = "" if(Request("BGColor") <> "") then UPDPages__BGColor = Request("BGColor") Dim UPDPages__TextColor UPDPages__TextColor = "" if(Request("TextColor") <> "") then UPDPages__TextColor = Request("TextColor") Dim UPDPages__LinksColor UPDPages__LinksColor = "" if(Request("LinksColor") <> "") then UPDPages__LinksColor = Request("LinksColor") Dim UPDPages__VisitedLinksColor UPDPages__VisitedLinksColor = "" if(Request("VisitedLinksColor") <> "") then UPDPages__VisitedLinksColor = Request("VisitedLinksColor") Dim UPDPages__ActiveLinksColor UPDPages__ActiveLinksColor = "" if(Request("ActiveLinksColor") <> "") then UPDPages__ActiveLinksColor = Request("ActiveLinksColor") Dim UPDPages__Headline UPDPages__Headline = "" if(Request("Headline") <> "") then UPDPages__Headline = Request("Headline") Dim UPDPages__BodyText UPDPages__BodyText = "" if(Request("BodyText") <> "") then UPDPages__BodyText = Request("BodyText") Dim UPDPages__FooterText UPDPages__FooterText = "" if(Request("FooterText") <> "") then UPDPages__FooterText = Request("FooterText") Dim UPDPages__Image1 UPDPages__Image1 = "" if(Request("Image1") <> "") then UPDPages__Image1 = Request("Image1") Dim UPDPages__Image2 UPDPages__Image2 = "" if(Request("Image2") <> "") then UPDPages__Image2 = Request("Image2") Dim UPDPages__Image3 UPDPages__Image3 = "" if(Request("Image3") <> "") then UPDPages__Image3 = Request("Image3") Dim UPDPages__Active UPDPages__Active = "0" if(Request("Active") <> "") then UPDPages__Active = Request("Active") set UPDPages = Server.CreateObject("ADODB.Command") UPDPages.ActiveConnection = MM_ADOSQL_STRING UPDPages.CommandText = "dbo._SP_UPDATE_PAGES_ADM" UPDPages.Parameters.Append UPDPages.CreateParameter("@PAGEID", 3, 1,4,UPDPages__PAGEID) UPDPages.Parameters.Append UPDPages.CreateParameter("@PageName", 129, 1,50,UPDPages__PageName) UPDPages.Parameters.Append UPDPages.CreateParameter("@PageDescription", 129, 1,400,UPDPages__PageDescription) UPDPages.Parameters.Append UPDPages.CreateParameter("@PageTitle", 129, 1,250,UPDPages__PageTitle) UPDPages.Parameters.Append UPDPages.CreateParameter("@METAKeywords", 129, 1,4000,UPDPages__METAKeywords) UPDPages.Parameters.Append UPDPages.CreateParameter("@METADescription", 129, 1,4000,UPDPages__METADescription) UPDPages.Parameters.Append UPDPages.CreateParameter("@BGColor", 129, 1,50,UPDPages__BGColor) UPDPages.Parameters.Append UPDPages.CreateParameter("@TextColor", 129, 1,50,UPDPages__TextColor) UPDPages.Parameters.Append UPDPages.CreateParameter("@LinksColor", 129, 1,50,UPDPages__LinksColor) UPDPages.Parameters.Append UPDPages.CreateParameter("@VisitedLinksColor", 129, 1,50,UPDPages__VisitedLinksColor) UPDPages.Parameters.Append UPDPages.CreateParameter("@ActiveLinksColor", 129, 1,50,UPDPages__ActiveLinksColor) UPDPages.Parameters.Append UPDPages.CreateParameter("@Headline", 129, 1,2000,UPDPages__Headline) UPDPages.Parameters.Append UPDPages.CreateParameter("@BodyText", 129, 1,8000,UPDPages__BodyText) UPDPages.Parameters.Append UPDPages.CreateParameter("@FooterText", 129, 1,4000,UPDPages__FooterText) UPDPages.Parameters.Append UPDPages.CreateParameter("@Image1", 129, 1,100,UPDPages__Image1) UPDPages.Parameters.Append UPDPages.CreateParameter("@Image2", 129, 1,100,UPDPages__Image2) UPDPages.Parameters.Append UPDPages.CreateParameter("@Image3", 129, 1,100,UPDPages__Image3) 'If Trim(Request("Active")) = "" Then UPDPages__Active UPDPages.Parameters.Append UPDPages.CreateParameter("@Active", 11, 1,1,UPDPages__Active) UPDPages.CommandType = 4 UPDPages.CommandTimeout = 0 UPDPages.Prepared = true UPDPages.Execute() Response.Redirect "menu.asp?msg=" & Server.URLEncode("Your changes have been saved.") End If %> <% set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_ADOSQL_STRING Command1.CommandText = "dbo._SP_SELECT_PAGES_ADM" Command1.CommandType = 4 Command1.CommandTimeout = 0 Command1.Prepared = true set rsPAGES = Command1.Execute rsPAGES_numRows = 0 %> <% set Command2 = Server.CreateObject("ADODB.Command") Command2.ActiveConnection = MM_ADOSQL_STRING Command2.CommandText = "dbo._SP_SELECT_IMAGES_ADM" Command2.CommandType = 4 Command2.CommandTimeout = 0 Command2.Prepared = true Command2.Parameters.Append Command2.CreateParameter("RETURN_VALUE", 3, 4) set rsIMAGES = Command2.Execute rsIMAGES_numRows = 0 %> <% set Command3 = Server.CreateObject("ADODB.Command") Command3.ActiveConnection = MM_ADOSQL_STRING Command3.CommandText = "dbo._SP_SELECT_COLORS_ADM" Command3.CommandType = 4 Command3.CommandTimeout = 0 Command3.Prepared = true Command3.Parameters.Append Command3.CreateParameter("RETURN_VALUE", 3, 4) set rsCOLORS = Command3.Execute rsCOLORS_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsPAGES_numRows = rsPAGES_numRows + Repeat1__numRows %> ADMIN CONTROL INTERFACE
     
    Main Menu - Welcome Click here to go to your custom modules.
 
<% Dim EditCounter: EditCounter = 1 While ((Repeat1__numRows <> 0) AND (NOT rsPAGES.EOF)) Dim BGColor if BGColor = "#E8F8FF" then BGColor = "#FFFFFF" else BGColor = "#E8F8FF" end if %> <% EditCounter = EditCounter + 1 Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsPAGES.MoveNext() Wend %>
     1. Select page, 2.Click on Edit to make changes to that particular page.
      <% =Request("msg")%>
   Page Name    Inside    Status   
  Open to Edit: <%=rsPAGES(" BORDER="0">  ', <% =rsPAGES("PAGEID")%>);">Delete <% =rsPAGES( ?!" BORDER="0">      <%= rsPAGES.Fields.Item("PageName").Value %>    <%= MakeShort(StripHTML(rsPAGES.Fields.Item("Headline").Value), 32) %>        <% If rsPAGES("Active") = False Then %> This Page is inactive. <% Else %> This page is live. <% End If %>
     Description: <%= MakeShort(rsPAGES.Fields.Item("PageDescription").Value, 123) %>