Asp ile döviz kuru almak

SametE

Profesyonel
Katılım
7 Mar 2008
Mesajlar
307
Beğeniler
0
Konum
Balıkesir
#1
Kod:
<%
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%>
 

Bu konuyu okuyanlar (Üyeler: 1, Misafirler: 0)

Üst