<% Response.Buffer=true %> <% dim objectSQL dim pageId dim currentDate dim object_type_id dim object_content_id dim object_sortorder currentDate = getCurrentDateTime() pageId = request.querystring("page_id") object_type_id = request.querystring("objecttypeid") object_content_id = request.querystring("objectcontentid") object_sortorder = request.querystring("objectsortorder") objectSQL = "DELETE from " & convertTypeIdToDbTable(object_type_id) & " WHERE " & convertTypeIdToDbColumn(object_type_id) & " = " & object_content_id 'response.write objectSQL 'response.end RunSQL objectSQL currentDate = getCurrentDateTime() dim pageObj set pageObj = new cPage call pageObj.getPage(pageId,session("securityLevel"),session("languageID"),"draft") call pageObj.getPageContent() '-- Update the sortorder of all the remaining content elements if isArray(pageObj.p_content_objects) then for i=0 to ubound(pageObj.p_content_objects) if cint(pageObj.p_content_objects(i,2)) > cint(object_sortorder) then call pageObj.updateContent(currentDate,"UPDATE " & convertTypeIdToDbTable(pageObj.p_content_objects(i,0)) & " set content_sortorder = '" & pageObj.p_content_objects(i,2) - 1 & "' Where " & convertTypeIdToDbColumn(pageObj.p_content_objects(i,0)) & " = " & pageObj.p_content_objects(i,1)) end if next end if response.redirect "ia.asp?mode=editPage&page_id=" & pageId & "&editType=content&confirmMsg=Content%20deleted" %>