%@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
1.
Select page, 2.Click on Edit to make changes to that particular page.
<% =Request("msg")%>
Page
Name
Inside
Status
<%
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
%>