Live Currency Conversion using Google

**jazzy639** · May 20th, 2010, 04:57 PM

Hey

I needed to do some currency conversion and it turned out really simple, thought I'd share the function:

Code:

Private Function convertcurrency(fromcurrency, tocurrency, amount, decimalplace)
	url = "http://www.google.com/ig/calculator?hl=en&q=" & amount & fromcurrency & "%3D%3F" & tocurrency
	set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
	xmlhttp.open "GET", url, false 
	xmlhttp.send "" 
	output = xmlhttp.responseText 
	set xmlhttp = nothing 
		
	output = Split(output,"""")
	arrconverted = Split(output(3)," ")
	convertcurrency = Round(arrconverted(0),decimalplace)
End Function

PS this forum seems to be adding a space to "decimalplace"

**Shadow Wizard** · May 26th, 2010, 10:23 AM

Originally Posted by jazzy639

PS this forum seems to be adding a space to "decimalplace"

indeed, that's part of the "break long words" mechanism of the
forums that prevent horizontal scroll bar.. I fixed that by
spacing the parameters of the function.

thanks for sharing!

**Joggi** · October 17th, 2011, 03:53 AM

I'm recieving an error when using this code.
anyone tell me where i'm going wrong?

Error:
msxml3.dll (0x80072EFE)
The connection with the server was terminated abnormally
/test/cur.asp, line 11

Code:

Code:

<html>
<head>
</head>
<body>
<%
Private Function convertcurrency(fromcurrency, tocurrency, amount, decimalplace)
	url = "http://www.google.com/ig/calculator?hl=en&q=" & amount & "+" & fromcurrency & "+in+" & tocurrency

	set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
	xmlhttp.open "GET", url, false
	xmlhttp.send "" 


	output = xmlhttp.responseText 


	set xmlhttp = nothing 
		
	output = Split(output,"""")
	arrconverted = Split(output(3)," ")
	convertcurrency = Round(arrconverted(0),decimalplace)
End Function

response.write(convertcurrency("USD","GBP",1,2))
%>
</body>
</html>

Threads:	525,379
Posts:	976,969
Members:	220,002

Developer Shed Network

ASP Free Login

Menu

Thread: Live Currency Conversion using Google