Source: QNB <% dim objtXMLHTTP URL = "http://www.qnb.com.qa/qnb/enexchangeRate/exchangeRates.jsp?name=usd" Set objtXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objtXMLHTTP.Open "GET", URL, false objtXMLHTTP.Send start = InStr(objtXMLHTTP.responsetext, "Exchange Rates against") finish = InStr(objtXMLHTTP.responsetext, "") amount = finish - start extract = Mid(objtXMLHTTP.responsetext,start,amount) fxrate = replace(replace(extract,"/qnb/enexchangeRate/exchangeRates.jsp?name=normal","default.asp"), "/qnb/enexchangeRate/exchangeRates.jsp?name=usd","usd.asp") 'Response.Write "
" 'Response.Write "

HTML Code for "&URL&"

" 'Response.Write "" Set objtXMLHTTP = Nothing %>