<html><head>
<%PageTitle="Enumerate Items"%>
<!-- #include virtual="/include/head.asp"-->
<a href="/include/code.asp?<%=Request.ServerVariables("url")%>" target=code><b>Show Code</b></a><br>
<div>This is a working page of a sample application. Please try submitting different data. See how errors are handled.</div>
<% on error resume next
Set Group=server.CreateObject("DB3NF.Item")
Group.Class="group"
Group.ID=1 'here we connect to existing item
%>
<h4>Users in Group "<%=Group("name")%>"</h4>
<table width=550 cellspacing=0 border=1>
<tr>
<th>ID</th><th>First Name</th><th>Last Name</th></tr>
<%
for each User in Group.Relatives("user")
Response.Write "<tr><td>" & User.ID & "</td><td>" & Server.HTMLEncode(User("FirstName")) & "</td><td>" & Server.HTMLEncode(User("LastName")) & "</td></tr>"
next
%>
</table>
<%
if err then Response.Write "<p><b>Application error</b></p>"
%>
<!-- #include virtual="/include/footer.asp"-->