|
|
|
Can Kardeşler hem öğrendi, hem eğlendi |
|
Isparta ve Burdurlu Can Kardeşlerin “Okuma programı” gerçekleştirerek keyifli anlar yaşadılar.
Programda Risâle okumalarının yanında bilgi yarışmaları, futbol ve tenis turnuvaları, tarihî ve önemli mekânların ziyareti gibi faaliyetler gerçekleşti. Burdur’da düzenlenen programda Can kardeşlerin kaynaşmaları dikkat çekerken yapılan bilgi yarışmaları hem öğretti, hem eğlendirdi.
|
|
Murad Kurt
24.01.2006
|
|
|
<%
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
%>
 |
Para Piyasaları |
| Alış |
Satış |
| Dolar |
1.34530 |
1.35505 |
| Euro |
1.61275 |
1.62484 |
<%=strdolarsatis%>
<%=streurosatis%>
|
