<% Response.Buffer=true %> <% dim objectSQL dim targetSQL dim page_id dim object_type_id dim object_content_id dim object_sortorder dim object_direction dim move_direction page_id = request.querystring("pageid") object_type_id = request.querystring("objecttypeid") object_content_id = request.querystring("objectcontentid") object_sortorder = request.querystring("objectsortorder") move_direction = request.querystring("movedirection") dim target_position dim target_type_id dim target_content_id dim target_sortorder dim pageObj set pageObj = new cPage call pageObj.getPage(page_id,session("securityLevel"),session("languageID"),"draft") pageObj.getPageContent() for c=0 to ubound(pageObj.p_content_objects) if cint(pageObj.p_content_objects(c,0)) = cint(object_type_id) and cint(pageObj.p_content_objects(c,1)) = cint(object_content_id) then object_position = c end if next if move_direction = "up" then target_position = object_position - 1 else target_position = object_position + 1 end if target_type_id = pageObj.p_content_objects(target_position, 0) target_content_id = pageObj.p_content_objects(target_position, 1) target_sortorder = pageObj.p_content_objects(target_position, 2) objectSQL = "UPDATE " & convertTypeIdToDbTable(object_type_id) & " set content_sortorder = '" & target_sortorder & "' WHERE " & convertTypeIdToDbColumn(object_type_id) & " = " & object_content_id RunSQL objectSQL ' targetSQL = "UPDATE " & convertTypeIdToDbTable(target_type_id) & " set content_sortorder = '" & object_sortorder & "' WHERE " & convertTypeIdToDbColumn(target_type_id) & " = " & target_content_id RunSQL targetSQL response.write(target_type_id & "," & target_content_id & "," & target_sortorder) response.end %>