<%@ language="vbscript" codepage="1254" %>
<% option explicit %>
<%
dim xa,xb,xc,xd,xe,xf,xg,xh,xi,xj,xk,xl,xm,xn,xo,xp,xq,xr,xs,xt,xu
xa = "http://www.tcmb.gov.tr/kurlar/today.html"
set xb = server.createobject("microsoft.XMLHTTP")
xb.open "get",xa,false
xb.send
xc = xb.responsetext
set xb = nothing
xd = instr(xc,"ced at ")
xe = trim(mid(xc,xd+7,5))
xf = trim(mid(xc,xd+16,10))
xg = trim(mid(xf,4,2))
xh = trim(mid(xf,1,2))
xi = trim(mid(xf,7,4))
select case (xh)
case "01"
xj = "Ocak"
case "02"
xj = "Şubat"
case "03"
xj = "Mart"
case "04"
xj = "Nisan"
case "05"
xj = "Mayıs"
case "06"
xj = "Haziran"
case "07"
xj = "Temmuz"
case "08"
xj = "Ağustos"
case "09"
xj = "Eylül"
case "10"
xj = "Ekim"
case "10"
xj = "Kasım"
case "12"
xj = "Aralık"
end select
xk = dateserial(xi,xh,xg)
xl = cdate(xk)
xm = weekday(xl)
select case (xm)
case "1"
xn = "Pazar"
case "2"
xn = "Pazartesi"
case "3"
xn = "Salı"
case "4"
xn = "Çarşamba"
case "5"
xn = "Perşembe"
case "6"
xn = "Cuma"
case "7"
xn = "Cumartesi"
end select
xo = xg & " " & xj & " " & xi & " " & xn & " günü saat " & xe
xp = instr(xc,"USD")
xq = trim(mid(xc,xp+37,11))
xr = trim(mid(xc,xp+50,11))
xs = instr(xc,"EUR")
xt = trim(mid(xc,xs+37,11))
xu = trim(mid(xc,xs+50,11))
%><div align="center"><table border="0" cellspacing="0" cellpadding="2" height="120" width="190"><tr><td colspan="3" style="font-size:8px;font-family:verdana;"><%=xo%>'da belirlenen gösterge niteliğindeki T.C.M.B. <font color=#FF0000>Döviz Kurları:</font></td></tr><tr><td style="font-size:9px;color:#FF0000;font-family:verdana;font-weight:bold;">Döviz</td><td style="font-size:9px;color:#FF0000;font-family:verdana;font-weight:bold;">Alış</td><td style="font-size:9px;color:#FF0000;font-family:verdana;font-weight:bold;">Satış</td></tr><tr><td style="font-size:9px;color:#336699;font-family:verdana;font- weight:bold;"><img border=0 src=images/dollar.gif height=12 align=left>Dolar</td><td style="font-size:9px;color:#336699;font-family:verdana;"><%=xq%></td><td style="font-size:9px;color:#336699;font-family:verdana;"><%=xr%></td></tr><tr><td style="font-size:9px;color:#336699;font-family:verdana;font- weight:bold;"><img border=0 src=images/euro.gif height=12 align=left>Euro</td><td style="font-size:9px;color:#336699;font-family:verdana;"><%=xt%></td><td style="font-size:9px;color:#336699;font-family:verdana;"><%=xu%></td></tr><tr><td align="center" colspan="3" style="font-size:9px;font-family:verdana;">Coded By Demo From KaraKaplı</td></tr></table></div>

<div aling="center"><iframe align="center" frameborder="no" height="140" width="190" src="http://www.karakapli.com/tcmbdvz.asp" scrolling="no"></iframe></div>