| Exchange rates
You asked for the conversion of <%
source_currency = Request.QueryString("s")
IF source_currency = "" THEN
source_currency = "USD"
END IF
target_currency = Request.QueryString("t")
IF target_currency = "" THEN
target_currency = "CHF"
END IF
amount = Request.QueryString("a")
IF amount = "" THEN
amount = "1"
END IF
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
URL = "http://www.x-rates.com/cgi-bin/cgicalc.cgi?value="&amount&"&base="&source_currency
HttpObj.Url = URL
strResult = HttpObj.GetURL
totallength = len(strResult)
position = instr(strResult, "")
newstring = right(strResult, totallength-position-8)
position = instr(newstring, " |
|