SonuclarSayfa = Mid(Veri, SayfalamaBaslasin+35, (SayfalamaBitsin-SayfalamaBaslasin))
hata burası
-------------------------
kodlar
<%
' Youtube Search Result Reader
' İsmail Kaplan tarafından yazılmıştır
Function TR(strGelen)
TR = Replace(strGelen, "İ", "İ")
TR = Replace(TR, "ı", "ı")
TR = Replace(TR, "ç", "ç")
TR = Replace(TR, "Ç", "Ç")
TR = Replace(TR, "ş", "ş")
TR = Replace(TR, "Ş", "Ş")
TR = Replace(TR, "ü", "ü")
TR = Replace(TR, "Ü", "Ü")
TR = Replace(TR, "ğ", "ğ")
TR = Replace(TR, "Ğ", "Ğ")
TR = Replace(TR, "ö", "ö")
TR = Replace(TR, "Ö", "Ö")
End Function
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
query = Request.QueryString
if query = "" then
query = "search_query=kurtlar vadisi" 'antalyamızın reklamını yapalım değilmi
end if
URL = "http://www.youtube.com/results?"& query
Veri = GETHTTP(Url)
AramaBaslangic = "<!-- start search results -->"
AramaBitis = "<!-- end search results -->"
Hata = Instr(Veri, "No Videos found for")
%>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<% if Hata > 0 Then %>
<tr>
<td colspan="2" class="Liste"><div align="center"><% if Request.QueryString("q") <> "" Then %>Arama sonucunda kayıt bulunamadı<% else %>Lütfen bir kriter belirtiniz.<% end if %></div></td>
</tr>
<% else
KodBaslasin = Instr(Veri, AramaBaslangic)
KodBitsin = Instrrev(Veri, AramaBitis)
Sonuclar = Mid(Veri, KodBaslasin+29, (KodBitsin-KodBaslasin))
' Film bilgilerini alıyoruz
arrFilmler = Split(Sonuclar, "<div class=""vtitle"">")
i = 0
For Each Film in arrFilmler
if i > 0 Then
iLink = Instr(Film, "</a><br/>")
iVideo = Instr(Film,"/watch?v=")
iLinkSon = Instr(Film, "');")
strDosyaAdi = iLink-(iLinkSon+5)
strDosyaIsim = mid(Film, iLinkSon+5, strDosyaAdi)
'Filmin parametresini aldık
strDosya = Mid(Film, iVideo+9, 11)
'Resim bilgisini almak için uğraşıcaz
ResimDosya = "youtube.com/vi/"& strDosya
Resim = Instr(Sonuclar, ResimDosya)
'Resmin youtube'deki yolunu alıyoruz
ResimPath = Replace(Mid(Sonuclar, Resim-24, 56), chr(34), "")
%>
<tr>
<td width="7%" class="Liste"><div align="center"><a target="video" href="video.asp?v=<% =strDosya %>"><img src="<% =ResimPath %>" border="0"></a></div></td>
<td width="93%" class="Liste"><a target="video" href="video.asp?v=<% =strDosya %>"><% =TR(strDosyaIsim) %></a></td>
</tr>
<%
end if
i = i+1
Next
' Sayfalama kodları başlar
strSayfalamaBasla = "<div class=""pagingDiv"">"
strSayfalamaBitis = "<!-- end pagingDiv -->"
SayfalamaBaslasin = Instr(Veri, strSayfalamaBasla)
SayfalamaBitsin = Instrrev(Veri, strSayfalamaBitis)
SonuclarSayfa = Mid(Veri, SayfalamaBaslasin+35, (SayfalamaBitsin-SayfalamaBaslasin))
arrSayfalar = Split(SonuclarSayfa, "onClick=""location.href='")
%>
<tr>
<td colspan="2" class="Liste">
<div align="center">Diğer Sayfalar :
<%
x = 0
on error resume next
For Each Sayfa in arrSayfalar
iLinkBaslangic = Instr(Sayfa, "/results?")
iLinkBitis = Instr(Sayfa, "'"" >")
strLink = iLinkBitis-iLinkBaslangic
if x > 0 Then
strSayfaLink = Replace(Replace(mid(Sayfa, iLinkBaslangic+10 , strLink ),"'",""),"Next", "Sonraki")
Response.Write "[<a href=""?"& strSayfaLink &"""></a>] "
end if
x = x +1
Next
%>
</div></td>
</tr>
<% end if %>
