Как взять курс $ с ЦБ РФ при помощи ASP

[IAMRAT]

Помогите, очень нужно, пример
Заранее благодарен

[OldRunaways]

С помощью WinHTTPRequest скачиваешь РБКшный курс валют ( http://stock.rbc.ru/demo/cb.0/daily/USD ... ml?show=3M
). Затем парсишь полученные данные с целью выделения из них интересующей тебя информации. В ближайшее время выложу код.

P.S. Может кто нибудь знает... есть ли на РБК (или где нибудь ещё) специальные запросы в ответ на которые возврашается только интересующая меня информация. (что бы не парсить ХТМЛ). Думаю, что на РБК такое должно быть. (типа "http://stock.rbc.ru/demo/cb.0/daily/USD.rus.shtml?<название переменной>=<значение переменной>"... возвращает только текущий курс УСД)

[OldRunaways]

Вот, как и обещал... данный код возвращает курс ЦБРФ не текущий банковский день.

Код: Выделить всё

<%@ Language=VBScript%>
<%
'----------------------------------------Rus---------------------------------------------------
function Rus (text)
'Переводим на Русский язык
  Const adFldLong = &H00000080
  Const adVarChar = 200
  Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Fields.Append "txt", adVarChar, 100, adFldLong
    objRS.Open
    objRS.AddNew
    objRS.Fields("txt").AppendChunk text
    rus = objRS("txt").Value
  objRS.Close
  Set objRS = Nothing
end function
'----------------------------------------GetUsdRate---------------------------------------------------
Function GetUsdRate()
  'Запрашиваем Курс с ЦБРФ
  'on error resume next
  Dim Obj
  Set Obj = CreateObject("WinHttp.WinHttpRequest.5.1")
  Obj.SetTimeouts 3000, 3000, 3000, 3000
  Obj.Open "GET", "http://cbrates.rbc.ru/tsv/840/" & year(now) & "/" & month(now) & "/" & day(now) & ".tsv", false
  Obj.setRequestHeader "USER_AGENT", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)"
  Obj.Send
  GetUsdRate = Obj.ResponseBody
  Set Obj = Nothing
end Function
'-----------------------------------------------------------------------------------------------------
Dim USD, dateUSD, i
USD = Rus(GetUsdRate())
Response.Write right(USD,len(USD)-2)
%>

[codemaster]

Помогите, очень нужно, пример
Заранее благодарен

см. на сайте ЦБ !?
http://cbr.ru/scripts/Root.asp?Prtid=SXML