Gözde Elektronik - Ana Sayfa

ÜRÜNLER
	Orjinal Kumandalar
	Receiver Kumandaları
	Universal Kumandalar
	Diğer Kumandalar
	Uydu Bulucu
	Ölçü Aleti
	Ataba
	Laptop Adaptörleri
	Bilgisayar Malzemeleri
	Kulaklık
	Mikrofon
	Splitter&Diseqc
	Havya
	Lehim-Pasta
	Pense+Keski
	Kablo
	Bilgisayar Kabloları
	Sprey
	Anten
	Skytech
	Pil
	Lyngsat
	SatcoDX
	Flaysat

doviz

<% 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 %> <% Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) objVeriAl.Open "GET" , "http://www.tcmb.gov.tr/kurlar/today.html", FALSE objVeriAl.sEnd Veri = objVeriAl.Responsetext Set objVeriAl = Nothing 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) strEuroSatis=Mid(strVeri,iEuro+50,11) %> TCMB Döviz Kurları

ISTANBUL için Hava Durumu

Your browser does not support inline frames or is currently configured not to display inline frames.

İsteklerinizi Buradan Bize Ulaştırabilirsiniz Ziyaretçi Defterini Okumak yada Yazmak İçin Buraya Tıkalyınız

Cemal Gürsel Cad. No: 74/B GİRESUN
Tel: +90 454 212 74 53 Fax: +90 454 212 86 41 gozde@gozdeelektronik.com