volkan group

POMPA FİYATLARI İÇİN TIKLAYINIZ...

<% 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 %>Tarayıcınız satır içi çerçeveleri desteklemiyor veya şu anda satır içi çerçeveleri göstermek için yapılandırılmamış.

Yurtiçi - Yurtdışı Taşımacılık

2006 yılında kurmuş olduğumuz SBÇ İç ve Dış Ticaret Ltd. Şti ile ithalat ve ihracat konusunda yeni projelere imza atmak hedefindeyiz.