<% response.cachecontrol = "no-cache" Response.Expires = 0 %> <% timeout(1) set con = server.createobject("ADODB.Connection") con.open Application("CString") if request.form("Posted") = "Y" then if request("MakeAssignment") <> empty then s_Frame = Request("Frame") if s_Frame = Empty then s_Frame = Replace(Request("Frame_New"), "'", "''") end if if Instr(request("MakeAssignment"),"_P") then arrPageID = split(request("MakeAssignment"),"_P") iPageID = arrPageID(0) s_Type = "P" elseif Instr(request("MakeAssignment"),"_N") then arrPageID = split(request("MakeAssignment"),"_N") iPageID = arrPageID(0) s_Type = "N" end if strSQL = "INSERT INTO CMS_PageRelatedLinks(MainPageID, SubPageID, Frame,LinkType) VALUES("& request("id") &", "& iPageID &", '"& s_Frame &"','"&s_Type&"')" con.execute(strSQL) end if con.close set con = nothing response.redirect("assign_page_content.asp?id="& request("id") &"&FromOrphan="& request("FromOrphan")) elseif request.form("Posted") = "Y2" then if request("MakeAssignment") <> empty then s_Frame = Request("Frame") if s_Frame = Empty then s_Frame = Replace(Request("Frame_New"), "'", "''") end if if Instr(request("MakeAssignment"),"_P") then arrPageID = split(request("MakeAssignment"),"_P") iPageID = arrPageID(0) s_Type = "P" elseif Instr(request("MakeAssignment"),"_N") then arrPageID = split(request("MakeAssignment"),"_N") iPageID = arrPageID(0) s_Type = "N" end if strSQL = "INSERT INTO CMS_PageRelatedLinks(MainPageID, SubPageID, Frame,LinkType) VALUES("& iPageID &", "& request("id") &", '"& s_Frame &"','"&s_Type&"')" con.execute(strSQL) end if con.close set con = nothing response.redirect("assign_page_content.asp?id="& request("id") &"&FromOrphan="& request("FromOrphan")) elseif request("deleteID") <> empty and IsNumeric(request("deleteID")) and request("id") <> empty and IsNumeric(request("id")) then s_Type = request("LinkType") if request("LinkFrom") = "TO" then strSQL = "DELETE FROM CMS_PageRelatedLinks WHERE MainPageID = "& request("deleteID") &" AND SubPageID = "& request("id") &" AND LinkType = '"&s_Type&"'" else strSQL = "DELETE FROM CMS_PageRelatedLinks WHERE MainPageID = "& request("id") &" AND SubPageID = "& request("deleteID")&" AND LinkType = '"&s_Type&"'" end if con.execute(strSQL) con.close set con = nothing response.redirect("assign_page_content.asp?id="& request("id") &"&FromOrphan="& request("FromOrphan")) end if %> Website Administration <% if request("id") <> empty and IsNumeric(request("id")) then strSQL = "SELECT PageID, Heading FROM CMS_Page WHERE PageID = "& request("id") set rsPage = con.execute(strSQL) if not rsPage.EOF then rsPage.movefirst intPageID = rsPage("PageID") strHeading = rsPage("Heading") %> "> ">
Add a related page, file or document
<% %>

Select attachment:

Open in frame:

Related pages, files and documents (<%=strHeading%>)
<% strSQL = "SELECT n.PageID, n.Heading, n.FileName, r.Frame FROM CMS_Page n, CMS_PageRelatedLinks r WHERE n.PageID = r.SubPageID AND r.LinkType = 'P' AND r.MainPageID = "& request("id") &" ORDER BY n.Heading" set rsAssigned = con.execute(strSQL) strSQL = "SELECT n.NewsID as PageID, n.Title as Heading, '' as FileName, r.Frame FROM News n, CMS_PageRelatedLinks r WHERE n.NewsID = r.SubPageID AND r.LinkType = 'N' AND r.MainPageID = "& request("id") &" ORDER BY n.Heading" set rsNewsAssigned = con.execute(strSQL) if rsAssigned.EOF and rsNewsAssigned.EOF then %>

No related pages, files or documents found!

<% else %> <%conterx=0%> <% if NOT rsAssigned.EOF then %> <%do while not rsAssigned.EOF%> <%rsAssigned.movenext%> <%loop%> <% end if %> <% if NOT rsNewsAssigned.EOF then %> <%do while not rsNewsAssigned.EOF%> <%rsNewsAssigned.movenext%> <%loop%> <% end if %>
 

Related pages/files present on this page.
&id=<%=request("id")%>&deleteID=<%=rsAssigned("PageID")%>&FromOrphan=<%=request("FromOrphan")%>&LinkType=P','_self');">Delete

<%=rsAssigned("Heading")%> <%if IsNull(rsAssigned("FileName")) then%> (Page) <%else%> (Doc) <%end if%>    [ <%=rsAssigned("Frame")%> ]

&id=<%=request("id")%>&deleteID=<%=rsNewsAssigned("PageID")%>&FromOrphan=<%=request("FromOrphan")%>&LinkType=N','_self');">Delete

<%=rsNewsAssigned("Heading")%>(News)   [ <%=rsNewsAssigned("Frame")%> ]

<% end if set rsNewsAssigned = nothing %>

<% end if set rsPage = nothing end if %> <% con.close set con = nothing %>