Following code is not working for me. What could be a reason?
<html>
<head>
<title></title>
</head>
<body>
<%
Dim SoapRequest
Set SoapRequest = CreateObject("MSXML2.XMLHTTP")
Dim myXML, webServiceUrl
Set myXML = CreateObject("MSXML.DOMDocument")
myXML.Async=False
webServiceUrl = "http://cpp.cisco.com/cpp/CPPLDAP/CPPLDAP.asmx/AuthenticateCiscoUser?db=1&_username=MyUserName&_password=MyPassword"
SoapRequest.Open "POST", webServiceUrl, False
SoapRequest.setRequestHeader "Content-Type","text/xml;charset=utf-8"
SoapRequest.setRequestHeader "SOAPAction", """http://wwwte.cisco.com/cpp/AuthenticateCiscoUser"""
SoapRequest.Send
If SoapRequest.responseXML is Nothing Then
Response.write("Nothing")
End If
If myXML.load(SoapRequest.responseXML) Then
'Dim Node
'Set Node = myXML.documentElement.selectSingleNode("//Result")
Response.write("Loaded")
Set Node = Nothing
Else
Response.Write("Not loaded")
End If
Set SoapRequest = Nothing
Set myXML = Nothing
%>
</body>
</html>