DeleteUser.csp

<%@ Language=JavaScript%>

<html>

<body>

function DeleteUser(IStore, UserID)

{

var Users = IStore.Query

("SELECT SI_ID FROM CI_SYSTEMOBJECTS WHERE SI_PROGID='CrystalEnterprise.USER'"

+ " And SI_ID="+UserID+"");

if (Users.Count == 0)

{

Response.Write ("The user account could not be found or could not be deleted.");

return 0;

}

if (Users.Item(1).Title == "Administrator")

{

Response.Write

("This example does not let you delete the Administrator account.</BR>");

return 0;

}

Users.Delete (1);

IStore.Commit (Users);

Response.Write ("The user account has now been deleted.");

}

function Main()

{

var UserID = Request.QueryString.Item ("UserID");

IStore = RetrieveIStore();

if (IStore == null)

{

Response.Redirect("Start.csp");

return;

}

DeleteUser(IStore,UserID);

}

Main();

</body>

</html>