Problema al utilizar un Web Service

[Motki]

Hola,
Debo utilizar un web service. Le paso el login y password y obtengo un xml con el identificador.
El problema es que la página que me devuelve está en blanco y no sé si lo estoy realizando correctamente:
Esta es la especificacion del Web Service :

Código PHP:

 HTTP POST
The following is a sample HTTP POST request and response. 
The placeholders shown need to be replaced with actual values.
POST /directorio/login.asmx/identificacion HTTP/1.1
Host: midominio.com
Content-Type: application/x-www-form-urlencoded
Content-Length: length
identificador=string&password=string
HTTP/1.1 200 OK
Content-Type: text/xml; charset=utf-8
Content-Length: length
<?xml version="1.0"?>
xml  

y este es mi ASP

Código PHP:

  Set xmlhttp1 = Server.CreateObject("Msxml2.ServerXMLHTTP") 
URL ="http://midominio.com/directorio/login.asmx/identificacion?identificador=111&password=111"
xmlhttp1.Open "POST",URL, False 
xmlhttp1.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
xmlhttp1.setRequestHeader "Content-Length", "1024"
xmlhttp1.Send() 
 
response.write xmlhttp1.responseXML.text 
   

Estoy utilizandolo de forma correcta?, como puedo obtener el XML?

Gracias

[Motki]

Ya lo tengo solucionado...
os dejo la solñución por si a alguien le ocurre lo mismo...
El problema lo tenia al pasar las variables por POST no se deben poner en la URL ..

[php]
URL =http://midominio.com/directorio/login.asmx/identificacion

Código PHP:

  Set xmlhttp1 = Server.CreateObject("Msxml2.ServerXMLHTTP")
xmlhttp1.Open "POST",URL, False 
xmlhttp1.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
xmlhttp1.setRequestHeader "Content-Length", "11024"
xmlhttp1.Send("identificador=111&password=111") 
   

'PAra manipular los datos :

Código PHP:

  repuperamos y manipulamos el objeto XML
Set objetoXML = Server.CreateObject("Microsoft.XMLDOM")
Set objLst = Server.CreateObject("Microsoft.XMLDOM")
objetoXML.loadXML xmlhttp1.responseXML.xml
Set objLst = objetoXML.getElementsByTagName("*")
For i = 0 to (objLst.length)-1
If objLst.item(i).nodeName = "idf" Then
StrDate = objLst.item(i).text
response.write "-->"&StrDate
Exit For
End If
Next