<% 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 s_Frame = Request("Frame") if s_Frame = Empty then s_Frame = Replace(Request("Frame_New"), "'", "''") end if strSQL = "INSERT INTO CMS_PageRelatedLinks(MainPageID, SubPageID, Frame) VALUES("& request("MakeAssignment") &", "& request("id") &", '"& s_Frame &"')" con.execute(strSQL) end if con.close set con = nothing response.redirect("assign_doc_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 strSQL = "DELETE FROM CMS_PageRelatedLinks WHERE MainPageID = "& request("deleteID") &" AND SubPageID = "& request("id") con.execute(strSQL) con.close set con = nothing response.redirect("assign_doc_content.asp?id="& request("id") &"&FromOrphan="& Request("FromOrphan")) end if %> <% 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") %>

<%=strHeading%>

<% strSQL = "SELECT n.PageID, n.Heading, r.Frame FROM CMS_Page n, CMS_PageRelatedLinks r WHERE n.PageID = r.MainPageID AND r.SubPageID = "& 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%> <% if session("ActiveProject") = -99 or session("ActiveProject") = "" then s_ProjectID = "IS NULL" else s_ProjectID = " = " & session("ActiveProject") end if strSQL = "SELECT PageID, Heading FROM CMS_Page WHERE FileName IS NULL AND ProjectID "& s_ProjectID &" AND PageID NOT IN (SELECT MainPageID FROM CMS_PageRelatedLinks WHERE SubPageID = "& request("id") &") ORDER BY Heading" set rsUnassigned = con.execute(strSQL) %> "> "> Links to this Page are present on these Pages... <%=rsAssigned("Heading")%>    [ <%=rsAssigned("Frame")%> ] &deleteID=<%=rsAssigned("PageID")%>','_self');" name="Button" value=" Remove " class="Button"> -- Select -- <%do while not rsUnassigned.EOF%> "><%=rsUnassigned("Heading")%> <%rsUnassigned.movenext%> <%loop%> <%set rsUnassigned = nothing%> Frame : _self _top _parent _blank other Please specify:

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

<% con.close set con = nothing %>