<%= WebsiteTitle %>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim MenuId1, MenuId2, DeleteMenuId, AddToParentId DeleteMenuId = request.querystring("DeleteMenuId") AddToParentId = request.querystring("AddToParentId") UpdateMenuId = request.form("SelectedMenuId") MenuName = request.form("MenuName") MenuDesc = request.form("MenuDesc") Subject = request.form("Subject") MenuOrder = request.form("MenuOrder") IsLive = request.form("IsLive") DeleteContentId = request.querystring("DeleteContentId") AddContentId = request.form("AddContentId") Action = request.querystring("action") If Request.QueryString("MenuId1") = "" then 'this value has to be 2 becasue 0 is main menu MenuId1 = 1 Else MenuId1 = Request.QueryString("MenuId1") End if If Request.QueryString("MenuId2") = "" then MenuId2 = "" Uid = MenuId1 Else MenuId2 = Request.QueryString("MenuId2") Uid = MenuId2 end if Select Case Action Case "DeleteMenu" : Call Delete_Menu(DeleteMenuId) Case "AddMenu" : Call Add_Menu(AddToParentId) Case "UpdateMenu" : Call Update_Menu(UpdateMenuId, MenuName, MenuDesc, IsLive, MenuOrder, Subject) Case "DeleteContent" : Call Delete_Content(DeleteContentId) Case "DeleteContent2" : Call Delete_Content2(DeleteContentId) Case "AddContent" : Call Add_Content(Uid, AddContentId) End Select %> <%= WebsiteTitle %>

| Main Admin menu | " class="Hyperlink1">Refresh Screen | View Website

Menu Section

<% query = "SELECT Menu.* "_ &"FROM Menu "_ &"WHERE (((Menu.ParentId)=1)) "_ &"ORDER BY Menu.MenuOrder; " Set RSconn = conn.execute(query) do until RSconn.EOF %> <% End If %> <% If Session.Contents("Level") = "Admin" Then %> <% End If %>

<%= RSconn("Id")%>

" type="text" class="text-field3-outline" value="<%= RSconn("MenuName")%>" readonly="yes">

<% If Session.Contents("Level") = "Admin" Then %> ?MenuId1=<%= MenuId1 %>&DeleteMenuId=<%= RSconn("Id") %>&action=DeleteMenu', 'You are about to delete this newsletter, click Ok to continue')">

&SelectedMenuId=<%= RSconn("Id") %>">

<% if RSconn("Id") = cint(MenuId1) then query = "SELECT Menu.* "_ &"FROM Menu "_ &"WHERE (((Menu.ParentId)=" & MenuId1 & ")) "_ &"ORDER BY Menu.MenuOrder; " Set RSconn2 = conn.execute(query) do until RSconn2.EOF %>

<% End If %> <% End If %>

<%= RSconn2("Id")%>

" value="<%= RSconn2("MenuName")%>" readonly="yes">

<% If Session.Contents("Level") = "Admin" Then %> ?MenuId1=<%= MenuId1 %>&DeleteMenuId=<%= RSconn2("Id") %>&action=DeleteMenu', 'You are about to delete this section, click Ok to continue')">

<% If Session.Contents("Level") = "Admin" Then %> ">

<% RSconn2.movenext loop %> <% If Session.Contents("Level") = "Admin" Then %> <% End If %> <% end if RSconn.movenext loop %>

<% If Session.Contents("Level") = "Admin" Then %> <% End If %>

Attach Existing Content

?MenuId1=<%= MenuId1 %>&MenuId2=<%= MenuId2 %>&action=AddContent" method="post" name="CntForm"> Select Existing content to add: <% query = "SELECT Content.Contentid, Content.ContentName, Content.ContentBody "_ &"FROM Content "_ ' a test ' query2 = "SELECT Menu.*, Menu.ParentId, "_ ' &"FROM Menu "_ ' &"WHERE (((Menu.ParentId)=4)); " Set RSconn = conn.execute(query) %>

Content New

Content attached to selected menu or submenu

<% query = "SELECT Menu_Content.Id, Content.Contentid, Content.ContentName, " _ & "Content.ContentBody, Menu_Content.ContentOrder " _ & "FROM Content INNER JOIN Menu_Content ON Content.Contentid = Menu_Content.Contentid " _ & "WHERE Menu_Content.Menuid=" & Uid Set RSconn = conn.execute(query) do until RSconn.EOF Request.QueryString("Contentid") %> " readonly="yes"> <% If Session.Contents("Level") = "Admin" Then %> ?MenuId1=<%= MenuId1 %>&MenuId2=<%= MenuId2 %>&DeleteContentId=<%= RSconn("Id") %>&action=DeleteContent', 'You are about to delete this content from this menu item, click Ok to continue')">

<% End If %> &Action=EditContent">

<% RSconn.movenext loop RSconn.close set RSconn = nothing %>

<%= end_conna() %>