Friend Sub ResponseWriteError(ByVal sError As String, Optional ByVal ContentType As String = "text/plain")
        If ResponseWritten Or ResponseRedirected Then Return
        With _Context.Response
            .Clear()
            .ContentType = ContentType
            .StatusCode = 500
            .Write(sError)
            _ResponseWritten = True
        End With
    End Sub

  <system.runtime.remoting>
    <customErrors mode="On"/>
  </system.runtime.remoting>
  <system.web>
    <customErrors mode="On"/>
  </system.web>