Merhaba,
http://www.eniyisecenek.com/dosya/ak...asp?key=tarkan bu url'den istediğin sayfadaki resim ve video başlığını alabildiğimi görebilirsin.

Sadece deneme amaçlı olduğu için görsellilk ve diğer bilgilerle uğraşmadım. Yazdığım kodu da ekliyorum en azından bir fikir verebilir.

Umarım yardımcı olur. Bu kodları geliştirmek sana kalmış Benden bu kadar.

<%
    Function GETHTTP(adres) 
        Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0" ) 
            StrHTTP.Open "GET" , adres, false 
            StrHTTP.sEnd 
            GETHTTP = StrHTTP.Responsetext 
        Set StrHTTP = Nothing 
    End Function 
 
    Function VeriCoz(Veri, Basla, Bit)
        iBaslangic = Instr(Veri, Basla)
        iBitis = Instr(Veri, Bit)
        VeriCoz = Mid(Veri, iBaslangic+Len(Basla), iBitis-(iBaslangic+Len(Basla)))
    End Function    
 
        key = Request.QueryString("key")
            if key = "" Then
                Response.Write"Lütfen bir kriter belirtiniz."
            else
                strURL = "http://www.akilli.tv/Search.aspx?Search="& key
 
                Veriler = GetHttp(strURL)
 
                VeriBasla = Instr(Veriler,"<table border=""0"">")
                VeriBit = InstrRev(Veriler,"<table border=""0"">")
                
               if VeriBasla = 0 OR VeriBit = 0 Then 
                     Response.Write"Kayit Bulunamadi"
               else
              
                Bilgilerimiz = Mid(Veriler, VeriBasla, VeriBit-VeriBasla)
 
                arrVideolar = Split(Bilgilerimiz,"<td width=""140px"">")
 
                i = 0
                For Each Video in arrVideolar
                    if i > 0 Then 
                        Resim = VeriCoz(Video,"<img border=""0"" src='","' width=""133px"" height=""100px"" /></a>")
                        BaslikCozum = VeriCoz(Video," class='FilimBaslik","<td class='Basliklar'>")
                        Baslik = VeriCoz(BaslikCozum,"'>","</td>")
                            Response.Write "<img src="""& Resim &""" title="""& Baslik &"""><br>"& Baslik &"<hr>"
                    end if
                i = i+1
                Next
 
                end if
            end if    
%>