<% response.cachecontrol = "no-cache" %> <% timeout(1) set con = server.createobject("ADODB.Connection") con.open Application("CString") if request.form("Posted") = "Y" then if request("MakeAssignment") <> empty then strSQL = "INSERT INTO RelatedNews(ContentID, FileID) VALUES("& request("id") &", "& request("MakeAssignment") &")" con.execute(strSQL) end if con.close set con = nothing response.redirect("assign_content.asp?menuID="& request("menuID") &"&id="& request("id")) elseif request.form("Posted") = "Y2" then if request("MakeAssignment") <> empty then strSQL = "INSERT INTO RelatedNews(ContentID, FileID) VALUES("& request("MakeAssignment") &", "& request("id") &")" con.execute(strSQL) end if con.close set con = nothing response.redirect("assign_content.asp?menuID="& request("menuID") &"&id="& request("id")) elseif request("deleteID") <> empty and IsNumeric(request("deleteID")) and request("id") <> empty and IsNumeric(request("id")) then if request("LinkFrom") = "TO" then strSQL = "DELETE FROM RelatedNews WHERE ContentID = "& request("deleteID") &" AND FileID = "& request("id") else strSQL = "DELETE FROM RelatedNews WHERE ContentID = "& request("id") &" AND FileID = "& request("deleteID") end if con.execute(strSQL) con.close set con = nothing response.redirect("assign_content.asp?menuID="& request("menuID") &"&id="& request("id")) end if %> <%if request("id") <> empty and IsNumeric(request("id")) and request("menuID") <> empty and IsNumeric(request("menuID")) then strSQL = "SELECT m.MenuID, m.MenuName, n.NewsID, n.Heading FROM Menu m, News n WHERE m.MenuID = "& request("menuID") &" AND m.NewsID = n.NewsID AND n.NewsID = "& request("id") set rsNews = con.execute(strSQL) if not rsNews.EOF then rsNews.movefirst intMenuID = rsNews("MenuID") strMenuName = rsNews("MenuName") intNewsID = rsNews("NewsID") strHeading = rsNews("Heading") %>

<%=strMenuName%> / <%=strHeading%>

<% strSQL = "SELECT n.NewsID, n.Heading FROM News n, RelatedNews r WHERE n.NewsID = r.FileID AND r.ContentID = "& request("id") &" ORDER BY n.Heading" set rsAssigned = con.execute(strSQL) if not rsAssigned.EOF then%> <%counterx=0%> <%do while not rsAssigned.EOF%> <%rsAssigned.movenext%> <%loop%> <%end if%> <%set rsAssigned = nothing%> <% strSQL = "SELECT NewsID, Heading FROM News WHERE NewsID <> "& request("id") &" AND NewsID NOT IN (SELECT FileID FROM RelatedNews WHERE ContentID = "& request("id") &") ORDER BY Heading" set rsUnassigned = con.execute(strSQL) %> "> "> Related Pages/Documents present on this Page. <%=rsAssigned("Heading")%> &id=<%=request("id")%>&deleteID=<%=rsAssigned("NewsID")%>','_self');" name="Button" value=" Remove " class="Button"> -- Select -- <%do while not rsUnassigned.EOF%> "><%=rsUnassigned("Heading")%> <%rsUnassigned.movenext%> <%loop%> <%set rsUnassigned = nothing%> <% strSQL = "SELECT n.NewsID, n.Heading FROM News n, RelatedNews r WHERE n.NewsID = r.ContentID AND r.FileID = "& request("id") &" ORDER BY n.Heading" set rsAssigned = con.execute(strSQL) if not rsAssigned.EOF then%><%counterx=0%> <%do while not rsAssigned.EOF%> <%rsAssigned.movenext%> <%loop%> <%end if%> <%set rsAssigned = nothing%> <% strSQL = "SELECT NewsID, Heading FROM News WHERE NewsID <> "& request("id") &" AND FileName IS NULL AND NewsID NOT IN (SELECT ContentID FROM RelatedNews WHERE FileID = "& request("id") &") ORDER BY Heading" set rsUnassigned = con.execute(strSQL) %> "> "> Links to this Page are present on these Pages... <%=rsAssigned("Heading")%> &id=<%=request("id")%>&deleteID=<%=rsAssigned("NewsID")%>&LinkFrom=TO','_self');" name="Button" value=" Remove " class="Button"> -- Select -- <%do while not rsUnassigned.EOF%> "><%=rsUnassigned("Heading")%> <%rsUnassigned.movenext%> <%loop%> <%set rsUnassigned = nothing%>

<% end if set rsNews = nothing end if%>

<% con.close set con = nothing %>