//-->

bilgiliwebnet.tr.gg | Css , Html , Php

l2

sitenizde döviz kurlarını yayınlarabilirsiniz. kurlar merkez bankasının resmi internet sitesinden alınmaktadır.

 

<%

 

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/kurlar/today.html"

 

strVeri = VeriAL(strAdres)

 

iDolar=InStr(strVeri,"USD" )

 

strDolarAlis=Mid(strVeri,iDolar+39,10)

 

strDolarSatis=Mid(strVeri,iDolar+52,10)

 

 

 

iEuro=InStr(strVeri,"EUR" )

 

 

 

strEuroAlis=Mid(strVeri,iEuro+39,11) 'alis

 

strEuroSatis=Mid(strVeri,iEuro+52,11) 'satis

 

%>

 

Döviz kurlarının görünmesini istediğiniz yere aşağıdaki kodları yazın.

 

 

<%=strdolarsatis%>

<%=streurosatis%>

Ferhat UZUNSINAN - ferhat_u@hotmail.com

Sitemize Bugün 4 ziyaretçikişi burdaydı! Teşekkürler...
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=