• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 97
  • Last Modified:

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
0
mizgroup
Asked:
mizgroup
  • 3
  • 2
1 Solution
 
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
 
Big MontySenior Web Developer / CEO of ExchangeTree.org Commented:
sorry,

objXMLDoc.load xml

should be

objXMLDoc.loadXML xml
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

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now