Klein simpel scriptje heb ik gemaakt, moet volgens mij werken, maar helaas.
Ik krijg een fout bij:
De fout is: Object required: 'objResults'
Die object maak ik toch zekers wel aan.
Ik moet een hele rits nodes checken, dus wil liever niet per node een Set doen.
Hier is de code:
Ik krijg een fout bij:
code:
1
| If (objResults.selectSingleNode("//adsl-result/Result").text <> "OK") Then |
De fout is: Object required: 'objResults'
Die object maak ik toch zekers wel aan.
Ik moet een hele rits nodes checken, dus wil liever niet per node een Set doen.
Hier is de code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Set objXMLDom = CreateObject("Microsoft.XMLDom")
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "http://een.url.com", False
objXMLHTTP.Send()
Set objXMLDom = objXMLHTTP.responseXML
If objXMLDom.parseError.errorCode > 0 Then
Response.Write ("error!")
Response.End
End If
Set objResults = objXMLDom.documentElement
If (objResults.selectSingleNode("//Data/Result").text <> "OK") Then
Response.Write ("Oke")
Else
Response.Write ("Nope")
End If
Set objResults = Nothing
Set objXMLHTTP = Nothing
Set objXMLDom= Nothing |
weinig tot niks..