<% 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 strSQL = "INSERT INTO CMS_News_RelatedLinks(NewsID, PageID, Frame) VALUES("& request("id") &", "& request("MakeAssignment") &", '"& s_Frame &"')" con.execute(strSQL) end if con.close set con = nothing response.redirect("related_pages.asp?id="& request("id")) elseif request("deleteID") <> empty and IsNumeric(request("deleteID")) and request("id") <> empty and IsNumeric(request("id")) then strSQL = "DELETE FROM CMS_News_RelatedLinks WHERE NewsID = "& request("id") &" AND PageID = "& request("deleteID") con.execute(strSQL) con.close set con = nothing response.redirect("related_pages.asp?id="& request("id")) end if %> Website Administration <% if request("id") <> empty and IsNumeric(request("id")) then strSQL = "SELECT NewsID, Title FROM News WHERE NewsID = "& request("id") set rsNews = con.execute(strSQL) if not rsNews.EOF then rsNews.movefirst intNewsID = rsNews("NewsID") strTitle = rsNews("Title") %> ">
Add related pages, files or documents
<% strSQL = "SELECT PageID, Heading, FileName FROM CMS_Page WHERE Hide = 0 AND PageID NOT IN (SELECT PageID FROM CMS_News_RelatedLinks WHERE NewsID = "& request("id") &") ORDER BY Heading" set rsUnassigned = con.execute(strSQL) %>

Attachment:

Open in Frame:

Related pages, files and documents (<%=strTitle%>)
<% strSQL = "SELECT n.PageID, n.Heading, n.FileName, r.Frame FROM CMS_Page n, CMS_News_RelatedLinks r WHERE n.PageID = r.PageID AND r.NewsID = "& request("id") &" ORDER BY n.Heading" set rsAssigned = con.execute(strSQL) if rsAssigned.EOF then %>

No related pages, files or documents found!

<% else %> <%conterx=0%> <%do while not rsAssigned.EOF%> <%rsAssigned.movenext%> <%loop%>
  Related pages/documents present on this page.
&deleteID=<%=rsAssigned("PageID")%>','_self');">Delete

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

<% end if set rsAssigned = nothing %>

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