<HTML>
<BODY>
<%
' List all groups a user belongs to
Set AU = Server.CreateObject("Persits.AspUser")
Set User = AU.Users("peter")
Response.Write "<B>Global Groups:</B><BR>"
For Each Group in User.Groups
Response.Write Group & "<BR>"
Next
Response.Write "<P><B>Local Groups:</B><BR>"
For Each Group in User.LocalGroups
Response.Write Group & "<BR>"
Next
%>
</BODY>
</HTML>