404 Access Denied

Any clues?
404 Access Denied
... omitted code...
m_credentials = New System.Net.NetworkCredential(Common.SRSUserName,
Common.SRSPassword, Common.SRSDomain)
_rs.Credentials = m_credentials
end sub
... omitted code...
Dim items() As CatalogItem
_rs.Url = Common.SRSServerName
items = _rs.ListChildren("/", True)
Line 208:"ildren",
RequestNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/repo
rtingservices",
ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/rep
ortingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal,
ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Line 209: Public Function ListChildren(ByVal Item As String, ByVal
Recursive As Boolean) As
<System.Xml.Serialization.XmlArrayAttribute("CatalogItems")> CatalogItem()
Line 210: Dim results() As Object = Me.Invoke("ListChildren", New
Object() {Item, Recursive})
Line 211: Return CType(results(0),CatalogItem())
Line 212: End FunctionIt was my web.config
I had mis-read that I should add to <identity impersonate="true"/> to the
authorization section, but "after" was where it belonged.
JeffP...
"JDP@.Work" <JPGMTNoSpam@.sbcglobal.net> wrote in message
news:eUBCRPTwEHA.536@.TK2MSFTNGP11.phx.gbl...
> Any clues?
> 404 Access Denied
> ... omitted code...
> m_credentials = New System.Net.NetworkCredential(Common.SRSUserName,
> Common.SRSPassword, Common.SRSDomain)
> _rs.Credentials = m_credentials
> end sub
> ... omitted code...
> Dim items() As CatalogItem
> _rs.Url = Common.SRSServerName
> items = _rs.ListChildren("/", True)
>
> Line 208:"ildren",
>
RequestNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/repo
> rtingservices",
>
ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/rep
> ortingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal,
> ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
> Line 209: Public Function ListChildren(ByVal Item As String, ByVal
> Recursive As Boolean) As
> <System.Xml.Serialization.XmlArrayAttribute("CatalogItems")> CatalogItem()
> Line 210: Dim results() As Object = Me.Invoke("ListChildren", New
> Object() {Item, Recursive})
> Line 211: Return CType(results(0),CatalogItem())
> Line 212: End Function
>