can anyone help me with this simple XML example?

[Milsnips]

hi there,

i am currently using the following code to generate an XML object, then save
it, then read the contents of the file - but i dont wanna save it, instead
read it directly after i;ve created the object.. see below:
------------------------------
Dim w As New XmlTextWriter(Server.MapPath(".") & "\suppliers.xml",
System.Text.Encoding.UTF8)
w.Formatting = Formatting.Indented
w.WriteStartDocument()
w.WriteStartElement("suppliers")

Dim ds As DataSet = MyFunction.GetSuppliers()
If ds.Tables(0).Rows.Count > 0 Then
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
w.WriteStartElement("ROW")
Dim dr As DataRow = ds.Tables(0).Rows(i)
w.WriteElementString("text", dr("supplier"))
w.WriteElementString("value", dr("supplierID"))
w.WriteEndElement()
Next
End If
w.WriteEndElement()
w.WriteEndDocument()
w.Flush()
w.Close()
w = Nothing
Dim xd As New XmlDocument
xd.Load(Server.MapPath(".") & "\suppliers.xml")

Response.Write(xd.OuterXml)
xd = Nothing
GC.Collect()
------------------------------
any help appreciated,
Paul

[Milsnips]

never mine
"Milsnips" <mi******@hotmail.com> wrote in message
news:#E*************@TK2MSFTNGP12.phx.gbl...

hi there,

i am currently using the following code to generate an XML object, then save it, then read the contents of the file - but i dont wanna save it, instead
read it directly after i;ve created the object.. see below:
------------------------------
Dim w As New XmlTextWriter(Server.MapPath(".") & "\suppliers.xml",
System.Text.Encoding.UTF8)
w.Formatting = Formatting.Indented
w.WriteStartDocument()
w.WriteStartElement("suppliers")

Dim ds As DataSet = MyFunction.GetSuppliers()
If ds.Tables(0).Rows.Count > 0 Then
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
w.WriteStartElement("ROW")
Dim dr As DataRow = ds.Tables(0).Rows(i)
w.WriteElementString("text", dr("supplier"))
w.WriteElementString("value", dr("supplierID"))
w.WriteEndElement()
Next
End If
w.WriteEndElement()
w.WriteEndDocument()
w.Flush()
w.Close()
w = Nothing
Dim xd As New XmlDocument
xd.Load(Server.MapPath(".") & "\suppliers.xml")

Response.Write(xd.OuterXml)
xd = Nothing
GC.Collect()
------------------------------
any help appreciated,
Paul

[Scott Allen]

Hi Milsnips:

Are you trying to do something like the following?
http://scottonwriting.net/sowblog/posts/361.aspx
P.S. Calling GC.Collect() is generally a bad idea.

--
Scott
http://www.OdeToCode.com/blogs/scott/

On Fri, 20 May 2005 14:00:54 +0200, "Milsnips" <mi******@hotmail.com>
wrote:

hi there,

i am currently using the following code to generate an XML object, then save
it, then read the contents of the file - but i dont wanna save it, instead
read it directly after i;ve created the object.. see below:
------------------------------
Dim w As New XmlTextWriter(Server.MapPath(".") & "\suppliers.xml",
System.Text.Encoding.UTF8)
w.Formatting = Formatting.Indented
w.WriteStartDocument()
w.WriteStartElement("suppliers")

Dim ds As DataSet = MyFunction.GetSuppliers()
If ds.Tables(0).Rows.Count > 0 Then
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
w.WriteStartElement("ROW")
Dim dr As DataRow = ds.Tables(0).Rows(i)
w.WriteElementString("text", dr("supplier"))
w.WriteElementString("value", dr("supplierID"))
w.WriteEndElement()
Next
End If
w.WriteEndElement()
w.WriteEndDocument()
w.Flush()
w.Close()
w = Nothing
Dim xd As New XmlDocument
xd.Load(Server.MapPath(".") & "\suppliers.xml")

Response.Write(xd.OuterXml)
xd = Nothing
GC.Collect()
------------------------------
any help appreciated,
Paul

[Milsnips]

yeah that looks like what i'm after:)) thanks!
"Scott Allen" <sc***@nospam.odetocode.com> wrote in message
news:3u********************************@4ax.com...

Hi Milsnips:

Are you trying to do something like the following?
http://scottonwriting.net/sowblog/posts/361.aspx
P.S. Calling GC.Collect() is generally a bad idea.

--
Scott
http://www.OdeToCode.com/blogs/scott/

On Fri, 20 May 2005 14:00:54 +0200, "Milsnips" <mi******@hotmail.com>
wrote:

hi there,

i am currently using the following code to generate an XML object, then saveit, then read the contents of the file - but i dont wanna save it, insteadread it directly after i;ve created the object.. see below:
------------------------------
Dim w As New XmlTextWriter(Server.MapPath(".") & "\suppliers.xml",
System.Text.Encoding.UTF8)
w.Formatting = Formatting.Indented
w.WriteStartDocument()
w.WriteStartElement("suppliers")

Dim ds As DataSet = MyFunction.GetSuppliers()
If ds.Tables(0).Rows.Count > 0 Then
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
w.WriteStartElement("ROW")
Dim dr As DataRow = ds.Tables(0).Rows(i)
w.WriteElementString("text", dr("supplier"))
w.WriteElementString("value", dr("supplierID"))
w.WriteEndElement()
Next
End If
w.WriteEndElement()
w.WriteEndDocument()
w.Flush()
w.Close()
w = Nothing
Dim xd As New XmlDocument
xd.Load(Server.MapPath(".") & "\suppliers.xml")

Response.Write(xd.OuterXml)
xd = Nothing
GC.Collect()
------------------------------
any help appreciated,
Paul