asked on
set xdDoc = Server.CreateObject("MSXML2.DOMDocument.6.0")
xdDoc.load "C:\VAXXML\SOMEVAX.XML"
Set colChildNodes = xdDoc.selectNodes("///ITEMAMOUNT")
'xmlElementsByTagName(el, name, recursive = FALSE)
'xmlElementsByTagName("ITEMAMOUNT,"TRAVELCATEGORY")
'extract item amounts
if xdDoc.parseError = 0 then
'extract item info
for each objItem in colChildNodes
vqty = objItem.selectSingleNode("DESCRIPTION")
vremarks = objItem.selectSingleNode("REMARKS")
response.write "<BR>QTY:" & vqty & " " & vremarks
next
else
' display error message
end if
'end of extracting item info
'extract service providers
Set colNodes = xdDoc.selectNodes ("//SERVICEPROVIDER")
if xdDoc.parseError = 0 then
for each objProvider in colNodes
'get provider info
response.write "<BR> inside for/next"
vsegnbr = objProvider.selectSingleNode("PROVIDERTYPE").text
if vsegnbr <> "5" then
vprovider = objProvider.selectSingleNode("SERVICEPROVIDERNAME").text
vbegindate = objProvider.selectSingleNode("STARTDATE").text
venddate = objProvider.selectSingleNode("ENDDATE").text
response.write "<BR>Provider Type is: " & vsegnbr
response.write "<BR>Provider is: " & vprovider
response.write "<BR>Begin date is: " & vbegindate
response.write "<BR>End date is: " & venddate
end if
next
else
' display error message
end if
%>
<?xml version="1.0" encoding="utf-8"?>
<SERVICECARD>
<DATEFORMAT>MMDDYYYY</DATEFORMAT>
<RESCARDMOREFIELD>
<UDIDNO />
<UNITVALUE />
</RESCARDMOREFIELD>
<SERVICEINFO>
<RESTYPE>7</RESTYPE>
<ITEMAMOUNTLIST>
<ITEMAMOUNT>
<CATEGORY>0</CATEGORY>
<QTY>1</QTY>
<DESCRIPTION>CURB SERVICE</DESCRIPTION>
</ITEMAMOUNT>
<ITEMAMOUNT>
<CATEGORY>5</CATEGORY>
<QTY>1</QTY>
<DESCRIPTION>2 FREE TICKETS FOR FREE PARKING</DESCRIPTION>
</ITEMAMOUNT>
<ITEMAMOUNT>
<CATEGORY>5</CATEGORY>
<QTY>1</QTY>
<DESCRIPTION>INCLUDES 10 FREE MILES</DESCRIPTION>
</ITEMAMOUNT>
<SERVICEPROVIDER>
<PROVIDERTYPE>0</PROVIDERTYPE>
<SERVICEPROVIDERNAME>LOUD LARRY TAXIS</SERVICEPROVIDERNAME>
<SERVICEPROVIDERCODE>LL</SERVICEPROVIDERCODE>
<STARTDATE>07192017</STARTDATE>
<ENDDATE>07192017</ENDDATE>
</SERVICEPROVIDER>
<SERVICEPROVIDER>
<PROVIDERTYPE>0</PROVIDERTYPE>
<SERVICEPROVIDERNAME>COOL LUKE RIDES</SERVICEPROVIDERNAME>
<SERVICEPROVIDERCODE>CLR</SERVICEPROVIDERCODE>
<STARTDATE>07232017</STARTDATE>
<ENDDATE>07232017</ENDDATE>
</SERVICEPROVIDER>
</SERVICEINFO>
</SERVICECARD>
ItemAmountList-ItemAmount.JPG
Active Server Pages (ASP) is Microsoft’s first server-side engine for dynamic web pages. ASP’s support of the Component Object Model (COM) enables it to access and use compiled libraries such as DLLs. It has been superseded by ASP.NET, but will be supported by Internet Information Services (IIS) through at least 2022.
TRUSTED BY
ASKER