Access webservice using ASP

[gihan]

Hi,
I have a problem accessing remote webservice from my asp code. Instead of returning results, it returns list of web methods it has.
Wonder where i'm doing wrong. Also note that, this is a ristricted webservice, which need username password to access and I can't use third party tools (llike xmlspy, webservice studio) to access it and debug. I only got is WSDL.

Here is the WSDL

<wsdl:definitions xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:apachesoap="http://xml.apache.org/xml-soap" xmlns:impl="urn:DefaultNamespace" xmlns:intf="urn:DefaultNamespace" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" targetNamespace="urn:DefaultNamespace">
    <wsdl:types>
        <schema targetNamespace="urn:DefaultNamespace" xmlns="http://www.w3.org/2001/XMLSchema" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
            <import namespace="http://schemas.xmlsoap.org/soap/encoding/"/>
            <complexType name="Person">
                <sequence>
                    <element name="branch" nillable="true" type="xsd:string"/>
                    <element name="branchAcronym" nillable="true" type="xsd:string"/>
                    <element name="division" nillable="true" type="xsd:string"/>
                    <element name="divisionAcronym" nillable="true" type="xsd:string"/>
                    <element name="extNo" nillable="true" type="xsd:string"/>
                    <element name="notesCommonName" nillable="true" type="xsd:string"/>
                    <element name="notesName" nillable="true" type="xsd:string"/>
                    <element name="portfolio" nillable="true" type="xsd:string"/>
                    <element name="positionAcronym" nillable="true" type="xsd:string"/>
                    <element name="positionLevel" type="xsd:int"/>
                    <element name="positionType" nillable="true" type="xsd:string"/>
                    <element name="section" nillable="true" type="xsd:string"/>
                    <element name="sectionAcronym" nillable="true" type="xsd:string"/>
                    <element name="signatureLevel" type="xsd:int"/>
                    <element name="siteCode" nillable="true" type="xsd:string"/>
                    <element name="postNominal" nillable="true" type="xsd:string"/>
                    <element name="familyName" nillable="true" type="xsd:string"/>
                    <element name="personId" nillable="true" type="xsd:string"/>
                    <element name="positionTitle" nillable="true" type="xsd:string"/>
                    <element name="department" nillable="true" type="xsd:string"/>
                    <element name="salutation" nillable="true" type="xsd:string"/>
                    <element name="formalSalutation" nillable="true" type="xsd:string"/>
                    <element name="middleName" nillable="true" type="xsd:string"/>
                    <element name="givenName" nillable="true" type="xsd:string"/>
                </sequence>
            </complexType>
            <complexType name="ArrayOfPerson">
                <complexContent>
                    <restriction base="soapenc:Array">
                        <attribute ref="soapenc:arrayType" wsdl:arrayType="impl:Person[]"/>
                    </restriction>
                </complexContent>
            </complexType>
            <complexType name="Exception">
                <sequence>
                    <element name="errorType" nillable="true" type="xsd:string"/>
                    <element name="message" nillable="true" type="xsd:string"/>
                </sequence>
            </complexType>
        </schema>
    </wsdl:types>
    <wsdl:message name="GetHeadsRequest">
        <wsdl:part name="MS" type="xsd:boolean"/>
        <wsdl:part name="PS" type="xsd:boolean"/>
        <wsdl:part name="GG" type="xsd:boolean"/>
    </wsdl:message>
    <wsdl:message name="GetHeadsResponse">
        <wsdl:part name="GetHeadsReturn" type="impl:ArrayOfPerson"/>
    </wsdl:message>
    <wsdl:message name="GetPersonByCommonNameRequest">
        <wsdl:part name="notesName" type="xsd:string"/>
    </wsdl:message>
    <wsdl:message name="GetIPPLRequest"/>
    <wsdl:message name="GetIPPLResponse1">
        <wsdl:part name="GetIPPLReturn" type="impl:ArrayOfPerson"/>
    </wsdl:message>
    <wsdl:message name="GetMyRecordsResponse">
        <wsdl:part name="GetMyRecordsReturn" type="impl:ArrayOfPerson"/>
    </wsdl:message>
    <wsdl:message name="GetPersonByCommonNameResponse">
        <wsdl:part name="GetPersonByCommonNameReturn" type="impl:ArrayOfPerson"/>
    </wsdl:message>
    <wsdl:message name="GetPeopleBySearchRequest">
        <wsdl:part name="allWords" type="xsd:string"/>
        <wsdl:part name="PeopleOnly" type="xsd:boolean"/>
        <wsdl:part name="SiteOnly" type="xsd:boolean"/>
        <wsdl:part name="currentOnly" type="xsd:boolean"/>
    </wsdl:message>
    <wsdl:message name="Exception">
        <wsdl:part name="Exception" type="impl:Exception"/>
    </wsdl:message>
    <wsdl:message name="GetIPPLRequest1">
        <wsdl:part name="positionLevel" type="xsd:int"/>
    </wsdl:message>
    <wsdl:message name="GetPeopleBySearchRequest1">
        <wsdl:part name="givenNames" type="xsd:string"/>
        <wsdl:part name="lastName" type="xsd:string"/>
        <wsdl:part name="location" type="xsd:string"/>
        <wsdl:part name="PeopleOnly" type="xsd:boolean"/>
        <wsdl:part name="SiteOnly" type="xsd:boolean"/>
        <wsdl:part name="currentOnly" type="xsd:boolean"/>
    </wsdl:message>
    <wsdl:message name="GetMyRecordsRequest"/>
    <wsdl:message name="GetPeopleBySearchResponse">
        <wsdl:part name="GetPeopleBySearchReturn" type="impl:ArrayOfPerson"/>
    </wsdl:message>
    <wsdl:message name="GetIPPLResponse">
        <wsdl:part name="GetIPPLReturn" type="impl:ArrayOfPerson"/>
    </wsdl:message>
    <wsdl:message name="GetPeopleBySearchResponse1">
        <wsdl:part name="GetPeopleBySearchReturn" type="impl:ArrayOfPerson"/>
    </wsdl:message>
    <wsdl:portType name="Directories">
        <wsdl:operation name="GetIPPL">
            <wsdl:input name="GetIPPLRequest" message="impl:GetIPPLRequest"/>
            <wsdl:output name="GetIPPLResponse" message="impl:GetIPPLResponse"/>
            <wsdl:fault name="Exception" message="impl:Exception"/>
        </wsdl:operation>
        <wsdl:operation name="GetIPPL" parameterOrder="positionLevel">
            <wsdl:input name="GetIPPLRequest1" message="impl:GetIPPLRequest1"/>
            <wsdl:output name="GetIPPLResponse1" message="impl:GetIPPLResponse1"/>
            <wsdl:fault name="Exception" message="impl:Exception"/>
        </wsdl:operation>
        <wsdl:operation name="GetHeads" parameterOrder="MS PS GG">
            <wsdl:input name="GetHeadsRequest" message="impl:GetHeadsRequest"/>
            <wsdl:output name="GetHeadsResponse" message="impl:GetHeadsResponse"/>
            <wsdl:fault name="Exception" message="impl:Exception"/>
        </wsdl:operation>
        <wsdl:operation name="GetMyRecords">
            <wsdl:input name="GetMyRecordsRequest" message="impl:GetMyRecordsRequest"/>
            <wsdl:output name="GetMyRecordsResponse" message="impl:GetMyRecordsResponse"/>
            <wsdl:fault name="Exception" message="impl:Exception"/>
        </wsdl:operation>
        <wsdl:operation name="GetPersonByCommonName" parameterOrder="notesName">
            <wsdl:input name="GetPersonByCommonNameRequest" message="impl:GetPersonByCommonNameRequest"/>
            <wsdl:output name="GetPersonByCommonNameResponse" message="impl:GetPersonByCommonNameResponse"/>
            <wsdl:fault name="Exception" message="impl:Exception"/>
        </wsdl:operation>
        <wsdl:operation name="GetPeopleBySearch" parameterOrder="allWords PeopleOnly SiteOnly currentOnly">
            <wsdl:input name="GetPeopleBySearchRequest" message="impl:GetPeopleBySearchRequest"/>
            <wsdl:output name="GetPeopleBySearchResponse" message="impl:GetPeopleBySearchResponse"/>
            <wsdl:fault name="Exception" message="impl:Exception"/>
        </wsdl:operation>
        <wsdl:operation name="GetPeopleBySearch" parameterOrder="givenNames lastName location PeopleOnly SiteOnly currentOnly">
            <wsdl:input name="GetPeopleBySearchRequest1" message="impl:GetPeopleBySearchRequest1"/>
            <wsdl:output name="GetPeopleBySearchResponse1" message="impl:GetPeopleBySearchResponse1"/>
            <wsdl:fault name="Exception" message="impl:Exception"/>
        </wsdl:operation>
    </wsdl:portType>
    <wsdl:binding name="BlaSoapBinding" type="impl:Directories">
        <wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
        <wsdl:operation name="GetIPPL">
            <wsdlsoap:operation/>
            <wsdl:input>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:input>
            <wsdl:output>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:output>
            <wsdl:fault name="Exception">
                <wsdlsoap:fault name="Exception" use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:fault>
        </wsdl:operation>
        <wsdl:operation name="GetIPPL">
            <wsdlsoap:operation/>
            <wsdl:input>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:input>
            <wsdl:output>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:output>
            <wsdl:fault name="Exception">
                <wsdlsoap:fault name="Exception" use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:fault>
        </wsdl:operation>
        <wsdl:operation name="GetHeads">
            <wsdlsoap:operation/>
            <wsdl:input>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:input>
            <wsdl:output>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:output>
            <wsdl:fault name="Exception">
                <wsdlsoap:fault name="Exception" use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:fault>
        </wsdl:operation>
        <wsdl:operation name="GetMyRecords">
            <wsdlsoap:operation/>
            <wsdl:input>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:input>
            <wsdl:output>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:output>
            <wsdl:fault name="Exception">
                <wsdlsoap:fault name="Exception" use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:fault>
        </wsdl:operation>
        <wsdl:operation name="GetPersonByCommonName">
            <wsdlsoap:operation/>
            <wsdl:input>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:input>
            <wsdl:output>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:output>
            <wsdl:fault name="Exception">
                <wsdlsoap:fault name="Exception" use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:fault>
        </wsdl:operation>
        <wsdl:operation name="GetPeopleBySearch">
            <wsdlsoap:operation/>
            <wsdl:input>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:input>
            <wsdl:output>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:output>
            <wsdl:fault name="Exception">
                <wsdlsoap:fault name="Exception" use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:fault>
        </wsdl:operation>
        <wsdl:operation name="GetPeopleBySearch">
            <wsdlsoap:operation/>
            <wsdl:input>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:input>
            <wsdl:output>
                <wsdlsoap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:output>
            <wsdl:fault name="Exception">
                <wsdlsoap:fault name="Exception" use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:DefaultNamespace"/>
            </wsdl:fault>
        </wsdl:operation>
    </wsdl:binding>
    <wsdl:service name="DirectoriesService">
        <wsdl:port name="Bla" binding="impl:BlaSoapBinding">
            <wsdlsoap:address location="http://somewebsite:80/system/webservices.nsf/directoriesservices?OpenWebService"/>
        </wsdl:port>
    </wsdl:service>
</wsdl:definitions>
 

Here is my simple asp page to access the page

<html> 
<head> 
    <META name=VI60_defaultClientScript content=VBScript> 
</head> 
<body> 
<form> 
<input type="button" value="Hello!" name="HelloButton"> 
<script language="VBScript"> 
'<!-- 
sub HelloButton_OnClick() 
 GetXMLSearchResults() 
End Sub 
 
Function GetXMLSearchResults() 
            Dim xmlhttp, strSoapRequest, strSOAPResponse 
            strSOAPResponse = "" 
            Const SoapServer = "somewebsite" 
            Const SoapPath = "/directoriesservices?OpenWebService" 
            Dim  SoapURL 
            SoapURL  = "http://" & SoapServer & SoapPath 
            set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP") 
            'Create SOAP request 
            strSoapRequest = MakeSOAPMessage() 
            ' Set the Headers 
            xmlhttp.Open "GET", SoapURL, False, "Username" ,"password"           ' False = Do not respond immediately 
 
            xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" 
            xmlhttp.setRequestHeader "SOAPAction", "GetPeopleBySearch" 
            'Send SOAP Request 
            xmlhttp.send(strSoapRequest) 
            Response.Write xmlhttp.responseText 
 
            'Response.End 
            strSOAPResponse = "" 
            If Cint(xmlhttp.Status) = 200 Then                                   ' Response from server was success 
                        strSOAPResponse = xmlhttp.responseText 
            Else                                                                  ' Response from server failed 
                        Response.Write "<div class='feedback_error'> Error in accessing search results from the directory web service.<br/>" 
                        Response.Write "ERROR :- " & xmlhttp.status & " - " & xmlhttp.statusText & "</div>" 
            End If 
            set xmlhttp = nothing 
            GetXMLSearchResults = strSOAPResponse 
End Function 
 
 
 
'------------------------------------------------------------------------------------------------------------------------------------------------ 
 
' Create a SOAP reqest to the web service 
 
'------------------------------------------------------------------------------------------------------------------------------------------------ 
 
Function MakeSOAPMessage() 
            Dim strSOAPMessage 
            ' XML tag 
            strSOAPMessage = "<?xml version=""1.0"" encoding=""utf-8""?>" & VBCRLF 
            ' Envelop tag with name spaces 
            strSOAPMessage =  strSOAPMessage & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:soapenc=""http://schemas.xmlsoap.org/soap/encoding/"" xmlns:tns=""http://somewebsite/services/Directories"" xmlns:types=""http://somewebsite/services/Directories/encodedTypes"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"">" & VBCRLF 
            ' ' SOAP body tag 
            strSOAPMessage  = strSOAPMessage  & "<soap:Body soap:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"">" & VBCRLF 
            strSOAPMessage  = strSOAPMessage  & "<q1:GetPeopleBySearch xmlns:q1=""http://somewebsite"">" & VBCRLF 
            strSOAPMessage  = strSOAPMessage  & "<allWords xsi:type=""xsd:string"">" & "smith" & "</allWords>" & VBCRLF 
            strSOAPMessage  = strSOAPMessage  & "<PeopleOnly xsi:type=""xsd:boolean"">" & "false" & "</PeopleOnly>" & VBCRLF 
            strSOAPMessage  = strSOAPMessage  & "<SiteOnly xsi:type=""xsd:boolean"">" & "false" & "</SiteOnly>" & VBCRLF 
            strSOAPMessage  = strSOAPMessage  & "<currentOnly xsi:type=""xsd:boolean"">" & "true" & "</currentOnly>" & VBCRLF 
            strSOAPMessage  = strSOAPMessage  & "</q1:GetPeopleBySearch>"  & VBCRLF 
            strSOAPMessage  = strSOAPMessage  & "</soap:Body>" & VBCRLF 
            strSOAPMessage  = strSOAPMessage  & "</soap:Envelope>" & VBCRLF 
            MakeSOAPMessage = strSOAPMessage 
End Function 
' --> 
 
</script> 
</form> 
</body> 
</html> 
 

and response.write returns this

Bla(wsdl) 
GetIPPL 
GetIPPL 
GetHeads 
GetMyRecords 
GetPersonByCommonName 
GetPeopleBySearch 
GetPeopleBySearch
 

in Bla(wsdl), wsdl have a link to wsdl. so that loads up above wsdl when i click on the link.

Could some one please help me on this.
Thanks in advance.
Gihan.

[jhardman]

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" 
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" 
xmlns:tns="http://somewebsite/services/Directories" 
xmlns:types="http://somewebsite/services/Directories/encodedTypes" 
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
xmlns:xsd="http://www.w3.org/2001/XMLSchema">
   <soap:Body soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
     <q1:GetPeopleBySearch xmlns:q1="http://somewebsite">
        <allWords xsi:type="xsd:string">smith</allWords>
        <PeopleOnly xsi:type="xsd:boolean">false</PeopleOnly>
        <SiteOnly xsi:type="xsd:boolean">false</SiteOnly>
        <currentOnly xsi:type="xsd:boolean">true</currentOnly>
      </q1:GetPeopleBySearch>
   </soap:Body>
</soap:Envelope>

I've never opened a webservice in classic ASP, but I would assume the problem is in the SOAP. Looking over your code I don't see a problem though, and I assume you checked it already?

Jared