
898 Chapter 21: Administering Unity Programmatically
Set rsTemp = New ADODB.Recordset
rsTemp.CursorLocation = adUseClient
rsTemp.Open "SELECT Alias, DisplayName FROM vw_DistributionList WHERE
DisplayName='" + strDLDisplayName + "'", strConnectionString, adOpenKeyset,
adLockReadOnly
If rsTemp.RecordCount > 0 Then
MsgBox "That display name conflicts with one or more public distribution
lists already in the database. Please select a unique display name."
rsTemp.Close
GoTo CleanUp
End If
rsTemp.Close
! Generate an alias from the display name. The SQL Syncher will tack on the
system ID of the local Unity install for this so as long as the alias ...