View Single Post
  #16 (permalink)  
Old July 28th, 2005, 04:10 PM
kwilliams kwilliams is offline
Banned
Points: 1,561, Level: 16
Points: 1,561, Level: 16 Points: 1,561, Level: 16 Points: 1,561, Level: 16
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jul 2005
Location: , , .
Posts: 317
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Hallelujah...it worked. Here's my final code:
Code:
<%@ 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>
...and it works like a charm. Thanks SO MUCH for your patient, thorough, and clearly wonderful help. You've been a great resource during this frustrating process, and I REALLY appreciate it. This forum is VERY lucky to have you as a member, and I'm not just saying that:)

KWilliams
Reply With Quote