<% submitCustomer = trim(Request.Form("customerNumber")) attemptCounter = trim(Request.Form("attemptCounter")) if attemptCounter = "" then attemptCounter = 0 end if attemptCounter = attemptCounter + 1 xmlReqText = "" xmlRspText = "" if submitCustomer <> "" then ReDim paramList(1) set dict=Server.createObject("Scripting.Dictionary") dict.add "customerNumber",trim(Request.Form("customerNumber")) set paramList(0)=dict set dict=nothing xmlReqText = "XMLRPC Request
" xmlReq = functionToXML("WS_rxDemo.getCustomerAddress", paramList) for i = 1 to len(xmlReq) tempChar = "" if i part of the XML Document set structDoc=CreateObject("MSXML2.DOMDocument") structDoc.async = False structDoc.loadXML(responseDoc.documentElement.childNodes.item(0).firstChild.firstChild.xml) updateSuccessful = "0" checkFault = structDoc.documentElement.childNodes.item(0).firstChild.firstChild.nodeValue commaDisplay = "" ' childNodes.length is the number of if checkFault <> "faultCode" then For i = 0 To (structDoc.documentElement.childNodes.length - 1) eCode = "" eCode = eCode + structDoc.documentElement.childNodes.item(i).firstChild.firstChild.nodeValue eCode = eCode + "=""" If structDoc.documentElement.childNodes.item(i).lastChild.lastChild.hasChildNodes Then eCode = eCode + structDoc.documentElement.childNodes.item(i).lastChild.lastChild.lastChild.nodeValue end if eCode = eCode + """" execute (eCode) Next if customerName = "" then commaDisplay = "" else commaDisplay = "," end if end if end if %>

Simple Example   Sage MAS 90 ABC Demo Data is being used for this example. We are going to send an XML-RPC request from our Microsoft IIS Server, located in downtown Chicago, to our RemoteXerver installation, located in our offices in Skokie. RemoteXerver, using the ProvideX Web Engine installed for e-Business Manager, runs the specified program/procedure to retrieve the data requested and returns it to the requesting entity. On the Microsoft IIS Server This ASP page was written to accept the entered customer number and package the request in the XML-RPC format. We are using an ASP XML-RPC package we found at SourceForge.NET. To download this page, right click here, and select 'Save Target As'. On the ProvideX Web Server A ProvideX program was written that accepts the customer number as a parameter, then opens and reads the customer file. On a successful read, the response is formatted using RemoteXerver. Sample Customer Numbers: 01-ABF, 01-AVNET, 02-CAPRI (any ABC Demo Data Customer will work.)     Customer Number: >       <%=(customerName)%>   <%=(AddressLine1)%>   <%=(AddressLine2)%>   <%=(AddressLine3)%>   <%=(City)%><%=(commaDisplay)%> <%=(State)%>  <%=(ZipCode)%>     <%=(xmlReqText)%>    <%=(xmlRspText)%>