Asp ile çalışan güncel doviz kuru var mı elinizde ?

Arkadaşlar elinde güncel çalışan doviz kuru olan var mı acaba internetten araştırdım örnekleri indirdim ama hep hata veriyor  http://www.tcmb.gov.tr/ sistemi değişmiş hep eski sistemler var çalışmıyor elinde olan varsa yardımcı olabilir mi ? 

Sorunu aspindir.com'dan indirdiğim bir scripti kendime göre ayarladım diğer arkadaşlarada yardımcı olmak için paylaşayım 

Bu kod paragaranti.com'dan çektiğimiz veri kodun en üstüne gelecek :

<%
rssParser "http://realtime.paragaranti.com/asp/xml/icpiyasa.asp"

Sub rssParser(rssFile)

	Dim objXML, objRoot, objItems, c
	c = 0
	Set objXML = Server.CreateObject("Microsoft.XMLDOM")
	objXML.Async = False
	objXML.SetProperty "ServerHTTPRequest", True
	objXML.ResolveExternals = True
	objXML.ValidateOnParse = True
	objXML.Load(rssFile)
	
	If (objXML.parseError.errorCode = 0) Then
		Set objRoot = objXML.documentElement
		If IsObject(objRoot) = False Then
			response.Write "No Root Found in Rss File"
		End If
		
		Set objItems = objRoot.getElementsByTagName("STOCK")
		If IsObject(objItems) = True Then
%>
<%
			Dim objItem
			For Each objItem in objItems
				Dim Sembol : Sembol = objItem.selectSingleNode("SYMBOL").Text
				Dim KurAdi : KurAdi = objItem.selectSingleNode("DESC").Text
				Dim SonDurum : SonDurum = objItem.selectSingleNode("LAST").Text
				Dim Yuzde : Yuzde = objItem.selectSingleNode("PERNC").Text
				Dim YuzdeRakam : YuzdeRakam = objItem.selectSingleNode("PERNC_NUMBER").Text
				Dim SonTarih : SonTarih = objItem.selectSingleNode("LAST_MOD").Text	
				
%>


<%=KurAdi%><br> 
<%=formatnumber(SonDurum,2) %><br> 
<%=Yuzde%>&nbsp;
<%if Formatnumber(YuzdeRakam, 4) < 0 Then%><img src="images/asagi.png" width="25" height="25"/><%Else If Formatnumber(YuzdeRakam, 4) > 0 Then%><img src="images/yukari.png" width="25" height="25"/><%Else If Formatnumber(YuzdeRakam, 4) = 0 Then%>-<%end if end if end if%></p>
          



<%Next%>

 

<%
		else
			response.Write "No Root Found in Rss File"
		exit sub
		End If
		Set objRoot = Nothing
		Set objItems = Nothing
	End If
	
	Set objXML = Nothing
end sub
%>

Bu kadar

Cevap Yaz

Cevap yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git