<%
Sub tarih_ne (tarih)
gun = day(date)
ay = month(date)
yil = year(date)
gun_y = WeekdayName(Weekday(date))
if ay = "1" then
ay = "Ocak"
elseif ay = "2" then
ay = "Subat"
elseif ay = "3" then
ay = "Mart"
elseif ay = "4" then
ay = "Nisan"
elseif ay = "5" then
ay = "Mayis"
elseif ay = "6" then
ay = "Haziran"
elseif ay = "7" then
ay = "Temmuz"
elseif ay = "8" then
ay = "Agustos"
elseif ay = "9" then
ay = "Eylül"
elseif ay = "10" then
ay = "Ekim"
elseif ay = "11" then
ay = "Kasim"
elseif ay = "12" then
ay = "Aralik"
end if
if gun_y = "Monday" then
gun_y = "Pazartesi"
elseif gun_y = "Tuesday" then
gun_y = "Sali"
elseif gun_y = "Wednesday" then
gun_y = "Çarsamba"
elseif gun_y = "Thursday" then
gun_y = "Persembe"
elseif gun_y = "Friday" then
gun_y = "Cuma"
elseif gun_y = "Saturday" then
gun_y = "Cumartesi"
elseif gun_y = "Sunday" then
gun_y = "Pazar"
end if
tarih = ""&gun&" "& ay &" "& yil &" "& gun_y
End Sub
Call tarih_ne (tarih)
%>
<%
On Error Resume Next
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP")
objXmlHttp.open "GET", "http://www.tcmb.gov.tr/kurlar/today.html", False
objXmlHttp.send
'Hata olu?ursa sebebini yazdyryyoruz...
if Err <> 0 then
Response.Write "
TCMB na baglanilamadi. "
Response.Write Err.Description & "
"
end if
if objXmlHttp.ResponseText<>"" then
strHTML = objXmlHttp.ResponseText
Set objXmlHttp = Nothing
'Html dosyasyny sayfa kodu haline dönü?türelim.....
SayfaKodu = Server.HTMLEncode(strHTML)
'?imdi de arady?ymyz de?erleri bulup sayfadan alalym
yer = Instr(1,SayfaKodu,"ABD DOLARI")
dAlis = Mid(SayfaKodu,yer+30,10)
dSatis = Mid(SayfaKodu,yer+43,10)
yer2 = Instr(1,SayfaKodu,"EURO")
eSatis = Mid(SayfaKodu,yer2+43,10)
eAlis = Mid(SayfaKodu,yer2+30,10)
yer3 = Instr(1,SayfaKodu,"GBP")
iAlis = Mid(SayfaKodu,yer3+98,10)
iSatis = Mid(SayfaKodu,yer3+108,12)
'Ve yazdyralym...
end if
%>
