Degisen döviz kodlari……
Degisen döviz kodlari……
Degisen döviz kodlari…..
codeDivStart()
<%
'XMLHTTP Open
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
'XMLHTTP Close
URL = "http://www.tcmb.gov.tr/kurlar/today.html"
bilgicek = GETHTTP(URL)
a=InStr(1,bilgicek,"USD" )
dolar1=Mid(bilgicek,a+45,10)
dolar2=Mid(bilgicek,a+60,10)
b=InStr(1,bilgicek,"GBP" )
sterlin1=Mid(bilgicek,b+35,15)
sterlin2=Mid(bilgicek,b+50,15)
c=InStr(1,bilgicek,"EUR" )
euro1=Mid(bilgicek,c+44,11)
euro2=Mid(bilgicek,c+59,11)
d=InStr(1,bilgicek,"USD/EUR" )
kur1=Mid(bilgicek,d+42,13)
%>
<style>
table {font-family: arial; font-size: 11;}
a {color: #000000; text-decoration: bold}
a:hover {color: #FF0000}
body {font-family: arial; font-size: 11;}
h2 {color: #000000}
<!--
a{text-decoration:none}
//-->
</style>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse:
collapse" bordercolor="#111111" width="131" id="AutoNumber2" height="43">
<tr>
<td width="64" height="20" style="border-left-style:none;
border-left-width:medium; border-right-style:none;
border-right-width:medium; border-bottom-style:none;
border-bottom-width:medium" rowspan="2" valign="top">
<b><font size="1" face="Verdana">Dolar</font></b></td>
<td width="67" height="10"><font size="1" face="Verdana"><%=dolar1
%></td>
</tr>
<tr>
<td width="67" height="10"><font size="1" face="Verdana"><font
color="#808080"><%=dolar2 %></td>
</tr>
<tr>
<td width="64" height="20" style="border-style: none; border-width:
medium" rowspan="2" valign="top">
<b><font size="1" face="Verdana">Euro</font></b></td>
<td width="67" height="10"><font size="1" face="Verdana"><%=euro1
%></td>
</tr>
<tr>
<td width="67" height="10"><font size="1" face="Verdana"><font
color="#808080"><%=euro2 %></td>
</tr>
<tr>
<td width="64" height="20" style="border-style: none; border-width:
medium" rowspan="2" valign="top">
<b><font size="1" face="Verdana">Sterlin</font></b></td>
<td width="67" height="10"><font size="1" face="Verdana"><%=sterlin1
%></td>
</tr>
<tr>
<td width="67" height="10"><font size="1" face="Verdana"><font
color="#808080"><%=sterlin2 %></td>
</tr>
<tr>
<td width="64" height="10" style="border-style: none; border-width:
medium">
<b><font size="1" face="Verdana">USD/EUR </font></b></td>
<td width="67" height="10"><font size="1" face="Verdana"
color="#C0C0C0"><%=kur1 %> </td>
</tr>
</table>