<%
'the Currency Exchange Calculator asp code
On Error Resume Next
rqst=Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO")
url="http://www.onyoursite.com/data/cxc.htp?rqst="&rqst
set Http = server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
Http.Open "GET", url, False
Http.Send
Dim cxc
cxc = Http.responseText
response.write (cxc)
Set Http = nothing
%>