<% 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+50,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 %> ALTAR YAPI


Dış Cephe/İç Yüzey Kaplama Boyaları
Su Bazlı Epoksi Boya Kaplama Sistemleri
Dış Cephe Boya Koruyucu Malzemeler
Hazır Renkli Kaplama Malzemeleri
Poliüretan Kaplama Sistemleri
Endüstriyel Zemin Kaplamaları
Dış Cephe Isı Yalıtım Ürünleri
Fayans Seramik Yapıştırıcıları
Kullanıma Hazır Özel Harçlar
Yüzey Düzeltme Macunları
Şantiye Genel Malzemeleri
Epoksi Kaplama Sistemleri
Özel Yardımı Malzemeler
Derz Dolgu Mazlemeleri
Polimer Şap Sistemleri
Tamir Harçları
Hazır Sıvalar
Su Yalıtımı
Mastikler
Astarlar
Silikon
Köpük
Yapıştırıcı
İmalat ve Satışı
M®®M Tasarım