There are probably better ways to show the votes of Art Contest 2022, but here is one way:
Clear[ArtContest2022Votes];
ArtContest2022Votes[url_String : "https://community.wolfram.com/groups/-/m/t/2498984"] :=
Block[{replyPattern, votesPattern, userPattern, userImagePattern,
xmlObj, siteURL, aUserVotes, dsUserVotes, dsUserVotes2},
replyPattern = XMLElement["div", {"class" -> "reply_posts", "id" -> _, ___}, ___];
votesPattern = XMLElement[ "div", {"class" -> "like-counter like-counter-margin", "id" -> _}, {v_}] :> v;
userPattern = XMLElement["img", {"class" -> "avatar", "alt" -> name_, "src" -> portraitURL_, "width" -> _}, {}] :> {name, portraitURL};
userImagePattern = XMLElement["div", {"class" -> "user-image"}, ___];
xmlObj = Import[url, "XMLObject"];
siteURL = "https://community.wolfram.com/";
aUserVotes = Map[Cases[#, userPattern, \[Infinity]][[1]] -> Cases[#, votesPattern, \[Infinity]][[1]] &, Cases[xmlObj, replyPattern, \[Infinity]]];
dsUserVotes = Dataset@Map[{#[[1, 1]], Import[siteURL <> #[[1, 2]]], #[[2]]} &, aUserVotes];
dsUserVotes2 = dsUserVotes[All, AssociationThread[{"Name", "Avatar", "Votes"}, #] &];
dsUserVotes2 = dsUserVotes2[All, Append[#, <|"Votes" -> ToExpression[#Votes]|>] &];
dsUserVotes2[ReverseSortBy[{#Votes, #Name} &]]
];
dsACVotes = ArtContest2022Votes[];
Dimensions[dsACVotes]
(*{45, 3}*)
SeedRandom[39];
RandomSample[dsACVotes, 4]
SeedRandom[32];
Multicolumn@Normal[RandomSample[dsACVotes, 6]] /. x_?AssociationQ :> Dataset[x]