I need to pull items out of an XML feed.

Here is an example of the XML file:
- <TopNode>
- <XmlFeed>
- <GetListInCategory>
- <Data Count="937">
- <Table>
<EventID>567343</EventID>
<Event>NHL playoffs</Event>
<Date>2007-04-21T00:00:00.0000000-05:00</Date>
<Time>10:00 PM</Time>
<CategoryID>26</CategoryID>
<HeadlinerID>101828</HeadlinerID>
<VenueID>115920</VenueID>
</Table>
</data>
</GetListInCategory>
</TopNode>

I need to pull each item out of the <TABLEnode, such as
<CategoryID>. The current code I am using now pulls ALL the data but
I cannot access the invidual elements.

Here is my current code:

dim objHTTP
dim objXML
set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.open "GET","https://secure.myxmlfeed", false
objHTTP.send
set objXML = server.CreateObject("microsoft.xmldom")
objXML.async=false
objXML.load(objhttp.responsebody)
Response.Write(objxml.xml)

Can anyone tell me how to do this?

- Steve

<glbdev@gmail.comwrote in message
news:1177192579.567005.51270@l77g2000hsb.googlegro ups.com...

I need to pull items out of an XML feed.
>
Here is an example of the XML file:
- <TopNode>
- <XmlFeed>
- <GetListInCategory>
- <Data Count="937">
- <Table>
<EventID>567343</EventID>
<Event>NHL playoffs</Event>
<Date>2007-04-21T00:00:00.0000000-05:00</Date>
<Time>10:00 PM</Time>
<CategoryID>26</CategoryID>
<HeadlinerID>101828</HeadlinerID>
<VenueID>115920</VenueID>
</Table>
</data>
</GetListInCategory>
</TopNode>
>
I need to pull each item out of the <TABLEnode, such as
<CategoryID>. The current code I am using now pulls ALL the data but
I cannot access the invidual elements.
>
Here is my current code:
>
dim objHTTP
dim objXML
set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")

Don't use the XMLHTTP in ASP it's not threadsafe. Use:-

Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")

objHTTP.open "GET","https://secure.myxmlfeed", false
objHTTP.send

set objXML = server.CreateObject("microsoft.xmldom")
objXML.async=false
objXML.load(objhttp.responsebody)

If the remote source is behaving itself and sending a content-type header
with the value "text/xml" then you need only:-

Set objXML = objHTTP.ResponseXML

Response.Write(objxml.xml)
>
Can anyone tell me how to do this?

Dim oTable
Dim oNode

Set oTable =
objXML.selectSingleNode("/TopNode/XMLFeed/GetListInCategory/Data/Table")

For Each oNode In oTable.selectNodes("*")
Response.Write oNode.tagName & " = " & oNode.Text & "<br />"
Next

>
- Steve
>

Google the RSS2HTML code. It can be easily customized to take any XML
doc and use it as a sort of lightweight database for web apps.

I need to pull items out of an XML feed.
>
Here is an example of the XML file:
- <TopNode>
- <XmlFeed>
- <GetListInCategory>
- <Data Count="937">
- <Table>
<EventID>567343</EventID>
<Event>NHL playoffs</Event>
<Date>2007-04-21T00:00:00.0000000-05:00</Date>
<Time>10:00 PM</Time>
<CategoryID>26</CategoryID>
<HeadlinerID>101828</HeadlinerID>
<VenueID>115920</VenueID>
</Table>
</data>
</GetListInCategory>
</TopNode>
>
I need to pull each item out of the <TABLEnode, such as
<CategoryID>. The current code I am using now pulls ALL the data but
I cannot access the invidual elements.
>
Here is my current code:
>
dim objHTTP
dim objXML
set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.open "GET","https://secure.myxmlfeed", false
objHTTP.send
set objXML = server.CreateObject("microsoft.xmldom")
objXML.async=false
objXML.load(objhttp.responsebody)
Response.Write(objxml.xml)
>
Can anyone tell me how to do this?
>
- Steve
>
>

Thanks Anthony, I appreciate it. I will give this a try later this
afternoon.

- Gust
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

On Apr 22, 3:22 am, "Anthony Jones" <A...@yadayadayada.comwrote:

<glb...@gmail.comwrote in message
>
news:1177192579.567005.51270@l77g2000hsb.googlegro ups.com...
>
>
>
>
>

>

>

>

>

>
Don't use the XMLHTTP in ASP it's not threadsafe. Use:-
>
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
>

>
If the remote source is behaving itself and sending a content-type header
with the value "text/xml" then you need only:-
>
Set objXML = objHTTP.ResponseXML
>

>

>
Dim oTable
Dim oNode
>
Set oTable =
objXML.selectSingleNode("/TopNode/XMLFeed/GetListInCategory/Data/Table")
>
For Each oNode In oTable.selectNodes("*")
Response.Write oNode.tagName & " = " & oNode.Text & "<br />"
Next
>
>
>
>
>

>
- Show quoted text -- Hide quoted text -
>
- Show quoted text -

Pupkin,

I never heard of RSS2HTML but will look into it.

Thanks,
- Steve
================================================== ================================================== ======

On Apr 22, 3:25 am, Pupkin <spamag...@dorrk.comwrote:

Google the RSS2HTML code. It can be easily customized to take any XML
doc and use it as a sort of lightweight database for web apps.
>
>
>

>

>

>

>

>

>

>
- Show quoted text -