COMStop =
function(msg, status, class = "COMError")
{
e = simpleError(msg)
e$status = status
class(e) = c(class, class(e))
stop(e)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.