<% 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
strEuroAlis=Mid(strVeri,iEuro+39,11) 'alis strEuroSatis=Mid(strVeri,iEuro+52,11) 'satis %> çok saol ama sitede döviz için bu kodları buldum ama kullanamıyorum....bu konuda bi bilgin var mı??
bana yardımcı olabilir misiniz??
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.