Kodlarda hata aramaktansa kendi kodlarımı yazmak daha kolay geliyor. Şu şekilde çekebilirsin:

<!--#include file="functions.asp"-->
<%
'Kaynaktan verileri çek
strVeriCekilecekAdres = "http://galatasaraysd.org/etkinlikler/?sayfa=1"
Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "GET", strVeriCekilecekAdres, False
oXMLHttp.Send()
blnAlinanVeri = BinaryToString(oXMLHttp.responseBody)
Set oXMLHttp = Nothing

haber1=split(blnAlinanVeri,"<div id=""Haberler_AnaSayfa_Resim"">")
for y = 1 to ubound(haber1)
haber2=split(haber1(y),"</div>")
haber = Trim(haber2(0))
'Verileri Süz
haber = replace(haber,"<img src=""","<img src=""http://galatasaraysd.org")
haber = replace(haber,"title="""," />")
haber = replace(haber,"title="""," />")
haber = replace(haber,"""/>","")
haber = replace(haber,"</a>","</a><br />")
'Sonucu Yazdır
response.write haber
next
%>

functions.asp dosyasında BinaryToString fonksiyonu var.