ASPtear Bağlantı Sorunu

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.

<%
alinacakadres = "http://www.ntvmsnbc.com/news/BCList2.txt"

Set Tear_ac = CreateObject("SOFTWING.ASPtear" )
dim bilgicek
bilgicek = Tear_ac.Retrieve(alinacakadres , 2, "" , "" , "" )

nereden="Güncel Ön Sayfa"
nereye="+UYUM YASASI"

baslanacakyer=InStr(bilgicek,+Genel)+15
bitecekyer=InStr(bilgicek,+Genel)
baslangic=0
son=0
alinacakbolum=Mid(bilgicek,baslanacakyer,bitecekye r-baslanacakyer)

For a= 1 To 100

t=Len(alinacakbolum)

If t<=0 Then
exit For
End If

c=InStr(alinacakbolum,Chr(10))

If c<=0 Then
exit For
End If

alinacakbolum=Right(alinacakbolum,t-c)

baslangic=InStr(alinacakbolum,"/news/./" )
son=InStr(alinacakbolum,Chr(10))

If baslangic<=0 or son<=0 or son<baslangic Then

Else
satir=Mid(alinacakbolum,baslangic,son-baslangic)
If InStr(satir,"/news/./" )=0 or Len(satir)<20 Then
Else
ekle=ekle & satir & "<br>"
End If
End If

Next

ekle=Replace(ekle,"/news/./" ,"<a href='http://www.ntvmsnbc.com/news/" ,1,-1,1)
ekle=Replace(ekle,"|" ,"'>" ,1,-1,1)
ekle=Replace(ekle,Chr(10),"</a>" ,1,-1,1)

Response.Write "<font face=verdana size=1 color=black>" & ekle & "</font>"

%>


====== Aldığım Hata ==========

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'

/haber.asp, line 15

Sizin kodlarınızda bir sorun var. Benim sitemde Ntv'den haberler gösterilmekte. Kodlarınızı denedim ama bende çalışmadı. Sitemden C/P yapıyorum. Bu şekilde kodlarınızı uyarlayınız.

---------------
<%
Server.ScriptTimeOut=0
strURL = "http://www.ntvmsnbc.com/news/BCList2.txt"
Dim tear
Set tear = Server.CreateObject("Softwing.AspTear")
strHTML = Tear.Retrieve(strURL,Request_Get, "","","")
strbasla = Instr(StrHTML,"tech_front.asp")
strbitis = Instr(StrHTML,"bilim_front.asp")
strhaberler = mid(strhtml,strbasla,strbitis-strbasla)
strhaberler = replace(strhaberler,"/news/","<br>/news/")

strhaberler = split(strhaberler,"/news/./")
for i=1 to 12
if i=12 then exit for
habergoster = split(strhaberler(i),"|")
response.write "<a target=_blank href=http://www.ntvmsnbc.com/news/" & habergoster(0) & ">" & habergoster(1)&"</a>"
next
%>
---------------

Bu arada belirtmek isterim. Günün yarısından çoğunda database hatası verip linkler açılmıyor. Üsttekiler Teknoloji haberleri. Diğer bölümleri kendine göre oluşturmalısın.

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