<% function DelModeratorrightForUser(ByRef pobjCon, ByVal pintUserID) dim strSQL if lookup(pobjCon, "moderator", "forumUsers", "ID", pintUserID) then strSQL = "UPDATE forumUsers SET moderator=0 WHERE ID=" & pintUserID call pobjCon.execute(strSQL) end if end function %>