<% function MoveGroupLeft(ByRef pobjCon, ByVal pintGroupID) dim intOldDepth, strSQL intOldDepth = GetGroup(pobjCon, pintGroupID)("debth") if intOldDepth>0 then 'Minimum depth=0 strSQL = "UPDATE forumGroups SET debth=debth-1 WHERE ID=" & pintGroupID pobjCon.Execute strSQL end if end function %>