<%
link = "http://www.sabah.com.tr/Gundem/2010/04/05/video_konferansla_ifade_veriyor"
Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP" )
objHTTP.open "GET", link, false
objHTTP.send
kaynak = ObjHTTP.ResponseText
set xmlhttp = nothing
'Başlığı çekiyoruz
bas = Split(kaynak , "<h1>" )
baslik = Split(bas(1 ) , "</h1>" )
'İçeriği geçiyoruz
ic = Split(kaynak , "<p>" )
icerik = Split(ic(1 ) , "</p>" )
'resimleri çekiyoruz
res = Split(kaynak, "http://i.sabah.com.tr/" )
resimm = Split(res(1 ), """" )

%>

<%=baslik(0)%><br />
<%=icerik(0)%><br />
<img src="http://i.sabah.com.tr/<%=resimm(0)%>" />

ufak bir örnek yaptım buyur kardeşim.