On Error Resume Next
...
      ... intervening code
      ...
If err.Number <> 0 Then
    Response.Write "Error number: " & err.Number & "<P>"
    Response.Write "Description: " & err.Description & "<P>"
    Response.Write "Source: " & err.Source & "<P>"
    ' Clear the error
    err.Clear
Else
    Response.write "Publication " & strPubName & " added/updated successfully."
End If