Bu Konuyu Görüntüleyenler

***KeWeLL*** · 14:15, 31-08-08 14:15

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%>