Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument: 'Mid' /youtube/Default. asp, line 152 daha önce vermiyordu şimdi veriyor http://www.ismailkaplan.com/youtube/ script ben yazmadım sadece kullanmak istiyorum yazan kişiye email attım ama cevap gelmedi bilen varmı nasıl çözülür bu hata tşkler

verileri alırken bi kısımda senin istediğinni bulamıyor. mid fonfiyonunun olduğu yerde hata var. scriptin ordaki kısmını tam görmeden bişey söylemek zor

SonuclarSayfa = Mid(Veri, SayfalamaBaslasin+35, hata burası kodlar &lt;% ' Youtube Search Result Reader ' İsmail Kaplan tarafından yazılmıştır Function TR TR = Replace TR = Replace TR = Replace TR = Replace TR = Replace TR = Replace TR = Replace TR = Replace TR = Replace TR = Replace TR = Replace TR = Replace End Function Function GETHTTP Set StrHTTP = Server. CreateObject(&quot;MSXML2. ServerXMLHTTP.3.0&quot; ) StrHTTP. Open &quot;GET&quot; , adres, false StrHTTP. sEnd GETHTTP = StrHTTP. Responsetext Set StrHTTP = Nothing End Function query = Request. QueryString if query = &quot;&quot; then query = &quot;search_query=kurtlar vadisi&quot; 'antalyamızın reklamını yapalım değilmi end if URL = &quot;http://www.youtube.com/results?&quot;&amp; query Veri = GETHTTP AramaBaslangic = &quot;&lt;!-- start search results --&gt;&quot; AramaBitis = &quot;&lt;!-- end search results --&gt;&quot; Hata = Instr %&gt; &lt;table width=&quot;100%&quot; border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;1&quot;&gt; &lt;% if Hata &gt; 0 Then %&gt; &lt;tr&gt; &lt;td colspan=&quot;2&quot; class=&quot;Liste&quot;&gt;&lt;div align=&quot;center&quot;&gt;&lt;% if Request. QueryString &lt;&gt; &quot;&quot; Then %&gt;Arama sonucunda kayıt bulunamadı&lt;% else %&gt;Lütfen bir kriter belirtiniz.&lt;% end if %&gt;&lt;/div&gt;&lt;/td&gt; &lt;/tr&gt; &lt;% else KodBaslasin = Instr KodBitsin = Instrrev Sonuclar = Mid(Veri, KodBaslasin+29, ' Film bilgilerini alıyoruz arrFilmler = Split i = 0 For Each Film in arrFilmler if i &gt; 0 Then iLink = Instr iVideo = Instr iLinkSon = Instr ;&quot;) 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 = &quot;youtube.com/vi/&quot;&amp; strDosya Resim = Instr 'Resmin youtube'deki yolunu alıyoruz ResimPath = Replace(Mid(Sonuclar, Resim-24, 56), chr(34), &quot;&quot;) %&gt; &lt;tr&gt; &lt;td width=&quot;7%&quot; class=&quot;Liste&quot;&gt;&lt;div align=&quot;center&quot;&gt;&lt;a target=&quot;video&quot; href=&quot;video. asp?v=&lt;% =strDosya %&gt;&quot;&gt;&lt;img src=&quot;&lt;% =ResimPath %&gt;&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt; &lt;td width=&quot;93%&quot; class=&quot;Liste&quot;&gt;&lt;a target=&quot;video&quot; href=&quot;video. asp?v=&lt;% =strDosya %&gt;&quot;&gt;&lt;% =TR %&gt;&lt;/a&gt;&lt;/td&gt; &lt;/tr&gt; &lt;% end if i = i+1 Next ' Sayfalama kodları başlar strSayfalamaBasla = &quot;&lt;div class=&quot;&quot;pagingDiv&quot;&quot;&gt;&quot; strSayfalamaBitis = &quot;&lt;!-- end pagingDiv --&gt;&quot; SayfalamaBaslasin = Instr SayfalamaBitsin = Instrrev SonuclarSayfa = Mid(Veri, SayfalamaBaslasin+35, arrSayfalar = Split %&gt; &lt;tr&gt; &lt;td colspan=&quot;2&quot; class=&quot;Liste&quot;&gt; &lt;div align=&quot;center&quot;&gt;Diğer Sayfalar : &lt;% x = 0 on error resume next For Each Sayfa in arrSayfalar iLinkBaslangic = Instr iLinkBitis = Instr strLink = iLinkBitis-iLinkBaslangic if x &gt; 0 Then strSayfaLink = Replace(Replace(mid(Sayfa, iLinkBaslangic+10, strLink ),&quot;'&quot;,&quot;&quot;),&quot;Next&quot;, &quot;Sonraki&quot;) Response. Write &quot; &quot; end if x = x +1 Next %&gt; &lt;/div&gt;&lt;/td&gt; &lt;/tr&gt; &lt;% end if %&gt;

sorun xml ile veri çektiğin saydaki kod değişikliği olabilir sayfalma kullanmassan sorun kalmaz

mid fonksiyonunu bulamıyor.. include edilmiş sayfa yokmu bu sayfaya

Merhaba Evet youtube kodlarda değişiklik yapmış malesef. Düzenledim ve siteme güncel dosyayı ekledim. Ordan alıp kullanabilirsiniz.

evet o satırı kaldırınca tek sayfa sonuç çıktı.. hatada vermedi. youtube sitede değişiklik yaptı herhalde