tags:

views:

145

answers:

0

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&amp;_username=MyUserName&amp;_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>