Օրինակ/Delete

Public Sub Delete()
    If Not Paran("DELETEACCESS") Then 
        RaiseError("Սխալ", Param("UserName") & " օգտագործողին փաստաթղթի ջնջելու իրավասություն տրված չէ։", _
            "Error", "Access to delete the document is not grant to user " & Param("UserName") & ".")
    End If
End Sub