<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
url = "http://localhost/simulate.xml"
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
Call objXMLHTTP.Open("GET", url, False)
Call objXMLHTTP.Send()
Set objXMLDOM = objXMLHTTP.ResponseXml
recipient = objXMLDOM.SelectSingleNode("//ROOT/RECIPIENT").Text
result = objXMLDOM.SelectSingleNode("//ROOT/RESULT").Text
processingtime = objXMLDOM.SelectSingleNode("//ROOT/PROCESSINGTIME").Text
Response.Write("INSERT INTO t VALUES(" & recipient & ",'" & result & "'," & processingtime & ")")
Set objXMLDOM = Nothing
Set objXMLHTTP = Nothing
%>