XML Parsing Classic ASP

Hi

I'm trying to write a classic ASP script that sends an xml request to an API and parses the response into variables. The send works and the response (.responseText) is the following:


<response status='ok'>
<serviceRequestList>
<serviceRequest>
  <customerContactEmail>aaa@@aaa.com</customerContactEmail>
  <customerName>ABC Corp</customerName>
  <description>Misc Job #1</description>
  <detailedDescription>Job work</detailedDescription>
  <serviceRequestId>4586</serviceRequestId>
  <status>Open</status>
  <type>Service</type>
</serviceRequest>
<serviceRequest>
  <customerContactEmail>aaa@@aaa.com</customerContactEmail>
  <customerName>ABC Corp</customerName>
  <description>Misc Job #2</description>
  <detailedDescription>work on LPTP issues and syncing AD to Google Apps</detailedDescription>
  <serviceRequestId>4686</serviceRequestId>
  <status>Open</status>
  <type>Service</type>
</serviceRequest>
<serviceRequest>
  <customerContactEmail>aaa@@aaa.com</customerContactEmail>
  <customerName>ABC Corp</customerName>
  <description>L2TP Transition and GAPS sync</description>
  <detailedDescription>wJob work</detailedDescription>
  <serviceRequestId>4587</serviceRequestId>
  <status>Open</status>
  <type>Service</type>
</serviceRequest>
</serviceRequestList>
</response>



However when trying to parse the result I'm unable to get the information I need.   From the above response I'd like to extract the customerContactEmail, customerName, description, detailedDescription, serviceRequestId, status, type tags into individual variables.

Ive tried many different methods, but I'm getting blank returns with no errors from everything I've tried.

Can someone please help!

Thanks
mizgroupAsked:
Who is Participating?
 
Big MontyConnect With a Mentor Senior Web Developer / CEO of ExchangeTree.org Commented:
sorry,

objXMLDoc.load xml

should be

objXMLDoc.loadXML xml
0
 
Big MontySenior Web Developer / CEO of ExchangeTree.org Commented:
here's an example that'll get you the first couple of fields:

xml = <your xml data>
Set objXMLDoc = Server.CreateObject("MSXML2.DOMDocument.3.0")    
objXMLDoc.async = False    
objXMLDoc.load xml

Dim xmlServiceRequest       
For Each xmlServiceRequest In objXMLDoc.documentElement.selectNodes("/response/serviceRequestList/serviceRequest")
     Dim customerContactEmail : customerContactEmail = xmlServiceRequest.selectSingleNode("customerContactEmail").text   
     Dim customerName : customerName = xmlServiceRequest.selectSingleNode("customerName").text   
     Response.Write Server.HTMLEncode(customerContactEmail) & "<br>"
     Response.Write Server.HTMLEncode(customerName) & "<br>"   
Next   

Open in new window

0
 
mizgroupAuthor Commented:
@Big Monty thanks.. but i get the following error

oft VBScript runtime error '800a01a8'

Object required: 'objXMLDoc.documentElement'
0
 
mizgroupAuthor Commented:
Thank you very much, ive been breaking my head on this for two days!
0
 
Big MontySenior Web Developer / CEO of ExchangeTree.org Commented:
glad to help :)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.