<%
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 olurursa
if Err <> 0 then
Response.Write "Connection Error!
"
Response.Write Err.Description & "
"
end if
strHTML = objXmlHttp.ResponseText
Set objXmlHttp = Nothing
'Html dosyasyny sayfa kodu haline dönüstürelim.....
SayfaKodu = Server.HTMLEncode(strHTML)
yer = Instr(1,SayfaKodu,"ABD DOLARI")
dAlis = Mid(SayfaKodu,yer+57,10)
dSatis = Mid(SayfaKodu,yer+70,10)
yer2 = Instr(1,SayfaKodu,"EURO")
eSatis = Mid(SayfaKodu,yer2+70,10)
eAlis = Mid(SayfaKodu,yer2+57,10)
%>
 |
<%=dAlis%> - <%=dSatis%> |
 |
<%=eAlis%> - <%=eSatis%> |