GetUsers.csp

<%@ Language=JavaScript%>

<html>

<body>

function GetUsers(IStore)

{

// This function returns a listbox populated with all user accounts.

// Returns:

// If there are no accounts, an empty string is returned.

var Users = IStore.Query

("SELECT SI_ID, SI_NAME FROM CI_SYSTEMOBJECTS WHERE SI_PROGID='CrystalEnterprise.USER'");

if (Users.Count == 0)

{

return "";

}

var k;

var HTMLTable="<select name=UserList>";

for (k=1;k<=Users.Count;k++)

{

HTMLTable = HTMLTable + "<option value='"+Users.Item(k).ID+"'>"+Users.Item(k).Title;

}

HTMLTable= HTMLTable + "</select>";

return HTMLTable;

}

function Main()

{

IStore = RetrieveIStore();

if (IStore == null)

{

Response.Redirect("Start.csp");

return;

}

Response.Write ("<H2>Manage User Accounts</H2>");

Response.Write ("<form action='ManageUser.csp' method=post name='ManageUser'>");

Response.Write (GetUsers(IStore));

Response.Write ("<BR><BR><input type=submit name='Delete' value='Delete Account'></BR>");

Response.Write ("<BR><input type=submit name='Add' value='Add an Account'></BR>");

Response.Write ("<BR><input type=submit name='Reset' value='Reset password'></BR>");

Response.Write ("<BR><input type=submit name='ChangeGroup' value='Modify Group Memberships'></BR>");

Response.Write ("</FORM>");

}

Main();

</body>

</html>