calling .net webservice from vbscript

Hi,
 
I need to call a .net webservice from classic asp.
The webservice
 
I wrote the function using get and it works. However, I am having problems writing it using post method.
can someone please help?
 
Here is my code using get method:

  
 Function consumeWebService() 
    
     Dim webServiceUrl, httpReq, node, myXmlDoc, param 
   
 webServiceUrl ="http://xxxxxx/SSO_WS/SSOWS.asmx/GetSessionIdentifier?userId=test&xml=<?xml version='1.0' encoding='utf-8' ?><User><Name>todd@test.com</Name><Profile>4</Profile></User>&appName=kb"
 
        dim responseXML
  Set responseXML = CreateObject("Microsoft.XMLDOM") 
  Set objServerXML = CreateObject("MSXML2.ServerXMLHTTP.3.0")
  responseXML.async = False
  objServerXML.setTimeouts 120*1000,120*1000,5*60*1000,60*60*1000
  With objServerXML
  Call .open("GET", webServiceUrl , False)
  Call .send'(strXMLInput)
  SendViaXML = Stream_BinaryToString(objServerXML.responseBody, "UTF-8")
  End With
  responseXML.loadXML(SendViaXML)
  
  
 dim xmlstring, xmldoc
 
  set xmldoc=Server.CreateObject("Microsoft.XMLDOM")'
 
  xmldoc.loadXML responseXML.documentElement.Text
  
  'set node = nothing
  set nodeCode = xmldoc.selectSingleNode("/Result/Code")
 
  if nodeCode is nothing then
  response.write "Could not find node"
  else
  if nodeCode.text=0 then
  set nodeData = xmldoc.selectSingleNode("/Result/Data")
  sessionid=(nodeData.text)
  end if
  end if
 
       consumeWebService= sessionid
 End Function
 

escape the XML before you stick it in the url

use the "POST" argument in the Open Method

you also need to specify the appropriate Content-Type or the server will reject your POST

.setRequestHeader"Content-Type","application/x-www-form-urlencoded;charset=UTF-8")
.setRequestHeader("Content-length", Length of your data)
.setRequestHeader("Connection", "close")

I didnt see this before, but if you are using POST. take the data off of the url and put it in the Send method