% 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 itarih=InStr(strVeri,"Indicative" ) strtarih=Mid(strVeri,itarih+48,10) 'tarih %>




|
Çin Demir Çelik Fiyat listesi - China Steel Price ( I )
|
||
|
Avrupa Demir Çelik Fiyat Listesi - Europe Steel Price
|
|
|
|||
|
![]()
|
|
www.celikray.com www.celikmil.com
|
|
|
Text Linkler:Metal Ağırlık Hesaplamak İçin Tıklayınız Konstruksiyon Çelik Yapı Malzemeleri Ağırlık Cetveli ♦ ALAŞIM ELEMENTLERİNİN ETKİLERİ ♦ MALZEMELERİN KİMYASAL İÇERİKLERİ ♦ ÇELİKLERİN SINIFLANDIRILMASI♦ SERTLİK DÖNÜŞÜM TABLOSU ♦ ÇELİK HASIR DONATI ♦ EURO BÖLGESİ SAC DÜNYA NORMU ♦ ERDEMİR SAC DÜNYA NORMU ♦ ESKİ DOĞU BLOKU ÜLKE DEMİR ÇELİK ÜRÜNLERİNİN .DÜNYA NORMU İLE KARŞILAŞTIRMALARI ♦ PERİYODİK ELEMENTLER TABLOSU ♦ PERİYODİK ELEMENTLER TABLO (TÜBİTAK) Demir Çelik Fiyat Listeleri (Devamlı Güncel) -- ÇEKİNCE --
|
ŞEN DEMİR ÇELİK A.Ş. KONYA TURKEY - IRON STEEL
MINING TRADE Köşebent Lama Silme Npu Npi Heb Hea Heb Sac İnşaat Demiri
Transmisyon Yuvarlak Çelik 1040 1050 st 37 st 60 Profil Boru Sdm Boru Testli
Boru Spiral Boru
k
i
t
f
|
DKP Sac, HRP Sac, Siyah Sac, Levha Sac, Baklavalı Sac, Kare Demir, Silme Demiri, Lama Demiri, Köşebent Demiri, NPU Demiri, NPI Demiri, T Demiri, Siyah Su Borusu, Sanayi Borusu, Galvanizli Su Borusu, Doğal Gaz Boruları, Profiller, Transmisyon Mili, Altı Köşe, İmalat Çeliği, İnşaat Demiri, Çelik Hasır,Transmisyon Mili, Çelik Mil , Altı Köşe İmalatları 1040 Yuvarlak ,Lama İmalat Çelikleri Üretim ve Satışı St 37 , 1040 Kalite Lama , Silme, Köşebent ,Dörtköşe Demirleri Profil Boru , Kutu Profil St 37-2 ve St 52 Kalitelerde Erdemir A1 Sac ,İthal Sac ve Platina 0,50 mm – 50 mm arası Siyah ve Galvanizli Testli Tesisat Boruları Doğalgaz Tesisat Boruları Konstrüksiyon Yapı Malzemeleri IPE,HEA,HEB,HP,IPN,W,UB,UC,UAP,UPN,L Demirleri Galvanizli Konstrüksiyon Boruları, Özel Çap Boru ve Yuvarlak Dolu Malzeme Kalibrasyonu Büyük Çaplı Kolon Kiriş Profiller BÇ IIIA - BÇ IVA Analiz Sertifikalı 8- 30 mm arası Hazır Stok Nervürlü İnşaat Demiri Civatalık Kangal Demiri, Hasır Çelik St 37 Yuvarlak Düz demir DKP Sac HRP Sac Siyah Sac Levha Sac Kare Demir Silme Demiri Lama Demiri Köşebent Demiri NPU Demiri NPI Demiri T Demiri Siyah Su Borusu Sanayi Borusu Galvanizli Su Borusu Doğal Gaz Boruları Profiller Transmisyon Mili Altı Köşe İmalat Çeliği İnşaat Demiri Çelik Hasır soguk cekme lama soğuk çekme lama soğuk çekme ithal soğuk lama lama demir çelik yuvarlak demir yuvarlak çelik otomat,mil transmisyon soğuk hadde sıcak hadde köşebent profil platina,saç kesimli saç geniş lama kalın çap cold drawn flat çelik boru,demir fiyatlari,demir fiyat,demir çelik fiyatları,güncel demir fiyatları,demir nedir,periyodik cetvel,karabük demir çelik,demir çelik firmaları,demir çelik sektörü,demir çelik sektörü,inşaat demiri,demir fiyatlarında son durum,demir fiyatları düşermi,demir fiyatları artıyor,demir fiyatı ne olacak,demir, fiyarı,ADANA,ADIYAMAN,AFYONKARAHİSAR, AĞRI,AKSARAY,AMASYA,ANKARA,ANTALYA,ARDAHAN, ARTVİN,AYDIN,BALIKESİR,BARTIN,BATMAN,BAYBURT,BİLECİK,BİNGÖL,BİTLİS,BOLU,AĞRI,AKSARAY,AMASYA,ANKARA,ANTALYA,ARDAHAN, ARTVİN,AYDIN 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İ,HATAY,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,ŞIRNAK, TEKİRDAĞ,TOKAT,TRABZON,TUNCELİ,UŞAKVAN,YALOVA,YOZGAT,ZONGULDAK,inşaat demiri,inşaat demiri fiyatları,inşaat demiri fiyatı,inşaat demiri istanbul,inşaat demiri izmir,inşaat demiri antalya,çelik hasır,nervürlü demir, nervürlü inşaat demiri,kangal demir,inşaat demiri,inşaat demiri fiyat listesi, inşaat demiri fiyatları, inşaat demiri fiyatı,inşaat demiri istanbul,inşaat demiri izmir,inşaat demiri antalya,inşaat demiri satıcıları,karabük,payas,isdemir,kardemir,demir çelik fiyatları,güncel demir fiyatları,demir çelik,çelik hasır,nervürlü demir, nervürlü inşaat demiri,kangal demir,nervürlü kangal |
Online: <% Sub LogActiveUser Dim strActiveUserList Dim intUserStart, intUserEnd Dim strUser Dim strDate strActiveUserList = Application("ActiveUserList") If Instr(1, strActiveUserList, Session.SessionID) > 0 Then Application.Lock intUserStart = Instr(1, strActiveUserList, Session.SessionID) intUserEnd = Instr(intUserStart, strActiveUserList, "|") strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart) strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now()) Application("ActiveUserList") = strActiveUserList Application.UnLock Else Application.Lock Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1 Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|" Application.UnLock End If End Sub Sub ActiveUserCleanup Dim ix Dim intUsers Dim strActiveUserList Dim aActiveUsers Dim intActiveUserCleanupTime Dim intActiveUserTimeout intActiveUserCleanupTime = 81 'In minutes, how often should the ActiveUserList be cleaned up. intActiveUserTimeout = 80 'In minutes, how long before a User is considered Inactive and is deleted from ActiveUserList If Application("ActiveUserList") = "" Then Exit Sub If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then Application.Lock Application("ActiveUsersLastCleanup") = Now() Application.Unlock intUsers = 0 strActiveUserList = Application("ActiveUserList") strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1) aActiveUsers = Split(strActiveUserList, "|") For ix = 0 To UBound(aActiveUsers) If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then aActiveUsers(ix) = "XXXX" Else intUsers = intUsers + 1 End If Next strActiveUserList = Join(aActiveUsers, "|") & "|" strActiveUserList = Replace(strActiveUserList, "XXXX|", "") Application.Lock Application("ActiveUserList") = strActiveUserList Application("ActiveUsers") = intUsers Application.UnLock End If End Sub %> <% Call LogActiveUser() Call ActiveUserCleanup() Response.Write "" & Application("ActiveUsers") & "" %>
![]()
![]() |
Merkez Bankası Döviz Kuru
Tarih: <%=strtarih%>
USD Alış: <%=strdolaralis%>
YTL
USD Satış: <%=strdolarsatis%> YTL
Euro Alış : <%=strEuroAlis%> YTL
Euro Satış:<%=strEuroSatis%> YTL
|
Finans Bilgi Portalı Tıklayınız.. |