<%
Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
kaynak = GETHTTP("http://www.groupbacklink.com/forum/links.php?id=idm")
kes1 = split(kaynak,"<div id=""friendlinks"">")
kes = split(kes1(1),"</div>")
response.write "<div id=""friendlinks""><p style=""font-size: 0.85em;text-align:center;"">"&kes(0)&"</p></div>"
%>