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ış.

İthalat ve İhracat

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