<%
'########################################################### ##############
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function
'########################################################### ##############
strAdres = "http://www.tcmb.gov.tr/yeni/ana.php"
'########################################################### ##############
strVeri = VeriAL(strAdres)
'########################################################### ##############
'Değerlerimiz
dolar_alis = Mid(strVeri,8599,6)
dolar_satis = Mid(strVeri,8825,6)
euro_alis = Mid(strVeri,9177,6)
euro_satis = Mid(strVeri,9403,6)
'########################################################### ##############
%>
| Döviz | Alış | Satış |
| Dolar | <%=dolar_alis%> | <%=dolar_satis%> |
| Euro | <%=euro_alis%> | <%=euro_satis%> |
Türk Parasını Koruma Kanununda dövizin tanımı şu şekilde yapılmıştır: “Efektif dahil yabancı parayla ödemeyi sağlayan her nev’i hesap, belge ve vasıta”
