Господа, подскажите пожалуйста решение с декодированием данных в VBSCRIPT.
Необходимо валюту из ISO кода перевести в другую.
В SQL это выглядело бы так decode (cur,810,'rur',840,'usd',978,'eur').
Здесь же я просто не понимаю куда и как это вставить. Ниже приведен скрипт

Function AddNull(VarCon,leng,pad)
AddNull=string(leng-len(VarCon),asc(pad)) & VarCon
Exit Function
End Function

Sub main(param)

Set fso = CreateObject("Scripting.FileSystemObject")
path=fso.GetAbsolutePathName("c:")
Set res = CreateObject("MScripts.cResponse")
dim dkprvch,SDB,SKR,SDBcur,SKRcur,NB,Otdel

‘’’’это переменные, которые жестко заложены в таблице
UNO = Param.Vars("UNO").Value()
CUR = Param.Vars("CUR").Value()
POL_RS = Param.Vars("POL_RS").Value()

platdat=mid(platdat,7,2)&mid(platdat,5,2)&mid(platdat,1,4)
created=mid(created,7,2)&"/"&mid(created,5,2)&"/"&mid(created,1,4)
filename = "C:\odb.in"
Set f = fso.OpenTextFile(filename, 8, True)
'’’’’После этого все данные вытягиваться в файлres.Prn "F1"
res.PrnL UNO,6
res.prnl POL_RS,20
res.prnl Cur,3 ‘’в частности валюты ‘’’810,840 необходимо вывести в RUR,USD и т.д.
res.Prnln
f.Write(res.CharToOem(res.Result))
End Sub