mantık hep aynı hocam, xmlhttp ile ilgili URL'den verileri çek, istediğin şekilde süz: Detayları aynı sayfada çekmek gibi bir zorunluluğunuz yoksa aşağıdaki gibi yapabilirsiniz.

functions.asp

<%
' Binary 2 String
Function BinaryToString(Binary) 
	Dim cl1, cl2, cl3, pl1, pl2, pl3 
	Dim L 
		cl1 = 1 
		cl2 = 1 
		cl3 = 1 
		L = LenB(Binary) 
	Do While cl1<=L 
		pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1))) 
		cl1 = cl1 + 1 
		cl3 = cl3 + 1 
	If cl3>300 Then 
		pl2 = pl2 & pl3 
		pl3 = ""
		cl3 = 1 
		cl2 = cl2 + 1 
	If cl2>200 Then 
	pl1 = pl1 & pl2 
	pl2 = "" 
	cl2 = 1 
	End If 
	End If 
	Loop 
	BinaryToString = pl1 & pl2 & pl3 
End Function
%>

gs_liste.asp

<!--#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 />")
haber = replace(haber,"/haberoku/","gs_detay.asp?URL=/haberoku/")
'Sonucu Yazdır
response.write haber
next
%>

gs_detay.asp

<!--#include file="functions.asp"-->
<%

'Kaynaktan verileri çek
URL = Request.QueryString("URL")
strVeriCekilecekAdres = "http://galatasaraysd.org/"&URL
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=""haberdetayi"">")
for y = 1 to ubound(haber1)
haber2=split(haber1(y),"</div>")
haber = Trim(haber2(0))
response.write haber
next
%>