% Dim str Dim i Dim xrate Dim USD Dim tmp function GetHTML(url) Set objXML = server.CreateObject("Microsoft.XMLHTTP") objXML.open "GET", url, false objXML.send() If(objXML.status=404) Then response.write("Document doesn't exist...") Else GetHTML = objXML.responseText End If Set objXML = nothing end function str = GetHTML("http://www.rba.gov.au/Statistics/exchange_rates.html") i = Instr(1,str,"United States dollar") xrate = Mid(str,i+247,6) tmp = Split(100 * xrate,".") USD = tmp(0) %>
Auratech Software
presents
BRANDED LINK CLOAKER SOFTWARE
Online Order Form
Please complete your details below and you'll then be transferred to our E-commerce Provider's Secure Payment processing, so that we don't even get to see your credit card details.
If you would like to purchase by other means (phone, fax, or post), please contact Sales at Auratech.