Imports System.Data ' This goes at the top of the page, or with an @Import directive

Dim ds As DataSet = New DataSet
ds.ReadXml(Server.MapPath("XMLFile1.xml"))

Grid1.DataSource = ds
Grid1.DataBind()

quote:

---

Originally posted by kwilliams
The example XML doc that I posted intentionally only contained 1 tier of data because I wanted to keep it simple for my original request.

---

quote:

---

Originally posted by kwilliams
The example XML doc that I posted intentionally only contained 1 tier of data because I wanted to keep it simple for my original request.

---

quote:

---

Reply posted by ImarRight, that isn't really helpful and caused a lot of confusion ;-)

---

quote:

---

Anyway, you say you have "code for Visual Basic .NET" and you don't use that. However, the same code should run fine in Web Matrix or even in pages created in Notepad.

---

quote:

---

Would it help if you posted that code here?

---

quote:

---

Otherwise, I think you need to load the document into an XmlDocument and then use its properties like ChildNodes or FirstChild to get the nodes you do want to work with. Take a look here: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemxmlxmldocumentmemberstopic.asp

---

quote:

---

I don't use Xml in these kind of scenarios much, so I don't have any ready made examples here. I am sure that Google should bring up loads of useful stuff though...

---

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" Debug="true" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Xml" %>
<script runat="server">
'Pull in eAlerts data
Sub Main()
    Dim m_xmld As XmlDocument
    Dim m_nodelist As XmlNodeList
    Dim m_node As XmlNode
    'Create the XML Document
    m_xmld = New XmlDocument()
    'Load the Xml file
    m_xmld.Load("http://SERVER/DIRECTORY/docs/xml/ealerts.xml")
    'Get the list of name nodes
    m_nodelist = m_xmld.SelectNodes("/ealerts/alert")
    'Loop through the nodes
    For Each m_node In m_nodelist
      Dim titleValue = m_node.ChildNodes.Item(0).InnerText
      Dim rss_urlValue = m_node.ChildNodes.Item(1).InnerText
      Dim linkValue = m_node.ChildNodes.Item(2).InnerText
      Dim image_urlValue = m_node.ChildNodes.Item(3).InnerText
      Dim widthValue = m_node.ChildNodes.Item(4).InnerText
      Dim heightValue = m_node.ChildNodes.Item(5).InnerText
      Dim statusValue = m_node.ChildNodes.Item(6).InnerText
      'Get the Gender Attribute Value
      'Dim genderAttribute = m_node.Attributes.GetNamedItem("gender").Value

      'Write Result to the Console
      Response.Write("<strong>eAlert</strong><br />Title: " & titleValue & _
      " RSS URL: " & rss_urlValue & _
      " Link: " & linkValue & _
      " Image URL: " & image_urlValue & _
      " Width: " & widthValue & _
      " Height: " & heightValue & _
      " Status: " & statusValue)

    Next
End Sub
</script>

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" Debug="true" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.Xml" %>
<script runat="server">

    'Pull in eAlerts data

    Sub Page_Load
        If Not Page.IsPostBack then
         Dim m_xmld As XmlDocument
         Dim m_nodelist As XmlNodeList
         Dim m_node As XmlNode
         'Create the XML Document
         m_xmld = New XmlDocument()
         'Load the Xml file
         m_xmld.Load("http://SERVER/DIRECTORY/docs/xml/ealerts.xml")
         'Get the list of name nodes
         m_nodelist = m_xmld.SelectNodes("/ealerts/alert")
         'Loop through the nodes
         For Each m_node In m_nodelist
           Dim titleValue = m_node.ChildNodes.Item(0).InnerText
           Dim rss_urlValue = m_node.ChildNodes.Item(1).InnerText
           Dim linkValue = m_node.ChildNodes.Item(2).InnerText
           Dim image_urlValue = m_node.ChildNodes.Item(3).InnerText
           Dim widthValue = m_node.ChildNodes.Item(4).InnerText
           Dim heightValue = m_node.ChildNodes.Item(5).InnerText
           Dim statusValue = m_node.ChildNodes.Item(6).InnerText
           'Get the Gender Attribute Value
           'Dim genderAttribute = m_node.Attributes.GetNamedItem("gender").Value

           'Write Result to the Console
           Response.Write("<strong>eAlert</strong><br />" & _
           "Title: " & titleValue & _
           " RSS URL: " & rss_urlValue & _
           " Link: " & linkValue & _
           " Image URL: " & image_urlValue & _
           " Width: " & widthValue & _
           " Height: " & heightValue & _
           " Status: " & statusValue)
         Next
   End If
    End Sub

</script>