Function Main()
dim http, symbol, last_trade, trade_date, trade_time, value_change, open_value, trade_high, trade_low, daily_volume, results_array
set http = createobject("msxml2.serverxmlhttp")
http.open "GET", "http://finance.yahoo.com/d/quotes.csv?s=SBC&f=sl1d1t1c1ohgv&e=.csv", 0
http.send()
if http.status = 200 then
results_array = split(http.responsetext, ",")
symbol = results_array(0)
last_value = results_array(1)
trade_date = results_array(2)
trade_time = results_array(3)
value_change = results_array(4)
open_value = results_array(5)
trade_high = results_array(6)
trade_low = results_array(7)
trade_volume = results_array(8)
set http = nothing
main = DTSTaskExecResult_Success
else
main = DTSTaskExecResult_Failure
end if
End Function

Home