Heeft iemand een linkje of een stukje voorbeeld code hoe ik een XML bestand dat gepost wordt naar bijvoorbeeld XML_receive.asp kan ontvangen, en kan bewerken met XPATH? Liefst met XMLDOM.
Kan het XML bestand nu goed met XPATH benaderen en de goede waardes eruit krijgen, alleen nu staat het XML bestand lokaal. Straks wordt het XML bestand gepost naar de bepaalde asp pagina.
Samengevat, hoe zet ik onderstaande code om naar een code dat ik een XML bestand "gepost" toegestuurd krijg.
Kan het XML bestand nu goed met XPATH benaderen en de goede waardes eruit krijgen, alleen nu staat het XML bestand lokaal. Straks wordt het XML bestand gepost naar de bepaalde asp pagina.
Samengevat, hoe zet ik onderstaande code om naar een code dat ik een XML bestand "gepost" toegestuurd krijg.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
| function getXml(xmlPath)
dim xmlDoc
dim isValid
set xmlDoc = server.createObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load server.mapPath(xmlPath)
isValid = cBool(xmlDoc.parseError.errorCode = 0)
if not isValid then
response.write getXMLError(xmlDoc)
end if
set getXml = xmlDoc
end function
function getXMLError(xmlDoc)
dim strError
strError = "Invalid XML file!" & vbNewline & _
"File: " & xmlDoc.parseError.url & vbNewline & _
"Line: " & xmlDoc.parseError.line & vbNewline & _
"Character: " & xmlDoc.parseError.linepos & vbNewline & _
"Source Text: " & xmlDoc.parseError.srcText & vbNewline & _
"Description: " & xmlDoc.parseError.reason
getXMLError = strError
end function
set xmlDoc = getXml("test.xml")
path="/paymentService/notify/orderStatusEvent/@orderCode"
set nodes=xmlDoc.selectNodes(path)
for each x in nodes
OrderCode= x.Text
next
path="/paymentService/notify/orderStatusEvent/payment/paymentMethod"
set nodes=xmlDoc.selectNodes(path)
for each x in nodes
PaymentMethod = x.Text
next
path="/paymentService/notify/orderStatusEvent/payment/amount/@value"
set nodes=xmlDoc.selectNodes(path)
for each x in nodes
Bedrag= x.Text
next
path="/paymentService/notify/orderStatusEvent/payment/lastEvent"
set nodes=xmlDoc.selectNodes(path)
for each x in nodes
LastEvent= x.Text
next |