Güncel haberleri yayınlamak için aşağıdaki kodu aldım ve çalıştırmak istedim fakat bütün çabalarıma rağmen hata verdi.. En sonunda forumdan sormaya karar verdim yardımcı olur iseniz sevinirim. &lt;% alinacakadres = &quot;http://www.ntvmsnbc.com/news/BCList2. txt&quot; Set Tear_ac = CreateObject dim bilgicek bilgicek = Tear_ac. Retrieve(alinacakadres, 2, &quot;&quot; , &quot;&quot; , &quot;&quot; ) nereden=&quot;Güncel Ön Sayfa&quot; nereye=&quot;+UYUM YASASI&quot; baslanacakyer=InStr +15 bitecekyer=InStr baslangic=0 son=0 alinacakbolum=Mid For a= 1 To 100 t=Len If t&lt;=0 Then exit For End If c=InStr(alinacakbolum, Chr(10)) If c&lt;=0 Then exit For End If alinacakbolum=Right baslangic=InStr son=InStr(alinacakbolum, Chr(10)) If baslangic&lt;=0 or son&lt;=0 or son&lt;baslangic Then Else satir=Mid If InStr =0 or Len &lt;20 Then Else ekle=ekle &amp; satir &amp; &quot;&lt;br&gt;&quot; End If End If Next ekle=Replace(ekle,&quot;/news/./&quot; ,&quot;&lt;a href='http://www.ntvmsnbc.com/news/&quot; ,1,-1,1) ekle=Replace(ekle,&quot;|&quot; ,&quot;'&gt;&quot; ,1,-1,1) ekle=Replace(ekle, Chr(10),&quot;&lt;/a&gt;&quot; ,1,-1,1) Response. Write &quot;&lt;font face=verdana size=1 color=black&gt;&quot; &amp; ekle &amp; &quot;&lt;/font&gt;&quot; %&gt; Aldığım Hata Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument: 'Mid' /haber. asp, line 15

ayrıca mid fonksiyonunda işleyeceğin string lisanssız gelirsede hata verir...

15. satırda Mid parantezi içindeki biticekye r bu şekilde arada boşluk kalmış r yi bitiştirirsen sorun kalmaz.

Yardımların için teşekkür ederim