<%
StrUrl="http://www.imdb.com/title/tt0892791/"  ' ########## imdb film adresi bu kısma gelicek...

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", StrUrl, False
xml.Send

Private  Function BinaryToString(Binary)
Dim  cl1, cl2, cl3, pl1, pl2, pl3
Dim  L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do  While cl1<=L
pl3 = pl3 &  Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If  cl3>300  Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If  cl2>200  Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End  If
End  If
Loop
BinaryToString = pl1 & pl2 & pl3
End  Function
Sonuc=BinaryToString(xml.ResponseBOdy)

baslangic=instr(Sonuc,"vrtg = '")  ' ## Oy kısmını alıyoruz...
son=instr(Sonuc,"';</script>")

baslangic2=instr(Sonuc,"<title>")  '  ## Filmin  başlığını alıyoruz...
son2=instr(Sonuc,"</title>")

kestik=mid(Sonuc,baslangic,son-baslangic)
kestik2=mid(Sonuc,baslangic2,son2-baslangic2)  ' ## Tekrar Filmin Başlığını Alıyoruz..

function koru(kelime)
kelime=replace(kelime, "vrtg = '" , "" )
kelime=replace(kelime, "<title>" , "" )  ' ## Filmin başlığın replace ediyoruz

koru=kelime
end function
%>


<%=koru(kestik2)%> / film başlığı<br>
<%=koru(kestik)%> / 10<br>