VBScript Calling web service

I will give it a try and post back.

I created a Web Method in a C# asmx (DSNLoadDropDown) that takes in a SQL statement, and returns the appropriate number of fields based on the input SQL and returns a string that can be parsed and processed accordingly.  I have tested this in C#, sending in SQL, and returning strings that I have processed accordingly.


However, the problem is, that the form is classic ASP.  So I have been working on a test classic ASP page to make a call and return data to it.  I am using the following code:

option explicit
dim oXMLDoc
dim oXMLHTTP
dim strEnvelope
dim strSQL
dim oXMLNodes

function ProcessSend()  
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
    Set oXMLDoc = CreateObject("MSXML2.DOMDocument")
    msgbox"Ready state is " & oXMLHTTP.readyState


    oXMLHTTP.onreadystatechange = getRef("HandleStateChange")  
 
    'strEnvelope = "select ModalityName from Modality"
    strEnvelope = ""
    strSQL = "('select ModalityName from Modality')"
    msgbox"strSQL is " & strSQL

    call oXMLHTTP.open("POST","http://localhost/XXXX.TRUNK/Common/Services/DataScriptService.asmx?op=DSNLoadDropDown" & strSQL,false)'[[ changed true to false here.
    'call oXMLHTTP.open("POST","http://localhost/XXXX.TRUNK/Common/Services/DataScriptService.asmx?op=DSNLoadDropDown",false)'[[ changed true to false here.
   
    'call oXMLHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
    call oXMLHTTP.setRequestHeader("Content-Type", "text/xml; charset=utf-8")

 
    'call oXMLHTTP.send(strEnvelope)
    call oXMLHTTP.send()

    dim strResponseText
    dim strResponseXML
    dim strStatusText
    dim strStatus
    dim sHeaders
    dim strResponseBody

    strResponseText = oXMLHTTP.responseText
    msgbox"strResponseText " & strResponseText
    strStatusText = oXMLHTTP.statusText
    msgbox"strStatusText " & strStatusText
    strStatus = oXMLHTTP.status
    msgbox"strStatus " & strStatus
    sHeaders = oXMLHTTP.getAllResponseHeaders()
    msgbox"sHeaders " & sHeaders



end function
 
Sub HandleStateChange
    dim Root
    dim NodeList
    dim response
    dim Elem
    msgbox"Ready state inside HandleStateChange is " & oXMLHTTP.readyState
    if(oXMLHTTP.readyState = 4) then
        dim szResponse: szResponse = oXMLHTTP.responseText
        call oXMLDoc.loadXML(szResponse)
        if(oXMLDoc.parseError.errorCode [] 0) then
                msgbox"Ready state is " & oXMLHTTP.readyState
                msgbox"errorCode " & oXMLDoc.parseError.errorCode
                call msgbox("ERROR")
                response = oXMLHTTP.responseText&" "&oXMLDoc.parseError.reason
                call msgbox(oXMLDoc.parseError.reason)
        else
                msgbox"errorCode value in HandleStateChange else side  " & oXMLDoc.parseError.errorCode
                Set NodeList = oXMLDoc.getElementsByTagName("*")
                                For Each Elem In NodeList
                                                document.write(Elem.tagName)
                                Next

        end if
 
    end if
End Sub


If I use the call oXMLHTTP.send(strEnvelope) where strEnvelope contains the SQL, I get the following error returned:

the root level is invalid
 

If I use call oXMLHTTP.send() I get the following:

the root level is missing
 


The current issue is to make a call from a classic ASP page to the web service created in C# 2008.