<% On Error Resume Next Dim objXmlHttp Dim strHTML Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP") objXmlHttp.open "GET", "http://www.tcmb.gov.tr/kurlar/today.html", False objXmlHttp.send if Err <> 0 then Response.Write "
TCMB'ye bağlanılamadı
" Response.Write Err.Description & "

" end if strHTML = objXmlHttp.ResponseText Set objXmlHttp = Nothing SayfaKodu = Server.HTMLEncode(strHTML) ' yer = Instr(1,SayfaKodu,"ABD DOLARI") dAlis = Mid(SayfaKodu,yer+60,6) oneusdytl = Mid(SayfaKodu,yer+73,6) yer2 = Instr(1,SayfaKodu,"EURO") oneeuroytl = Mid(SayfaKodu,yer2+73,6) eAlis = Mid(SayfaKodu,yer2+60,6) yer3 = Instr(1,SayfaKodu,"GBP") sAlis = Mid(SayfaKodu,yer3+110,6) onegbpytl = Mid(SayfaKodu,yer3+97,6) yer4 = Instr(1,SayfaKodu,"USD/EUR") ED = Mid(SayfaKodu,yer4+42,6) yer5 = Instr(1,SayfaKodu,"USD/GBP") onegbpusd = Mid(SayfaKodu,yer5+72,6) %> <% dim gbpeuro,onegbp,eurogbp,oneeuro,gbpytl,ytlgbp,xxx,gbpusd,usdgbp,ytlgbpsonuc,gbpytlsonuc,onegbpusd dim ilkdeger,ikincideger,ilksecim,ikincisecim ilkdeger = request.form("ilkdeger") ilksecim = request.form("ilksecim") ikincisecim = request.form("ikincisecim") oneusdgbp = 1/onegbpusd oneytlgbp = 1/onegbpytl oneytleuro = 1/oneeuroytl oneytlusd = 1/oneusdytl oneusdeuro = oneusdytl/oneeuroytl oneeurousd = oneeuroytl/oneusdytl oneeurogbp = ED/onegbpusd onegbpeuro = onegbpusd/ED if ilksecim="EURO" and ikincisecim="GBP" then ikincideger = oneeurogbp * ilkdeger ilk="EUR" son="GBP" aciklamailk="(EURO)" aciklamason="(United Kingdom Pounds)" else if ilksecim="EURO" and ikincisecim="YTL" then ikincideger = oneeuroytl * ilkdeger ilk="EUR" son="YTL" aciklamailk="(EURO)" aciklamason="(Yeni Türk Lirası)" else if ilksecim="EURO" and ikincisecim="USD" then ikincideger = oneeurousd * ilkdeger ilk="EUR" son="USD" aciklamailk="(EURO)" aciklamason="(United States Dollars)" else if ilksecim="GBP" and ikincisecim="EURO" then ikincideger = onegbpeuro * ilkdeger ilk="GBP" son="EUR" aciklamailk="(United Kingdom Pounds)" aciklamason="(EURO)" else if ilksecim="GBP" and ikincisecim="USD" then ikincideger = onegbpusd * ilkdeger ilk="GBP" son="USD" aciklamailk="(United Kingdom Pounds)" aciklamason="(United States Dollars)" else if ilksecim="GBP" and ikincisecim="YTL" then ikincideger = onegbpytl * ilkdeger ilk="GBP" son="YTL" aciklamailk="(United Kingdom Pounds)" aciklamason="(Yeni Türk Lirası)" else if ilksecim="USD" and ikincisecim="EURO" then ikincideger = oneusdeuro * ilkdeger ilk="USD" son="EUR" aciklamailk="(United States Dollars)" aciklamason="(EURO)" else if ilksecim="USD" and ikincisecim="GBP" then ikincideger = oneusdgbp * ilkdeger ilk="USD" son="GBP" aciklamailk="(United States Dollars)" aciklamason="(United Kingdom Pounds)" else if ilksecim="USD" and ikincisecim="YTL" then ikincideger = oneusdytl * ilkdeger ilk="USD" son="YTL" aciklamailk="(United States Dollars)" aciklamason="(Yeni Türk Lirası)" else if ilksecim="YTL" and ikincisecim="EURO" then ikincideger = oneytleuro * ilkdeger ilk="YTL" son="EUR" aciklamailk="(Yeni Türk Lirası)" aciklamason="(EURO)" else if ilksecim="YTL" and ikincisecim="GBP" then ikincideger = oneytlgbp * ilkdeger ilk="YTL" son="GBP" aciklamailk="(Yeni Türk Lirası)" aciklamason="(United Kingdom Pounds)" else if ilksecim="YTL" and ikincisecim="USD" then ikincideger = oneytlusd * ilkdeger ilk="YTL" son="USD" aciklamailk="(Yeni Türk Lirası)" aciklamason="(United States Dollars)" end if end if end if end if end if end if end if end if end if end if end if end if ilkdeger=FormatNumber(ilkdeger,2) ikincideger=FormatNumber(ikincideger,2) %>


MET METAL DÖVİZ KURLARI HESABI

Miktarı Girin girdiğiniz miktarın birimi sonuc miktarının birimi
 

 
<% if ilkdeger="" then response.write "Please Type Amount " else %>
<%=ilkdeger%>  <%=ilk%>  =  <%=ikincideger%>  <%=son%>
<%=aciklamailk%>    <%=aciklamason%>
<% end if %>
 
(1 GBP = <%=formatnumber(onegbpytl,2)%> YTL) (1 EUR = <%=formatnumber(oneeurogbp,2)%> GBP) (1 USD = <%=formatnumber(oneusdgbp,2)%> GBP) (1 YTL = <%=formatnumber(oneytlgbp,2)%> GBP)
(1 GBP = <%=formatnumber(onegbpeuro,2)%> EURO) (1 EUR = <%=formatnumber(oneeuroytl,2)%> YTL) (1 USD = <%=formatnumber(oneusdytl,2)%> YTL) (1 YTL = <%=formatnumber(oneytleuro,2)%> EURO)
(1 GBP = <%=formatnumber(onegbpusd,2)%> USD) (1 EUR = <%=formatnumber(oneeurousd,2)%> USD) (1 USD = <%=formatnumber(oneusdeuro,2)%> EURO) (1 YTL = <%=formatnumber(oneytlusd,2)%> USD)