' If $UID ' $System.Access Login ' Else ' $System.Access Write Address ' EndIf ' If $System.IsPost ' If $Delete ' If $UID ' $System.Redirect $Server?page=AddressDelete&cid=$CID&gid=$VID&rid=$RID&uid=$UID ' Else ' $System.Redirect $Server?page=AddressDelete&cid=$CID&gid=$VID&rid=$RID&com=$Com&first=$First ' EndIf ' Else ' If $Copy ' If $CopyName ' $LastName = $CopyName ' EndIf ' $Command.Address.Entry ' Elif $Submit ' $Command.Address.Modify ' EndIf ' If $UID ' $System.Redirect $Server?page=AddressPersonal&cid=$CID&gid=$VID&uid=$UID ' Else ' $System.Redirect $Server?page=AddressIndex&cid=$CID&gid=$VID&com=$Com&first=$First ' EndIf ' EndIf ' Exit ' EndIf $Office.Name - Modifying Address Record ' If $UID ' Set $Items = $Address.ItemsPersonal ' Set $Cards = $Login.Address.Cards ' Else ' Set $Items = $Address.Items ' If $Com ' Set $Cards = $Address.Companies ' Else ' Set $Cards = $Address.Cards ' EndIf ' EndIf ' Set $c = $Cards.$CID.$RID $c.LastName
' If $UID ' Else ' EndIf ' $Find = $System.StrFind $c.LastName "-copy" ' If ! $Find ' EndIf
' If ! $UID ' EndIf ' If ! $UID and $Address.FirstName ' EndIf ' If ! $UID and $Address.MiddleName ' EndIf ' If ! $UID and $Address.Company ' EndIf ' If ! $UID and $Address.Mail ' EndIf ' For Each $Item in $Items ' $IID = $Item.ID ' If $Item.MultiLine ' Else ' EndIf ' If $Item.Necessary ' EndIf ' Next
Group
Last Name(Required)
First Name(Required)
MiddleName(Required)
Company(Required)
Email(Required)
$Item.Name$Item.Name(Required)

' If $UID ' Else ' EndIf
[Personal Address List][Address List][Top Page] [Help]