Ik wil de beschikbaarheid van een domeinnaam controleren via een eigen webservice, alleen krijg ik steeds volgende fout
Microsoft VBScript runtime error '800a01fb'
An exception occurred: 'objXmlHTTP.send'
/includes/order_webtools_checkdomain.asp, line 21
dit is m'n code :
De webservice doet het perfect, domeinnaam komt correct door, alleen die objXmlHTTP.send "" krijg ik niet gefixed. Na redelijk wat google searches begin ik me stilaan radeloos te voelen... Kan iemand me hierbij helpen?
Microsoft VBScript runtime error '800a01fb'
An exception occurred: 'objXmlHTTP.send'
/includes/order_webtools_checkdomain.asp, line 21
dit is m'n code :
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
| Sub DoTest() set objXmlHTTP = Server.CreateObject("MSXML2.XMLHTTP") set objXmlDOM = Server.CreateObject("MSXML2.DOMDocument") Dim aNode objXmlDom.Async = false objXmlHTTP.Open "GET", WebService & "domainname=" & domein, False objXmlHTTP.send "" bOk = objXmlDom.Load(objXmlHTTP.ResponseXML) If bOk Then 'Set aNode = objXmlDom.documentElement.selectSingleNode("Results/anyType/Output") Set aNode = objXmlDom.documentElement.selectSingleNode("result") result = aNode.Text Set aNode = objXmlDom.documentElement.selectSingleNode("msg") TestResult = aNode.Text 'Set DetailsNode = objXmlDom.documentElement.selectSingleNode("Results/anyType/Details/DomainDoctorCheckDetails") Else TestResult = "Failed" result = objXmlHTTP.ResponseText End If End Sub |
De webservice doet het perfect, domeinnaam komt correct door, alleen die objXmlHTTP.send "" krijg ik niet gefixed. Na redelijk wat google searches begin ik me stilaan radeloos te voelen... Kan iemand me hierbij helpen?