Programalama > ASP

Etiketler: t.c., yeni, dövizler, asp, tear......

Ort. 0
Puan ver:
<% 
Set Tear_ac = CreateObject("SOFTWING.ASPtear" ) 

dim bilgicek  
bilgicek = Tear_ac.Retrieve("http://www.tcmb.gov.tr/kurlar/today.html" , 2, "" , "" , "" )  

On Error Resume Next  

a=InStr(1,bilgicek,"USD" ) 

dolar1=Mid(bilgicek,a+39,10)  
dolar2=Mid(bilgicek,a+52,10)  


b=InStr(1,bilgicek,"DEM" )  
mark1=Mid(bilgicek,b+65,12)  
mark2=Mid(bilgicek,b+78,12)  


c=InStr(1,bilgicek,"EUR" )  
euro1=Mid(bilgicek,c+37,11)  
euro2=Mid(bilgicek,c+52,11)  
%> 



Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.