Como consumir un Web Service con Asp???

[rats]

Hola quisiera ver si alguien sabe a grandes razgos como puedo consumir un web service desde una pagina asp, se que con .net esto es sencillo, pero nunca lo he hecho desde asp normal, se requiere algun componente extra o algo en especifico?, cualquier ayuda la agredecere, saludos.

[Complot]

Para invocar a un WebServices, lo puedes hacer con server.CreateObject("WinHttp.WinHttpRequest.5.1") .

Acá hay un ejemplo http://turboprogramacion.blogspot.com/2008/12/consumir-web-services-de-indicadores.html

Saludos

[Valery-Net]

Puedes hacerlo también con Soap, el link que te indica Complot es un excelente ejemplo

[Xellos]

yo tengo una pagina mucho mejor:
aqui delante va www .elguille.info/colabora/NET2005/mszklanny_WebServices_con_plataformas_no_NET.htm y lo puse asi por q es q no me dejan aqui ingresar la direccion completa
pero tengo un problema que esta ya por encima de este script y es que tengo una funcion de xsltransform q me convierte a html tomando el template xsl y el archivo xml, hasta alli todo bien, pero en mi script que aprovecho un webservice la variable correspondiente a el archivo xml es asi:xmlResponse.documentElement.text y la funcion es esta, gracias a quien me pueda ayudar, la idea seria modificar esta funcion para que acepte ese valor y no el path del archivo xml:
Function xsltransform(xmlfile,xslfile,strOptionalParam1,str OptionalParam2)
dim objXML
dim objXSL
dim templates
dim transformer

Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocumen t.3.0")
objXML.async = false

Set objXSL = Server.CreateObject("MSXML2.FreeThreadedDOMDocumen t.3.0")
objXSL.async = false

'set the parser properties
objXML.ValidateOnParse = True
objXSL.ValidateOnParse = True

'load the source XML document and check for errors
objXML.load Server.MapPath(xmlfile)
if objXML.parseError.errorCode <> 0 Then
'error found so show error message and stop
Response.End
end if

'load the XSL stylesheet and check for errors
objXSL.load Server.MapPath(xslfile)
if objXSL.parseError.errorCode <> 0 Then
'error found so show error message and stop
Response.End
end if

Set templates = Server.CreateObject("Msxml2.XSLTemplate.3.0")
templates.stylesheet = ObjXSL
Set transformer = templates.createProcessor()
if len(strOptionalparam1) then
transformer.addParameter "param1", strOptionalParam1
end if
if len(strOptionalparam2) then
transformer.addParameter "param2", strOptionalParam2
end if
transformer.input = objXML
transformer.transform()
xsltransform = transformer.output
end function

'Aqui llamo directamente a la función que esta al mismo nivel que Cabecera.xml y Cabecera.xsl verificando que la funcion si funciona pero quiero pasarle
'este valor : xmlResponse.documentElement.text
dim xmlfile
xmlfile = "Cabecera.xml"
response.write xsltransform(xmlfile,"Cabecera.xsl","","")