Das ASP-Beispiel ermittelt anhand der Kundennummer [customer_id] 1234, Postleitzahl [zip] 98716, Staat [state] D alle im Umkreis [radius] von 20 Kilometer gelegenen PLZ-Ort-Kombinationen. Die Anzahl der Ergebnisse [limit] wird auf max. 100 begrenzt.
Es wird die XML-RPC-Bibliothek von David Carter-Tod (http://david.carter-tod.com/XMLRPC/default.asp benutzt:

<!--#include file="xmlrpc.asp" -->
<?%
' Übergabe-Parameter setzen
DIM paramList(4)
DIM url
SET dict=Server.createObject("Scripting.Dictionary")
paramList(0) = 1234
paramList(1) = "98716"
paramList(2) = 20
paramList(3) = "D"
dict.add "charset", "UTF-8"
dict.add "limit", 100
dict.add "password", "IhrPasswort"
SET paramList(4)=dict

' Funktion von ebaas distance aufrufen
url = "http://www.ebaas.de/XML-RPC/ebaas-distance.php"
myresp = xmlRPC (url, "ebaasDistance.showRelated", paramList)

' Rückgabe als XML anzeigen
' RESPONSE.write("<pre>")
' RESPONSE.write(REPLACE(serverResponseText, "<", "& lt;", 1, -1, 1))
' RESPONSE.write("</pre>")

' Ergebisse ausgeben
IF NOT ISEMPTY(myresp) THEN
   RESPONSE.write("<table border='1'>")
   FOR i = 0 TO UBOUND(myresp)
      RESPONSE.write("<tr><td>" & myresp(i).Item("zip"))
      RESPONSE.write("</td><td>" & myresp(i).Item("distance"))
      RESPONSE.write("</td><td>" & myresp(i).Item("loc1"))
      RESPONSE.write("</td><td>" & myresp(i).Item("loc2"))  
      RESPONSE.write("</td></tr>")
   NEXT
   RESPONSE.write("</table>")
END IF
%>

Bemerkungen:
Kundennummer (hier 1234) und Script-Name (hier /XML-RPC/ebaas-distance.php) bekommen Sie nach Anmeldung zum Testzugang bzw. nach Kauf der Lizenz von uns per Email an die von Ihnen angegebene Adresse übermittelt.