POMPA
FİYATLARI İÇİN TIKLAYINIZ...
İl Seçiniz
ADANA
ADIYAMAN
AFYON
AĞRI
AKSARAY
AMASYA
ANKARA
ANTALYA
ARTVİN
AYDIN
BALIKESİR
BARTIN
BATMAN
BİLECİK
BİNGÖL
BOLU
BURDUR
BURSA
ÇANAKKALE
ÇANKIRI
ÇORUM
DENİZLİ
DİYARBAKIR
DÜZCE
EDİRNE
ELAZIĞ
ERZİNCAN
ERZURUM
ESKİŞEHİR
GAZİANTEP
GİRESUN
GÜMÜŞHANE
HAKKARİ
IĞDIR
ISPARTA
İSTANBUL
İZMİR
KAHRAMANMARAŞ
KARABÜK
KARAMAN
KARS
KASTAMONU
KAYSERİ
KIRIKKALE
KIRKLARELİ
KIRŞEHİR
KİLİS
KOCAELİ
KONYA
KÜTAHYA
MALATYA
MANİSA
MARDİN
MERSİN
MUĞLA
MUŞ
NEVŞEHİR
NİĞDE
ORDU
OSMANİYE
RİZE
SAKARYA
SAMSUN
SİİRT
SİNOP
SİVAS
ŞANLI URFA
TEKİRDAĞ
TOKAT
TRABZON
TUNCELİ
UŞAK
VAN
YALOVA
YOZGAT
ZONGULDAK
<%
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+38,10)
strDolarSatis=Mid(strVeri,iDolar+51,10)
iEuro=InStr(strVeri,"EUR" )
strEuroAlis=Mid(strVeri,iEuro+38,11) 'alis
strEuroSatis=Mid(strVeri,iEuro+50,11) 'satis
iSterlin=InStr(strVeri,"GBP" )
strSterlinAlis=Mid(strVeri,iSterlin+28,15) 'alis
strSterlinSatis=Mid(strVeri,iSterlin+45,15) 'satis
iFrang=InStr(strVeri,"CHF" )
strFrangAlis=Mid(strVeri,iFrang+29,18) 'alis
strFrangSatis=Mid(strVeri,iFrang+46,18) 'satis
iRiyal=InStr(strVeri,"SAR" )
strRiyalAlis=Mid(strVeri,iRiyal+30,18) 'alis
strRiyalSatis=Mid(strVeri,iRiyal+46,18) 'satis
iKron=InStr(strVeri,"SEK" )
strKronAlis=Mid(strVeri,iKron+30,18) 'alis
strKronSatis=Mid(strVeri,iKron+46,18) 'satis
iDinar=InStr(strVeri,"KWD" )
strDinarAlis=Mid(strVeri,iDinar+30,18) 'alis
strDinarSatis=Mid(strVeri,iDinar+47,18) 'satis
%>
