Web-сервис за 10 минут
Листинг 2. Код потребителя Web-сервиса
<%
'------------------------------
' Currency Service Consumer
'------------------------------
Set HTTPReq = Server.CreateObject("MSXML2.ServerXMLHTTP")
Set XMLDoc = Server.CreateObject("MSXML2.DOMDocument")
HTTPReq.Open "POST", "http://jupiter/demos/service/server.asp" & _
"?Amount=200&From=FRF&To=USD", False
HTTPReq.Send
XMLDoc.LoadXML HTTPReq.ResponseText
Set Node = XMLDoc.selectSingleNode("/conversion/text")
Response.Write Node.Text
Set Node = Nothing
Set HTTPReq = Nothing
Set XMLDoc = Nothing
%>
