<%
private function GetRates(strAbbreviation, strCurrency, intExtraChar)
Const strDivider = " | "
Dim lngStartPosition
Dim strBuying
Dim strSelling
Dim strEffectiveBuying
Dim strEffectiveSelling
Dim strBuildRates
lngStartPosition = InStr(strContent, strAbbreviation)
if lngStartPosition <> 0 then
strBuying = Trim(Mid(strContent, lngStartPosition +38 -intExtraChar, 7))
strSelling = Trim(Mid(strContent, lngStartPosition +51 -intExtraChar, 7))
strEffectiveBuying = Trim(Mid(strContent, lngStartPosition +67 -intExtraChar, 7))
strEffectiveSelling = Trim(Mid(strContent, lngStartPosition +80 -intExtraChar, 7))
if strBuying <> "" then strBuildRates = strBuildRates & "Alış " & strBuying & strDivider
if strSelling <> "" then strBuildRates = strBuildRates & "Satış " & strSelling & strDivider
if strEffectiveBuying <> "" then strBuildRates = strBuildRates & "Efektif Alis " & strEffectiveBuying & strDivider
if strEffectiveSelling <> "" then strBuildRates = strBuildRates & "Efektif Satis " & strEffectiveSelling
if strBuildRates <> "" then strBuildRates = "![]()
" & strCurrency & ": " & strBuildRates & " "
end if
'Return
GetRates = strBuildRates
end function
Const strSourceURL = "http://www.tcmb.gov.tr/kurlar/today.html"
'Dim objAspTear
Dim strContent
Dim objXmlHttp
Dim strBuildRatesHTML
Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP" )
objXmlHttp.Open "Get", strSourceURL, false
objXmlHttp.Send
strContent = objXmlHttp.ResponseText
Set objXmlHttp = Nothing
'Set objAspTear = Server.CreateObject("Softwing.AspTear")
'strContent = objAspTear.Retrieve(strSourceURL, 2, "", "", "")
'Set objAspTear = Nothing
strBuildRatesHTML = "T.C Merkez Bankası Döviz Kurları - "
strBuildRatesHTML = strBuildRatesHTML & GetRates("EUR", "EURO", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("USD", "DOLAR", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("GBP", "İNGİLİZ STERLİNİ", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("CHF", "İSVİÇRE FRANGI", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("AUD", "AVUSTRALYA DOLARI", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("CAD", "KANADA DOLARI", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("DKK", "DANİMARKA KRONU", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("SEK", "İSVEÇ KRONU", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("NOK", "NORVEÇ KRONU", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("JPY", "JAPON YENİ", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("KWD", "KUVEYT DİNARI", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("SAR", "ARABİSTAN RİYALİ", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("IRR", "İRAN RİYALİ", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("SYP", "SURİYE LİRASI", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("JOD", "ÜRDÜN DİNARI", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("ROL", "RUMEN LEYİ", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("BGL", "BULGAR LEVASI", -2)
strBuildRatesHTML = strBuildRatesHTML & GetRates("ILS", "YENİ İSRAİL ŞEKELİ", -2)
%>