ASP VBScript

This shows a code snippet of how to call a web method in ASP.

This does not use the Authenticate method.

<%@ Language=VBScript %>
 
<%
 
strService = "http://999.999.999.999/xweb/secure/netForumXML.asmx/"
 
strPostUrl = strService + "XYZGetIndustryCategory"
 
cPostData = "?code=" + Server.URLEncode(Request("category_code"))
 
 
' Send data to service
Dim objXMLHTTP, strReturn
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "POST", strPostUrl, False
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.Send cPostData
strReturn = objXMLHTTP.responseText
Set objXMLHTTP = Nothing
 
 
' create XML doc to parse response
Set xml = Server.CreateObject("Msxml2.DOMDocument")
xml.loadXML(strReturn)
 
if xml.hasChildNodes=true then
 
    ' first child node
    Set objChildNodes = xml.documentElement.childNodes
 
 
    For Each objNode In objChildNodes 
 
        set objMemberNodes = objNode.childNodes
 
        ' each element in Member results        
        for each memberNode in objMemberNodes
 
            strColumnName  = memberNode.nodeName
 
            xColumnValue = ""
 
            ' make sure there is data
            if memberNode.hasChildNodes( ) then
                xColumnValue   = memberNode.firstChild.text
            end if
 
            Response.Write(strColumnName + "=")
            Response.Write(xColumnValue + "<br>")
 
        next
    next
 
end if
 
%>

See Also

• XWeb:Authenticate ASP VBScript Sample1 - lots of good sample ASP code to use.