XMLHTTP - screen scrape

Hi Experts,

I have the following xml file called "contacts.xml"

<xmp>
<?xml version="1.0"?>
<contacts>
     <contact>
          <field id="firstName" taborder="1">
               <field_value>richard</field_value>
          </field>
          <field id="lastName" taborder="2">
               <field_value>jones</field_value>
          </field>
          <field id="address1" taborder="3">
               <field_value>16 some street</field_value>
          </field>
          <field id="address2" taborder="4">
               <field_value>london</field_value>
          </field>
          <field id="phone" taborder="5">
               <field_value>123456</field_value>
          </field>
          <field id="email" taborder="6">
               <field_value>someemail</field_value>
          </field>
     </contact>
</contacts>
</xmp>


And I am loading it into a page called "scrape1.asp" which uses the "microsoft.XMLHTTP" object to retieve the XML data as follows:


<%@ Language = VBScript %>
<%
Response.Buffer = True
Dim objXMLHTTP, xml

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

xml.Open "GET", "http://myurl/xmlTests/contact.xml", False

xml.Send

'Display the HTML as text...
'Response.Write "<xmp>"
'Response.Write xml.responseText
'Response.Write "</xmp>"

'Or, render the HTML...
Response.Write xml.responseText
 
Set xml = Nothing

%>


The xml page is being rendered to the screen within scrape1.asp as expected. I have a couple of questions...


1.

How do I grab information from within the object based on the xml field name and stuff the results into a set of variables?


2.

I would also like to use this object to retrieve pure HTML pages. I would then like to grab information from the HTML pages using the regular expression object. Can you please give me an example of how to do this? An example of what I am tring to do would be:

HMTL = <td>price = £29.30</td>

VALUE IN VARIABLE = <% price %> (where price would = "29.30")




Thanks for you help...




PJORDANNA

pjordannaAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

deighcCommented:
>> 1. How do I grab information from within the object based on the xml field name and stuff the results into a set of variables?

You mean you want to loop thru the XML and read out the attributes and/or node text??? Something like this:

<%
' Add this code after xml.send and before set xml = nothing
' Dim these variable names: xmlNodeList, xmlNode

' Select a list of XML nodes
set xmlNodeList = xml.documentElement.selectNodes("/contacts/contact/field")
' Loop thru the node list
for each xmlNode in xmlNodeList
  ' Now you have access to the attributes collection of the <field> node
  Response.write "ID = " & xmlNode.attributes.getNamedItem("id").text
  Response.write "taborder = " & xmlNode.attributes.getNamedItem("id").text
  ' If you want access the text value of <field_value> node....
  Response.write "Value of field_value = " & xmlNode.childNodes(0).text
next
set xmlNodeList = nothing
%>

As for your second question, well, that's an entirely seperate problem and you really ought to post it as a different question. And my reg exp skills are crap.....  ;-)

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
pjordannaAuthor Commented:
deighc,

Cheers for that...works a treat.



pjordanna
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
ASP

From novice to tech pro — start learning today.