<% Response.Buffer=true %> <% dim openNodes dim newPage_id dim returnURL dim pos openNodes = request.querystring("openNodes") newPage_id = request.querystring("newPage_id") pos = InStr(session("openNodeString"),"|" & this_page_id & "|") '-- ---------------------------------------------- '-- FIRST DEAL WITH CHANGES TO THE IA '-- ADDING OR DELERTING PAGES '-- ---------------------------------------------- '-- ---------------------------------------------- '-- IF MODE IS "addNewNode" CHECK THAT THE PARENT IS EXPANDED '-- ---------------------------------------------- if mode = "addNewNode" then openNodes = collectAncestors(this_page_id,"") returnURL = "ia.asp?page_id=" & newPage_id & "&mode=EditPage" '-- ---------------------------------------------- '-- IF MODE IS "deleteNode" REMOVE THE NODE IF IT IS PRESENT '-- ---------------------------------------------- elseif mode = "deleteNode" then if pos > 0 then openNodes = left(openNodes,pos) end if returnURL = "ia.asp" '-- ---------------------------------------------- '-- IN OTHER CASES WE JUST NEED TO CHANGE THE '-- VALUE OF THE OPEN NODE STRING '-- ---------------------------------------------- else '-- ---------------------------------------------- '-- IF MODE IS NULL THEN JUST UPDATE THE TREE AND '-- GO BACK WHERE YOU CAME FROM '-- ---------------------------------------------- if pos > 0 then openNodes = left(openNodes,pos) end if returnURL = Request.ServerVariables("HTTP_REFERER") end if 'response.write openNodes 'response.write("
") 'response.write returnURL session("openNodeString") = openNodes response.redirect(returnURL) %>