ASP XML & RSS Döviz Kurları

Hoşgeldiniz giriş yapmak için tıklayın veya ücretsiz üye olun.

BANA ÖZEL

KOD EKLE

ASP> XML & RSS>

Döviz Kurları

Id No : 235

Detaylar

Ekleyen : efkan

Üyelik : 30.09.2006

Son Giriş : 25.08.2010

Kullanıcı Profili | Üyenin Diğer Kayıtları | Üyeye Mesaj Gönder

Tavsiye Et

Hata Bildir

Spurl'e kaydet! http://reddit.com/submit?url=%url%&title=%title%

İçerik Hakkında

TCMB den döviz kurları alıp bunları yatay kayan şekilde sunan kod

İçerik Kodu

<%
'Kodlama 15.07.2007 Gece 04:40 
'Ahmet Furkan EKİNCİ
'BySaNCak@hotmail.com
%>

<%
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
%>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>BySaNCak TCMB Kayan Doviz Kuları v2.0</title>
</head>

<body>

<div align="center">
 <center>
<table border="0" width="53%" id="table1" cellspacing="1">
	<tr>
	<td width="139" bgcolor="#FF0000"> TCMB DÖVİZ KURLARI:</td>
	<td bgcolor="#F8F8F8">
		
		<marquee width="510" height="18">AMERİKAN DOLARI (ALIŞ: <%=strdolaralis%> YTL SATIŞ: <%=strdolarsatis%> YTL) // EURO (ALIŞ: <%=strEUROalis%>YTL  SATIŞ: <%=streurosatis%> YTL) // İNGİLİZ STERLİNİ (ALIŞ: <%=strSterlinalis%> YTL  SATIŞ: <%=strSterlinsatis%> YTL) // İSVİÇRE FRANGI (ALIŞ: <%=strFrangalis%>YTL  SATIŞ: <%=strFrangsatis%> YTL) // ARABİSTAN RİYALİ (ALIŞ: <%=strRiyalalis%>YTL  SATIŞ: <%=strRiyalsatis%> YTL) // İSVEÇ KRONU (ALIŞ: <%=strKronalis%>YTL  SATIŞ: <%=strKronsatis%> YTL) // KUVEYT DİNARI (ALIŞ: <%=strDinaralis%>YTL  SATIŞ: <%=strdinarsatis%> YTL) 
		</marquee>
		
	</td>
	</tr>
</table>

İncelenme sayısı : 2104 Eklenme Tarihi : 08.09.2007 00:00:20

Ana Sayfam yap

Sık Kullanılanlara Ekle

Üyelik

İletişim

Web sayfamızda yayımlanan içerik ve linklerden oluşabilecek sorunlardan Kod Merkezi sorumlu tutulamaz. 0,38