Issue with XmlReaderSettin gs

[Simon Ovens]

Hi

im trying to read a news feed that is generated from an aspx page on my
server but it comes up with and unauthrised error. I have changed the
perimssions on the aspx news feed generator to no avail. When i put the
xml into an xml file it reads it fine.
Searching the web i found a few other posts that have this problem but
there where no answers.

The only way i can think might do it is use NetworkCredenti al in the
code to run it.
I have tried this below but its coming up with the following error
"Compiler Error Message: BC30002: Type 'XmlReaderSetti ngs' is not
defined."

Can anyone here help me please?

heres the code:

<script language="VB" runat="server">
Sub Page_Load(sende r as Object, e as EventArgs)
recentPosts.Dat aSource =
GetRSSFeed("htt p://webserver1/DotNetNuke/DesktopModules/Orizonti_NukeNe ws/getRSS.aspx?pid =0&tid=36&mid=4 65&cnt=5")
recentPosts.Dat aBind()
End Sub

Function GetRSSFeed(ByVa l strURL As String) As DataTable

'Get the XML data

Dim resolver As New XmlUrlResolver( )
Dim nc = New Net.NetworkCred ential("usernam e", "password",
"domain")
Dim ncCache As New Net.CredentialC ache
ncCache.Add(New Uri("http://webserver1/dotnetnuke"), "Basic",
nc)
resolver.Creden tials = ncCache
'Net.Credential Cache.DefaultCr edentials
' Create the reader.
Dim settings As New XmlReaderSettin gs
settings.XmlRes olver = resolver
Dim reader As XmlTextReader = XmlReader.Creat e(strURL,
settings)

'return a new DataSet
Dim ds As DataSet = New DataSet()
ds.ReadXml(read er)
Return ds.Tables(2)
End Function

</script>