ASP - Llamar un Servio web

Hola,
Alguien me podrá ayudar, necesito llamar un Servicio web que está en un servidor donde me pide usuario y clave, he tratado de diferentes formas, de echo con .net no tengo dramas, tampoco llamando a un servicio local, pero tiene que ser con ASP clásico, tengo el siguiente :

<%

Dim xmlhttp
Dim DataToSend
Dim postUrl, SoapServer, SoapPath

postUrl = "http://servidor:xx/dir/servicio.asmx/metodo"
SoapServer = "servidor "
SoapPath = "/ dir/servicio.asmx "

DataToSend = "Param1=AA&Param2=EE&Param3=SSS”
Response.write postURL

Response.write "<br>"

Set xmlhttp = Server.Createobject("MSXML2.ServerXMLHTTP")

xmlhttp.Open "POST", postUrl, False, "usuario", "clave"
xmlhttp.setRequestHeader "Man", "POST " & SoapPath & " HTTP/1.1"
xmlhttp.setRequestHeader "Host", SoapServer
xmlhttp.setRequestHeader"Content-Type","application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/metodod"

xmlhttp.send DataToSend

Response.write xmlhttp.responseText

%>
gracias