<%
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
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_Baslik""><a href=""")
for y = 1 to ubound(haber1)
haber2 = split(haber1(y),""" title=""")
	strVeriCekilecekAdres2 = "http://galatasaraysd.org/"&trim(haber2(0))
	Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
	oXMLHttp.open "GET", strVeriCekilecekAdres2, False
	oXMLHttp.Send()
	blnAlinanVeri2 = BinaryToString(oXMLHttp.responseBody)
	Set oXMLHttp = Nothing
	
	'Başlık
	baslik1=split(blnAlinanVeri2,"<title>")
	for yyz = 1 to ubound(baslik1)
	baslik2=split(baslik1(yyz),"</title>")
	baslik = Trim(baslik2(0))
	response.write "<b>"&baslik&"</b><br />"
	next
	
	'Detay
	detay1=split(blnAlinanVeri2,"<div id=""haberdetayi"">")
	for yy = 1 to ubound(detay1)
	detay2=split(detay1(yy),"</div>")
	detay = Trim(detay2(0))
	response.write detay&"<br /><br />"
	next
response.write haber
next
%>