<![CDATA[
<%Response.Buffer=true%>
<%
Response.ContentType = "text/xml"
set xmldom = server.CreateObject("Microsoft.XMLDOM")
set xmlhttp = server.CreateObject("Microsoft.XMLHTTP")
xmldom.load(Request)
set res = xmldom.documentElement.childNodes.item(0).childNodes.item(0)
returnXML = returnXML & "<SOAP:Envelope xmlns:SOAP=""urn:schemas-xmlsoap-org:soap.v1"">"
returnXML = returnXML & "<SOAP:Body>"
returnXML = returnXML & "<message>"
returnXML = returnXML & "<theword>XML Shall Set You Free!</theword>"
returnXML = returnXML & "</message>"
returnXML = returnXML & "</SOAP:Body>"
returnXML = returnXML & "</SOAP:Envelope>"
if res.childNodes.item(0).text = "HotGnibGnabs" and res.childNodes.item(1).text = "What's the word?" then
Response.Write(returnXML)
end if
%>
]]>