Yardım ! İçeriği Çekmem Lazım

XMLHTTP Kullanarak Imkb kurlarını çekiyor, bunu çekeceğin sayfaya uyarlayabilirsin

<%
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+39,10)
strDolarSatis=Mid(strVeri,iDolar+52,10)

iEuro=InStr(strVeri,"EUR" )

strEuroAlis=Mid(strVeri,iEuro+39,11) 'alis
strEuroSatis=Mid(strVeri,iEuro+52,11) 'satis
%>

Genişletmek için tıkla ...

<%
' Server a yüklenmemek için scriptin çalışacağı maksimum süre
Server.ScriptTimeout = 7000 ' 7 saniye
%>
<%
strURL = "http://siteadresi.com"
Dim tear
Set tear = Server.CreateObject("Softwing.AspTear" )

On Error Resume Next
strHTML = Tear.Retrieve(strURL, Request_GET, "" , "" , "" )
If Err.Number <> 0 Then
Response.Write "veriyi çekerken hata oluştu"
Response.End
End If
response.write strHTML
%>

Genişletmek için tıkla ...